本文链接：http://www.oversteper.com/wprogram/asp/830.html
do ... loop 语句两种格式的示例
do whil ... loop ：
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> VBscript 循环语句之 do ... loop 语句 </title>
</head>
<body>
<%
dim i '声明一个变量
i=1 '给变量赋值
do while i<10
response.Write "VBscript 循环语句之 do ... loop 语句 <br/>"
i=i+1
loop
%>
</body>
</html>
do ... loop while:
以下为引用内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title> VBscript 循环语句之 do ... loop 语句 </title>
</head>
<body>
<%
dim i '声明一个变量
i=1 '给变量赋值
do
response.Write "VBscript 循环语句之 do ... loop 语句 <br/>"
i=i+1
loop while i<6
%>
</body>
</html>
禁止站外提交表单的asp代码如下：
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......
