详细讲解ASP脚本循环语句(2)

　　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