在本文上兩篇中，我們學(xué)習(xí)了腳本語(yǔ)言 VBScript 的變量、函數(shù)、過程和條件語(yǔ)句，本篇將繼續(xù)給大家介紹 VBScipt 的循環(huán)語(yǔ)句，并對(duì)腳本語(yǔ)言在 ASP 中的應(yīng)用加以總結(jié)。

　　如果有人告訴你學(xué)習(xí) ASP 不需要任何編程知識(shí)，那么他錯(cuò)了；如果我告訴你學(xué)習(xí) ASP 必須掌握一門編程語(yǔ)言，那么我錯(cuò)了。ASP 動(dòng)態(tài)服務(wù)器頁(yè)面環(huán)境的特點(diǎn)就在于它是通過一種或幾種腳本語(yǔ)言而寫成的，腳本語(yǔ)言可以看作是編程語(yǔ)言的簡(jiǎn)化版，它易于學(xué)習(xí)和掌握，這給廣大動(dòng)態(tài)網(wǎng)站的設(shè)計(jì)者們提供了相當(dāng)大的便利�？梢赃@么說(shuō) : 腳本語(yǔ)言運(yùn)用的得當(dāng)與否直接關(guān)系到 ASP 應(yīng)用程序的優(yōu)與劣。繼上一篇我們學(xué)習(xí)了腳本語(yǔ)言 VBScript 的函數(shù)和條件語(yǔ)句后，今天我們繼續(xù)來(lái)看看 VBScript 中的循環(huán)語(yǔ)句。

　　循環(huán)語(yǔ)句的作用就是重復(fù)執(zhí)行程序代碼，循環(huán)可分為三類：一類在條件變?yōu)椤凹佟敝�前重�?fù)執(zhí)行語(yǔ)句，一類在條件變?yōu)椤罢妗敝�前重�?fù)執(zhí)行語(yǔ)句，另一類按照指定的次數(shù)重復(fù)執(zhí)行語(yǔ)句。在 VBScript 中可使用下列循環(huán)語(yǔ)句：

　　Do...Loop: 當(dāng)（或直到）條件為“真”時(shí)循環(huán)。

　　While...Wend: 當(dāng)條件為“真”時(shí)循環(huán)。

　　For...Next: 指定循環(huán)次數(shù)，使用計(jì)數(shù)器重復(fù)運(yùn)行語(yǔ)句。

　　For Each...Next: 對(duì)于集合中的每項(xiàng)或數(shù)組中的每個(gè)元素，重復(fù)執(zhí)行一組語(yǔ)句。

　　我們先來(lái)看看 Do...Loop，它是可以多次（次數(shù)不定）運(yùn)行語(yǔ)句塊。當(dāng)條件為“真”時(shí)或條件變?yōu)椤罢妗敝�前，重�?fù)執(zhí)行語(yǔ)句塊。請(qǐng)看下例： < html="">< head="">

　　< title="">DoLoop.asp< itle="">< body="" bgcolor="#FFFFFF">< ead="">< p=""><>
　　
　　< p="">請(qǐng)將今年到本月為止的每個(gè)月份的銷售結(jié)算記錄填寫在本頁(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="">< ody="">< tml="">
　　
　　這段 ASP 程序運(yùn)用循環(huán)語(yǔ)句制作了一張銷售結(jié)算記錄表，將以上代碼剪貼至記事簿保存為 DoLoop.asp，并在瀏覽器中以 HTTP 方式進(jìn)行瀏覽，根據(jù)當(dāng)前的月份的不同，你將看到如下圖的結(jié)果。

[1] [2]  下一頁(yè)