ASP脚本循环语句

　　 在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将 接续给大家介绍 VBScipt 的循环语句，并对脚本语言在 ASP 中的 利用加以总结 。

　　 假如有人告诉你学习 ASP 不需求任何编程 常识，那么他错了；假如我告诉你学习 ASP 必须 主宰一门编程语言，那么我错了 。ASP 动态服务器页面环境的特色就在于它是通过一种或几种脚本语言而写成的，脚本语言 可以看作是编程语言的简化版，它易于学习和 主宰，这给 辽阔动态网站的设计者们提供了相当大的 便捷 。 可以这么说 : 脚本语言 使用的得当与否直接关系到 ASP 利用程序的优与劣 。继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今日我们 接续来看看 VBScript 中的循环语句 。

　　 循环语句的作用便是 反复执行程序代码，循环可分为三类：一类在条件变为“假”之前 反复执行语句，一类在条件变为“真”之前 反复执行语句，另一类依照指定的次数 反复执行语句 。在 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 if
　　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、执行脚本指令 。

　　 从下一篇开始，我们将开始学习 ASP 的内建对象，敬请关注 。