asp中取SUB过程的参数

来源:百度知道 编辑:UC知道 时间:2024/05/28 15:34:11
过程如下:
sub Modify()
dim ClassID,sql,rsClass,i
ClassID=trim(request("ClassID"))
if ClassID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足!</li>"
exit sub
else
ClassID=CLng(ClassID)
end if
sql="select * From MenuClass where ClassID=" & ClassID
set rsClass=server.CreateObject ("Adodb.recordset")
rsClass.open sql,conn,1,3
if rsClass.bof and rsClass.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的栏目!</li>"
else
%>
<form name="form1" method="post" action="Admin_Class_Menu.asp" onSubmit="return check()">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table_southidc">
<tr class="title">

你将你要调用的主程序(文件)也贴出来

建议用
在主程序中
有classid才调用
....
call Modify(classid)

sub Modify(classid)

...
end sub

sub是不能传递参数的,如果要传递参数请使用function