<
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>SUB过程带参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
dim total,i
response.Write("使用过程名直接调用的结果<br>")
total=5
i=1
mysub total,i
response.Write("<br>")
response.Write("使用 call 过程名调用的结果<br>")
total=6
i=2
call mysub(total,i)
%>
<%
sub mysub(tt,ii)
while ii<=tt
response.Write("i="&i)
response.Write("<br>")
i=i+1
wend
end sub
%>
</html>
<html>
<head>
<title>SUB过程带参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
dim total,i
response.Write("使用过程名直接调用的结果<br>")
total=5
i=1
mysub total,i
response.Write("<br>")
response.Write("使用 call 过程名调用的结果<br>")
total=6
i=2
call mysub(total,i)
%>
<%
sub mysub(tt,ii)
while ii<=tt
response.Write("i="&i)
response.Write("<br>")
i=i+1
wend
end sub
%>
</html>