ASP腳本循環(huán)語句詳細(xì)教學(xué)

    時間:2024-08-10 02:56:47 句子 我要投稿
    • 相關(guān)推薦

    ASP腳本循環(huán)語句詳細(xì)教學(xué)

      ASP 動態(tài)服務(wù)器頁面環(huán)境的特點(diǎn)就在于它是通過一種或幾種腳本語言而寫成的,腳本語言可以看作是編程語言的簡化版,它易于學(xué)習(xí)和掌握,這給廣大動態(tài)網(wǎng)站的設(shè)計者們提供了相當(dāng)大的便利。可以這么說 : 腳本語言運(yùn)用的得當(dāng)與否直接關(guān)系到 ASP 應(yīng)用程序的優(yōu)與劣。繼上一篇我們學(xué)習(xí)了腳本語言 VBScript 的函數(shù)和條件語句后,今天我們繼續(xù)來看看 VBScript 中的循環(huán)語句。

    ASP腳本循環(huán)語句詳細(xì)教學(xué)

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

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

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

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

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

      我們先來看看 Do...Loop,它是可以多次(次數(shù)不定)運(yùn)行語句塊。當(dāng)條件為“真”時或條件變?yōu)椤罢妗敝埃貜?fù)執(zhí)行語句塊。請看下例: < html>< head>

      < title>DoLoop.asp< /title>< body bgcolor="#FFFFFF">< /head>< p>< /p>

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

      我們來分析一下此段程序,我們的目的是要根據(jù)當(dāng)前的月份打印一張表格,首先我們建立一個計數(shù)器“count”并將其值設(shè)為 1,然后我們用函數(shù) month() 和 now() 得到當(dāng)前的月份,最后建立循環(huán),當(dāng) count 的值小于當(dāng)前月份的值加 1 的時候,即顯示月份值及一條橫線并將 count 的值加 1,循環(huán)語句重復(fù)執(zhí)行直到以上條件為假時退出循環(huán)。其中如果 count 大于 13 則用 exit do 立即退出循環(huán)。

      Do Loop 語句還可以使用以下語法:

      Do

      [statements][Exit Do]

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

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

      下面的示例將過程 MyProc 重復(fù)執(zhí)行 50 次。For 語句指定計數(shù)器變量 x 及其起始值與終止值。Next 語句使計數(shù)器變量每次加 1。 Sub DoMyProc50Times()

      Dim x

      For x = 1 To 50

      MyProc

      Next

      End Sub

      關(guān)鍵字 Step 用于指定計數(shù)器變量每次增加或減少的值。在下面的示例中,計數(shù)器變量 j 每次加 2。循環(huán)結(jié)束后,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

      要使計數(shù)器變量遞減,可將 Step 設(shè)為負(fù)值。此時計數(shù)器變量的終止值必須小于起始值。在下面的示例中,計數(shù)器變量 myNum 每次減 2。循環(huán)結(jié)束后,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 語句用于在計數(shù)器達(dá)到其終止值之前退出 For...Next 語句。因?yàn)橥ǔV皇窃谀承┨厥馇闆r下(例如在發(fā)生錯誤時)要退出循環(huán),所以可以在 If...Then...Else 語句的 True 語句塊中使用 Exit For 語句。如果條件為 False,循環(huán)將照常運(yùn)行。

      最后,讓我們來看看 For Each...Next 語句 ,For Each...Next 循環(huán)與 For...Next 循環(huán)類似。For Each...Next 不是將語句運(yùn)行指定的次數(shù),而是對于數(shù)組中的每個元素或?qū)ο蠹现械拿恳豁?xiàng)重復(fù)一組語句。這在不知道集合中元素的數(shù)目時非常有用。它的語法如下: For Each element In group

      [statements]

      [Exit For]

      [statements]Next [element]

    【ASP腳本循環(huán)語句詳細(xì)教學(xué)】相關(guān)文章:

    《循環(huán)語句》教學(xué)文案10-16

    《化石吟》詳細(xì)教學(xué)設(shè)計08-15

    單曲循環(huán)經(jīng)典散文08-15

    李清照《一剪梅》詳細(xì)教學(xué)設(shè)計09-24

    成語接龍死循環(huán)07-28

    《鄉(xiāng)愁》詳細(xì)教案07-02

    《鄉(xiāng)愁》詳細(xì)賞析05-18

    李清照詳細(xì)簡介06-29

    范仲淹的詳細(xì)介紹09-01

    《勸學(xué)》詳細(xì)教案06-10

    国产一级a爱做免费播放_91揄拍久久久久无码免费_欧美视频在线播放精品a_亚洲成色在线综合网站免费

      亚洲永久字幕精品免费文字 | 亚洲日韩欧美国产动漫第二区 | 日本久久精品免费观看 | 亚洲va成高清在线播放人 | 亚洲Av每日更新在线观看 | 亚洲中文字幕第一页在线 |