ASP中循环语句使用实例
作者:admin 日期:2012-04-26
ASP基础实例教程之ASP中循环语句使用实例
实例一:do....loop (当条件为True(或者条件为True)时循环)
运行结果:Test1While()循环重复了10次,Test2While()循环重复了1次,Test1Until()循环重复了11次,Test2Until()循环重复了10次
CODE:
<%@language="vbscript" codepage="936"%>
<html>
<head>
<title>do....loop几种用法</title>
</head>
<body>
<%
Sub Test1While()
dim counter,myNum
counter=0
myNum=20
do while myNum>10
myNum=myNum-1
counter=counter+1
loop
Response.Write"Test1While()循环重复
了"&counter&"次。"&"<br>"
end Sub
Sub Test2While()
dim counter,myNum
counter=0
myNum=9
do
myNum=myNum-1
counter=counter+1
loop while myNum>10
Response.Write"Test2While()循环重复
了"&counter&"次。"&"<br>"
end Sub
Sub Test1Until()
dim counter,myNum
counter=0
myNum=20
do until myNum<10
myNum=myNum-1
counter=counter+1
loop
Response.Write"Test1Until()循环重复
了"&counter&"次。"&"<br>"
end Sub
Sub Test2Until()
dim counter,myNum
counter=0
myNum=1
do
myNum=myNum+1
counter=counter+1
loop until myNum>10
Response.Write"Test2Until()循环重复
了"&counter&"次。"&"<br>"
end Sub
Test1While()
Test2While()
Test1Until()
Test2Until()
%>
</body>
</html>
实例二:while....wend (当条件为True)时循环) 运行结果:TestWhileWend()循环重复了10次
CODE:
<%@language="vbscript" codepage="936"%>
<html>
<head>
<title>while....wend用法</title>
</head>
<body>
<%
Sub TestWhileWend()
dim counter,myNum
counter=0
myNum=20
while myNum>10
myNum=myNum-1
counter=counter+1
wend
Response.Write"TestWhileWend()循环重复了"&counter&"次。"&"<br>"
end Sub
TestWhileWend()
%>
</body>
</html>
实例三:for....next 运行结果:Test1ForNext()循环重复了7次,Test2ForNext()循环重复了4次
CODE:
<%@language="vbscript" codepage="936"%>
<html>
<head>
<title>for....next用法</title>
</head>
<body>
<%
Sub Test1ForNext()
dim counter,myNum
counter=0
for myNum=0 to 6
counter=counter+1
next
Response.Write"Test1ForNext()循环重复了"&counter&"次。"&"<br>"
end Sub
Sub Test2ForNext()
dim counter,myNum
counter=0
for myNum=0 to 6 step 2
counter=counter+1
next
Response.Write"Test2ForNext()循环重复了"&counter&"次。"&"<br>"
end Sub
Test1ForNext()
Test2ForNext()
%>
</body>
</html>
实例四:for each....next 运行结果:Hello World!,Hello World!,:Hello World!,Hello World!,Hello World!
CODE:
<%@language="vbscript" codepage="936"%>
<html>
<head>
<title>for each....next用法</title>
</head>
<body>
<%
dim aColors,sColor
aColors=array("red","blue","green","black","silver")
for each sColor in aColors
Response.Write"<font color="&sColor&" size=2>Hello World!</font><br>"
next
%>
</body>
</html>
上一篇: Asp利用字符串处理多个空格只保留一个
下一篇: Javascript批量定义页面元素鼠标事件
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp 
相关日志:
广告位
