ASP基礎入門(mén)第五篇（ASP腳本循環(huán)語(yǔ)句）

繼上一篇我們學(xué)習了腳本語(yǔ)言 VBScript 的函數和條件語(yǔ)句后，今天我們繼續來(lái)看看VBScript 中的循環(huán)語(yǔ)句。

　　 循環(huán)語(yǔ)句的作用就是重復執行程序代碼，循環(huán)可分為三類(lèi)：一類(lèi)在條件變?yōu)椤凹佟敝爸貜蛨绦姓Z(yǔ)句，一類(lèi)在條件變?yōu)椤罢妗敝爸貜蛨绦姓Z(yǔ)句，另一類(lèi)按照指定的次數重復執行語(yǔ)句。在VBScript 中可使用下列循環(huán)語(yǔ)句：
　 　Do...Loop: 當（或直到）條件為“真”時(shí)循環(huán)。
　　 While...Wend: 當條件為“真”時(shí)循環(huán)。
　　 For...Next: 指定循環(huán)次數，使用計數器重復運行語(yǔ)句。
　　 For Each...Next: 對于集合中的每項或數組中的每個(gè)元素，重復執行一組語(yǔ)句。 　　 我們先來(lái)看看 Do...Loop，它是可以多次（次數不定）運行語(yǔ)句塊。當條件為“真”時(shí)或條件變?yōu)椤罢妗敝?，重復執行語(yǔ)句塊。請看下例： 　　

< html>

< head>
< title>DoLoop.asp< /title>< body bgcolor="#FFFFFF">< /head>< p>< /p>
< p> 請將今年到本月為止的每個(gè)月份的銷(xiāo)售結算記錄填寫(xiě)在本頁(yè)之上。< 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 程序運用循環(huán)語(yǔ)句制作了一張銷(xiāo)售結算記錄表，將以上代碼剪貼至記事簿保存為 DoLoop.asp，并在瀏覽器中以 HTTP 方式進(jìn)行瀏覽，根據當前的月份的不同，你將看到如下圖的結果。
<img src='http://arch.pconline.com.cn/pcedu/empolder/wz/asp/10111/pic/2001124_asp_11.gif'>
我們來(lái)分析一下此段程序，我們的目的是要根據當前的月份打印一張表格，首先我們建立一個(gè)計數器“count”并將其值設為 1，然后我們用函數 month() 和 now() 得到當前的月份，最后建立循環(huán)，當 count 的值小于當前月份的值加 1 的時(shí)候，即顯示月份值及一條橫線(xiàn)并將 count 的值加 1，循環(huán)語(yǔ)句重復執行直到以上條件為假時(shí)退出循環(huán)。其中如果 count 大于 13 則用 exit do 立即退出循環(huán)。
　　Do Loop 語(yǔ)句還可以使用以下語(yǔ)法：

　　Do

　　[statements][Exit Do]

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

　　 While...Wend 語(yǔ)句是為那些熟悉其用法的用戶(hù)提供的。但是由于 While...Wend 缺少靈活性，所以建議最好使用 Do...Loop 語(yǔ)句。下面我們來(lái)看看 For Next 語(yǔ)句。For...Next 語(yǔ)句用于將語(yǔ)句塊運行指定的次數，在循環(huán)中使用計數器變量，該變量的值隨每一次循環(huán)增加或減少。

　　 下面的示例將過(guò)程 MyProc 重復執行 50 次。For 語(yǔ)句指定計數器變量 x 及其起始值與終止值。Next 語(yǔ)句使計數器變量每次加 1。 　　

Sub DoMyProc50Times()
　　 Dim x
　　 For x = 1 To 50
　　 MyProc
　　 Next
　　 End Sub

　　 關(guān)鍵字 Step 用于指定計數器變量每次增加或減少的值。在下面的示例中，計數器變量 j 每次加 2。循環(huán)結束后，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 設為負值。此時(shí)計數器變量的終止值必須小于起始值。在下面的示例中，計數器變量 myNum 每次減 2。循環(huán)結束后，total 的值為 16、14、12、10、8、6、4 和 2 的總和?！　?/p>

Sub NewTotal()
　　 Dim myNum, total
　　 For myNum = 16 To 2 Step -2
　　 total = total + myNum
　　 Next
　　 MsgBox " 總和為 " & total & "。"
　　 End Sub

