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