在本文上两篇中我们学习了脚本语言 VBScript 变量、、过程和条件语句本篇将继续给大家介绍 VBScipt 循环语句并对脚本语言在 ASP 中应用加以整理总结

　　 如果有人告诉你学习 ASP 不需要任何编程知识那么他错了；如果我告诉你学习 ASP 必须掌握门编程语言那么我错了ASP 动态服务器页面环境特点就在于它是通过种或几种脚本语言而写成脚本语言可以看作是编程语言简化版它易于学习和掌握这给广大动态网站WebSite设计者们提供了相当大便利可以这么说 : 脚本语言运用得当和否直接关系到 ASP 应用优和劣继上篇我们学习了脚本语言 VBScript 和条件语句后今天我们继续来看看 VBScript 中循环语句

　　 循环语句作用就是重复执行代码循环可分为 3类:类在条件变为“假”的前重复执行语句类在条件变为“真”的前重复执行语句另类按照指定次数重复执行语句在 VBScript 中可使用下列循环语句:
　 　Do...Loop: 当(或直到)条件为“真”时循环
　　 While...Wend: 当条件为“真”时循环
　　 For...Next: 指定循环次数使用计数器重复运行语句
　　 For Each...Next: 对于集合中每项或中每个元素重复执行组语句

　　 我们先来看看 Do...Loop它是可以多次(次数不定)运行语句块当条件为“真”时或条件变为“真”的前重复执行语句块请看下例: 　　< html>< head>
　　< title>DoLoop.asp< /title>< body bgcolor=\"#FFFFFF\">< /head>< p>< /p>
< p> 请将今年到本月为止每个月份销售结算记录填写在本页的上< P>
　　< %
　　counter = 1
thismonth = month(now)
Do while counter < thismonth + 1
response.write \" \" & counter & \" 月份 : \"
response.write \"______________________________\" & \"< BR>< br>\"
If counter >13 then
　　exit do
　　end
　　counter = counter+1
Loop
　　%>
　　< hr>< /body>< /html>

　　 这段 ASP 运用循环语句制作了张销售结算记录表将以上代码剪贴至记事簿保存为 DoLoop.asp并在浏览器中以 HTTP 方式进行浏览根据当前月份区别你将看到如下图结果

　　 　　我们来分析下此段我们目是要根据当前月份打印张表格首先我们建立个计数器“count”并将其值设为 1然后我们用 month 和now 得到当前月份最后建立循环当 count 值小于当前月份值加 1时候即显示月份值及条横线并将 count 值加 1循环语句重复执行直到以上条件为假时退出循环其中如果 count 大于 13 则用 exit do 立即退出循环

　　Do Loop 语句还可以使用以下语法:

　　Do

　　[statements][Exit Do]

　　[statements]Loop [{While | Until} condition]

　While...Wend 语句是为那些熟悉其使用方法用户提供但是由于 While...Wend 缺少灵活性所以建议最好使用 Do...Loop 语句下面我们来看看 For Next 语句For...Next 语句用于将语句块运行指定次数在循环中使用计数器变量该变量值随每次循环增加或减少

　　 下面举例将过程 MyProc 重复执行 50 次For 语句指定计数器变量 x 及其起始值和终止值Next 语句使计数器变量每次加 1 　　 Sub DoMyProc50Times
　　 Dim x
　　 For x = 1 To 50
　　 MyProc
　　 Next
　　 End Sub

　　 关键字 Step 用于指定计数器变量每次增加或减少值在下面举例中计数器变量 j 每次加 2循环结束后total 值为 2、4、6、8 和 10 总和 　　 Sub TwosTotal
　　 Dim j, total
　　 For j = 2 To 10 Step 2
　　 total = total + j
　　 Next
　　 MsgBox \" 总和为 \" & total & \"\"
　　 End Sub

　　 要使计数器变量递减可将 Step 设为负值此时计数器变量终止值必须小于起始值在下面举例中计数器变量 myNum 每次减 2循环结束后total 值为 16、14、12、10、8、6、4 和 2 总和　　 Sub NewTotal
　　 Dim myNum, total
　　 For myNum = 16 To 2 Step -2
　　 total = total + myNum
　　 Next
　　 MsgBox \" 总和为 \" & total & \"\"
　　 End Sub

　　 Exit For 语句用于在计数器达到其终止值的前退出 For...Next 语句通常只是在某些特殊情况下(例如在发生时)要退出循环所以可以在 If...Then...Else 语句 True 语句块中使用 Exit For 语句如果条件为 False循环将照常运行

　　 最后让我们来看看 For Each...Next 语句 ,For Each...Next 循环和 For...Next 循环类似For Each...Next 不是将语句运行指定次数而是对于中每个元素或对象集合中每项重复组语句这在不知道集合中元素数目时非常有用它语法如下: 　　 For Each element In group
　　 [statements]
　　 [Exit For]
　　 [statements]Next [element]

　　 如果 group 中有至少个元素就会进入 For Each 块执行旦进入循环便首先对 group 中第个元素执行循环中所有语句只要 group 中还有其他元素就会对每个元素执行循环中语句当 group 中没有其他元素时退出循环然后从 Next 语句的后语句继续执行

　　 至此我们已经完成了对脚本语言 VBScript 所有基本知识学习但是仅凭阅读现有这几篇文章你是无法熟练运用 VBScript 你必须通过不断实战来提高自己等级当然如果你熟悉 C你也可以选择javascript 来作为 ASP 应用脚本语言不知大家有没有发现 ASP 调试比较困难没有什么现成工具在这里我向大家简要介绍下 Microsoft Script Debugger我们可以运用它来进行定量调试工作

　　IIS4.0 所包括 Microsoft Script Debugger(Script 侦错工具)提供脚本侦错功能您可以使用 Microsoft Script 侦错工具来进行对使用 VBScript、JScript 编写脚本以及 Java applets、beans 和 ActiveX 组件侦错工作



　　 有脚本在用户端浏览器执行有脚本(< % … %> 中部份)在服务器端执行Microsoft Script Debugger可以侦错用户端执行脚本以及服务器端执行脚本 　　 在用户端浏览器执行脚本是在用户端浏览器当中执行包括在标准 HTML 代码中 VBScript、Jscript 部份在浏览器载入此 HTML 代码或譬如按下按钮触发事件时将执行此包括脚本 HTML 代码用户端浏览器执行脚本主要用于对 HTML 表单输入基本检查等功能

　　 在服务器端执行脚本是在 IIS 服务器端执行包括在 .asp 中先在 IIS 服务器上执行执行结果产生标准 HTML 代码再传送到用户端浏览器服务器端执行脚本主要用于多个网页的间连结HTML 表单输入处理以及存取服务器上数据库资料等

　　 Microsoft Script Debugger 提供以下除错功能:

　　 1、设定中断点

　　 2、逐步追踪脚本

　　 3、设定书签

　　 4、检视呼叫堆叠

　　 5、检视和更改变数值

　　 6、执行脚本指令