推薦：如何實現asp無組件生成縮略圖網上有不少生成縮略圖的ASP組件。若你的虛擬空間不支持註冊新組件，可能會感覺自己的網站失色不少。心晴不才，結合網上資源寫了個無組件生成縮略圖程序，僅供參考。 還是先看看基礎部分吧。首先，我們知道在頁面中顯示圖片是如下代碼： img src=pic.gif border=0 width
本篇教大家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]
分享：ASP保存遠程文件到本地% Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=True dim Ads,Retrieval,GetRemoteData Set Retrieval = Server.CreateObject(Microsoft.XMLHTTP) With Retrieval .Open Get, RemoteFileUrl, False, , .Send If .Readystate4 then SaveRemote