- 相關(guān)推薦
ASP腳本循環(huán)語(yǔ)句詳細教學(xué)
ASP 動(dòng)態(tài)服務(wù)器頁(yè)面環(huán)境的特點(diǎn)就在于它是通過(guò)一種或幾種腳本語(yǔ)言而寫(xiě)成的，腳本語(yǔ)言可以看作是編程語(yǔ)言的簡(jiǎn)化版，它易于學(xué)習和掌握，這給廣大動(dòng)態(tài)網(wǎng)站的設計者們提供了相當大的便利�？梢赃@么說(shuō) : 腳本語(yǔ)言運用的得當與否直接關(guān)系到 ASP 應用程序的優(yōu)與劣。繼上一篇我們學(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)行瀏覽，根據當前的月份的不同，你將看到如下圖的結果。
我們來(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 的總和。 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]
【ASP腳本循環(huán)語(yǔ)句詳細教學(xué)】相關(guān)文章：
《循環(huán)語(yǔ)句》教學(xué)文案10-16
《化石吟》詳細教學(xué)設計08-15
單曲循環(huán)經(jīng)典散文08-15
李清照《一剪梅》詳細教學(xué)設計09-24
成語(yǔ)接龍死循環(huán)07-28
《鄉愁》詳細教案07-02
《鄉愁》詳細賞析05-18
李清照詳細簡(jiǎn)介06-29
范仲淹的詳細介紹09-01
《勸學(xué)》詳細教案06-10