　　 Exit For 語(yǔ)句用于在計數器達到其終止值之前退出 For...Next 語(yǔ)句。因為通常只是在某些特殊情況下（例如在發(fā)生錯誤時(shí)）要退出循環(huán)，所以可以在 If...Then...Else 語(yǔ)句的 True 語(yǔ)句塊中使用 Exit For 語(yǔ)句。如果條件為 False，循環(huán)將照常運行。

　　 最后，讓我們來(lái)看看 For Each...Next 語(yǔ)句 ,For Each...Next 循環(huán)與 For...Next 循環(huán)類(lèi)似。For Each...Next 不是將語(yǔ)句運行指定的次數，而是對于數組中的每個(gè)元素或對象集合中的每一項重復一組語(yǔ)句。這在不知道集合中元素的數目時(shí)非常有用。它的語(yǔ)法如下： 　　

For Each element In group
　　 [statements]
　　 [Exit For]
　　 [statements]Next [element]

　　 如果 group 中有至少一個(gè)元素，就會(huì )進(jìn)入 For Each 塊執行。一旦進(jìn)入循環(huán)，便首先對 group 中第一個(gè)元素執行循環(huán)中的所有語(yǔ)句。只要 group 中還有其他的元素，就會(huì )對每個(gè)元素執行循環(huán)中的語(yǔ)句。當 group 中沒(méi)有其他元素時(shí)退出循環(huán)，然后從 Next 語(yǔ)句之后的語(yǔ)句繼續執行。

　　 至此，我們已經(jīng)完成了對腳本語(yǔ)言 VBScript 所有的基本知識的學(xué)習，但是僅憑閱讀現有的這幾篇文章你是無(wú)法熟練運用 VBScript 的，你必須通過(guò)不斷的實(shí)踐來(lái)提高自己的等級。當然，如果你熟悉 C，你也可以選擇JavaScript 來(lái)作為 ASP 應用程序的腳本語(yǔ)言。不知大家有沒(méi)有發(fā)現 ASP 程序的調試比較困難，因為沒(méi)有什么現成的工具，在這里我向大家簡(jiǎn)要介紹一下 Microsoft Script Debugger，我們可以運用它來(lái)進(jìn)行一定量的程序調試工作。

　　IIS4.0 所包括的 Microsoft Script Debugger（Script 偵錯工具），提供腳本程序的偵錯功能。您可以使用 Microsoft Script 偵錯工具來(lái)進(jìn)行對使用 VBScript、JScript 編寫(xiě)的腳本程序，以及 Java applets、beans 和 ActiveX 組件的偵錯工作。

　　 有的腳本程序在用戶(hù)端瀏覽器執行，有的腳本程序（< % … %> 中的部份）在服務(wù)器端執行。Microsoft Script Debugger，可以偵錯用戶(hù)端執行的腳本程序以及服務(wù)器端執行腳本程序。 　　 在用戶(hù)端瀏覽器執行的腳本程序是在用戶(hù)端的瀏覽器當中執行，包括在標準 HTML 代碼中的 VBScript、Jscript 部份。在瀏覽器載入此 HTML 代碼或譬如按下按鈕觸發(fā)事件時(shí)，將執行此包括腳本程序的 HTML 代碼。用戶(hù)端瀏覽器執行的腳本程序，主要用于對 HTML 表單輸入的基本檢查等功能。
　　 在服務(wù)器端執行的腳本程序是在 IIS 服務(wù)器端執行，包括在 .asp 程序中。先在 IIS 服務(wù)器上執行，執行結果產(chǎn)生標準的 HTML 代碼，再傳送到用戶(hù)端瀏覽器。服務(wù)器端執行的腳本程序，主要用于多個(gè)網(wǎng)頁(yè)之間的連結，HTML 表單輸入的處理，以及存取服務(wù)器上數據庫的資料等。

Microsoft Script Debugger 提供以下的除錯功能：

　　 1、設定中斷點(diǎn)

　　 2、逐步追蹤腳本程序。

　　 3、設定書(shū)簽。

　　 4、檢視呼叫堆疊。

　　 5、檢視和更改變數值。

　　 6、執行腳本指令。

從下一篇開(kāi)始，我們將開(kāi)始學(xué)習ASP 的內建對象，大家不要走開(kāi)呀。