循环语句的作用就是重复执行程序代码，循环可分为三类：一类在条件变为“假”之前重复执行语句，一类在条件变为“真”之前重复执行语句，另一类按照指定的次数重复执行语句。在 VBScript 中可使用下列循环语句：
Do...Loop: 当（或直到）条件为“真”时循环。
While...Wend: 当条件为“真”时循环。
For...Next: 指定循环次数，使用计数器重复运行语句。
For Each...Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句。
现在看几个例子：
<html>
<body>
do while....loop<br />
<%
' do while....loop 类似.net中的while(){}
i= 6
Do while i < 10
response.Write(i& " <br> ")
i=i+ 1
Loop
%>
do ....loop until<br />
<%
' do while....loop 类似.net中的while(){}
i= 6
Do
response.Write(i& " <br> ")
i=i+ 1
Loop until i < 10
%>
while....wend <br />
<%
i= 10
while i< 20
response.Write(i& " <br> ")
i=i+ 1
wend
%>
For...Next<br />
<%
for i= 0 to 10 ' 包括0到10
response.Write(i& " <br> ")
if i= 5 then
exit for
end if
next
%>
For.....each....next<br />
<%
dim array( 3)
array( 1)= " A "
array( 2)= " B "
array( 3)= " C "
for each a in array
response.Write(a& " <br> ")
next
%>
</body>
</html>
从数据库读取数据
<%
while not rs.eof
%>
<li><a href="#"><%=rs("classname")%></a></li>
<%
rs.movenext
wend
%>
原文：https://blog.csdn.net/weixin_34355559/article/details/86171280