第3章VBScript語言3.1VBScript概述3.2VBScript基本元素3.3基本輸入輸出

3.4條件語句

3.5循環語句

3.6過程3.7文檔對象模型1／241第3章VBScript語言3.1VBScript概1第3章VBScript語言3.1VBScript概述3.1.1什么是VBScript VBScript是程序開發語言VisualBasic家族的最新成員，可以將靈活的腳本應用于更廣泛的領域，包括MicrosoftInternetExplorer中的Web客戶端腳本和MicrosoftInternetInformationServer中的Web服務器端腳本。VBScript腳本語言有以下主要特點：(1)易學易用。如果讀者已經了解VisualBasic或VisualBasicforApplications，就會很快熟悉VBScript。(2)ActiveX腳本。VBScript使用ActiveX腳本與宿主應用程序對話；所用的腳本編寫引擎是vbscript.dll，該引擎能夠識別VBScript代碼；腳本編寫宿主是使用腳本編寫引擎的應用程序，InternetExplorer就是宿主應用程序的一個例子，它通過引擎來運行腳本。(3)其他應用程序和瀏覽器中的VBScript。開發者可以在其產品中免費使用VBScript來實現程序。第3章目錄2／241第3章VBScript語言3.1VBScript概述2第3章VBScript語言3.1.2在HTML頁面中添加VBScript代碼 通常將VBScript腳本代碼放在HEAD部分中，以使所有腳本代碼集中放置，這樣能確保在BODY部分調用代碼之前讀取并解碼所有腳本代碼。在HTML頁面中添加VBScript腳本代碼時，應以<SCRIPT>標記開始，而以</SCRIPT>標記結束，基本語法格式為：

<SCRIPTLANGUAGE=“腳本語言名稱” [EVENT="事件名稱"][FOR="對象名稱"]>

<!-- 腳本代碼 --> </SCRIPT> <SCRIPT>標記具有以下三個屬性：(1)LANGUAGE：指定腳本代碼所使用的腳本語言。對于InternetExplorer瀏覽器來說，該屬性的取值可以是“VBScript”或“JScript”，前者也可以簡寫為“VBS”。(2)EVENT：指定與腳本代碼相關聯的事件。(3)FOR：指定與事件相關聯的對象。【例3.1】演示第3章目錄3／241第3章VBScript語言3.1.2在HTML頁面中3第3章VBScript語言3.2VBScript基本元素3.2.1數據類型 在VBScript語言中只有一種數據類型，即Variant，這種數據類型可以包含不同類別的信息，它也是VBScript中所有函數的返回值的數據類型。Variant包含的數值信息類型稱為子類型，包括：Empty： 未初始化的Variant。Null： 不包含任何有效數據的VariantBoolean： 包含True或FalseByte ： 包含0到255之間的整數Integer： 包含-32,768到32,767之間的整數Currency： -922,337,203,685,477.5808到922,337,203,685,477.5807Long： 包含-2,147,483,648到2,147,483,647之間的整數Single： 包含單精度浮點數Double 包含雙精度浮點數Date（Time）： 含表示日期的數字String： 包含變長字符串，最大長度可為20億個字符Object： 包含對象Error： 包含錯誤號第3章目錄4／241第3章VBScript語言3.2VBScript基本4第3章VBScript語言3.2.2VBScript常量1.普通常量 普通常量分為字符串常量和數值常量兩種。 字符串常量簡稱字符串，它由一對雙引號括起來的字符序列所組成，其中可以包含字母、漢字、數字，空格以及標點符號等，長度不超過20億個字符。例如，“ASP動態網頁設計”，“MicrosoftExplorer瀏覽器”。 數值常量分為整型數、長整型數和浮點數。整型數和長整型數都可以用十進制、十六進制和八進制三種形式來表示。使用十六進制數時，應在數字前面加上&H前綴；使用八進制數時，應在數字前面加上&O前綴。對于長整型數，使用十六進制或八進制形式表示時，還要在數字后面加上后綴&。浮點數也稱為實型數，分為單精度浮點數和雙精度浮點數。浮點數可以用小數形式表示，也可以用科學記數法表示。2.符號常量 符號常量是用一個標識符表示的常量，用于代替數字或字符串，其值從發生不改變。在VBScript中，符號常量分為預定義符號常量和用戶自定義常量。 VBScript提供了許多預定義符號常量，在編寫腳本代碼時無須聲明即可直接使用。例如，vbCrLf表示回車符和換行符的組合，vbGreen表示綠色的數值。第3章目錄5／241第3章VBScript語言3.2.2VBScript5第3章VBScript語言3.2.3VBScript變量1.聲明變量 在VBScript中，通常使用Dim語句顯式聲明變量并分配存儲空間，語法格式如下：

Dim變量名[,變量名]例如，下面的兩個語句分別聲明了一個變量和四個變量：

DimUserName DimTop,Bottom,Left,Right此外，也可以通過直接在腳本中使用變量名這種方式隱式聲明變量。但這通常不是一個好習慣，因為這樣有時會由于變量名被拼錯而導致在運行腳本時出現意外的結果。若要強制顯式聲明所有變量，可以在腳本程序的開頭處使用下面的語句：OptionExplicit2.命名規則 每一個變量都必須用一個標識符來作為其名稱。變量命名必須遵循VBScript的標準命名規則。變量的命名規則為：第一個字符必須是字母；不能包含嵌入的句點（.）；長度不能超過255個字符；在被聲明的作用域內必須唯一；不能與VBScript的關鍵詞相同。第3章目錄6／241第3章VBScript語言3.2.3VBScript6第3章VBScript語言3.變量的作用域與存活期 變量的作用域由聲明它的位置決定。如果在過程中聲明變量，則只有該過程中的代碼可以訪問或更改變量值，此時變量具有局部作用域并被稱為過程級變量。如果在過程之外聲明變量，則該變量可以被腳本中所有過程所識別，稱為腳本級變量，具有腳本級作用域。 變量存在的時間稱為存活期。腳本級變量的存活期從被聲明的一刻起，直到腳本運行結束。對于過程級變量，其存活期僅是該過程運行的時間，該過程結束后，變量隨之消失。在執行過程時，局部變量是理想的臨時存儲空間。在不同過程中可以使用同名的局部變量，這是因為每個局部變量只被聲明它的過程識別。4.給變量賦值 在VBScript中，可以通過賦值語句指定變量的值，此時變量位于等號的左邊，要賦的值位于等號的右邊，該值可以是任何數值、字符串、常數或表達式。例如： UserName="張三豐" BirthDate=#1972-5-28# WeekWage=500第3章目錄7／241第3章VBScript語言3.變量的作用域與存活期第37第3章VBScript語言5.標量變量和數組變量 只包含一個值的變量稱為標量變量。包含一系列值的變量稱為數組變量。數組變量和標量變量是以相同的方式聲明的，唯一的區別是聲明數組變量時變量名后面帶有括號()。下面的語句聲明了一個一維數組：

DimA(10) 雖然括號中顯示的數字是10，但由于在VBScript中所有數組都是基于0的，所以這個數組實際上包含11個元素。在基于0的數組中，數組元素的數目總是括號中顯示的數目加1。這種數組被稱為固定大小的數組，簡稱為定長數組。 在數組中，使用數組名和索引來引用數組的每個元素，語法格式如下：

數組名(索引值) 下面的賦值語句將數據賦給數組元素，或者將數組元素的值賦給變量：

A(0)=256:A(1)=368:A(2)=121:SomeVariable=A(8) 數組并不僅限于一維。數組的維數最大可以為60。聲明多維數組時，使用逗號分隔括號中每個表示數組大小的數字。例如，下面語句聲明了一個有6行和11列的二維數組，其名稱為MyTable：

DimMyTable(5,10) 聲明二維數組時，括號中的第一個數字表示行的最大索引值，第二個數字表示列的最大索引值。第3章目錄8／241第3章VBScript語言5.標量變量和數組變量第3章8第3章VBScript語言6.動態數組 動態數組是在運行腳本時大小發生變化的數組。對動態數組的最初聲明可以使用Dim語句或ReDim語句來實現，但括號中不能包含任何數字。例如：

DimMyArray() ReDimAnotherArray() 若要使用動態數組，必須隨后使用ReDim確定維數和每一維的大小。例如，下面的ReDim語句將動態數組的初始大小設置為25，而后面的ReDim語句將數組的大小重新調整為30，同時使用Preserve關鍵字在重新調整大小時保留數組的內容。

ReDimMyArray(25) …… ReDimPreserveMyArray(30) 重新調整動態數組大小的次數是沒有任何限制的，但是應注意，將數組的大小調小時，將會丟失被刪除元素的數據。第3章目錄9／241第3章VBScript語言6.動態數組第3章目錄9／29第3章VBScript語言3.2.4VBScript運算符1.算術運算符VBScript提供了九個算術運算符，用來執行簡單的算術運算。(1)求冪運算符（^）： result=number^exponent(2)乘法運算符（*）： result=number1*number2(3)除法運算符（/）： result=number1/number2(4)整除運算符（\）： result=number1\number2(5)求余運算符（Mod）： result=number1Modnumber2(6)加法運算符（＋）： result=expression1+expression2(7)減法運算符（－）：

result=number1-number2（減法） -number（負號）第3章目錄10／241第3章VBScript語言3.2.4VBScript10第3章VBScript語言2.連接運算符 連接運算符（&）強制兩個表達式進行字符串連接，語法格式如下：

result=expression1&expression2 其中result為任意變量，expression1和expression2都是任意表達式。當任一expression不是字符串時，它將被轉換為String子類型。如果兩個表達式都是Null，則result也為Null。然而，如果僅有一個expression為Null，則它和其他表達式連接時，按零長度字符串（""）處理。任何表達式為Empty時也按零長度字符串處理。第3章目錄11／241第3章VBScript語言2.連接運算符第3章目錄1111第3章VBScript語言3.比較運算符比較運算符用于比較表達式，包括： <（小于） <=（小于或等于） >（大于） >=（大于或等于） =（等于） <>（不等于）比較表達式的規則或結果 若兩個表達式都是數值，則執行數值比較；若兩個表達式都是字符串，則執行字符串比較；若一個表達式是數值而另一個是字符串，則數值表達式小于字符串表達式；若一個表達式是數值而另一個是字符串，則數值表達式小于字符串表達式；若一個表達式是Empty而另一個是數值，則執行數值比較，使用0作為Empty表達式；若一個表達式是Empty而另一個是字符串，則執行字符串比較，使用零長度字符串（“”）為Empty表達式；若兩個表達式都是Empty，則表達式相等。第3章目錄12／241第3章VBScript語言3.比較運算符第3章目錄1212第3章VBScript語言4.邏輯運算符(1)Not運算符：對表達式執行邏輯非運算，語法格式如下：

result=Notexpression(2)And運算符：對兩個表達式進行邏輯“與”運算，語法格式如下：

result=expression1Andexpression2And運算符還可以對兩個數值表達式中位置相同的位執行逐位比較。(3)Or運算符：對兩個表達式進行邏輯“或”運算，語法格式如下：

result=expression1Orexpression2Or運算符還可以對兩個數值表達式中位置相同的位執行逐位比較。(4)Xor運算符：對兩個表達式進行邏輯“異或”運算，語法格式如下：

result=expression1Xorexpression2Xor運算符還可以對兩個數值表達式中位置相同的位執行逐位比較。(5)Eqv運算符：執行兩個表達式的邏輯等價運算，語法格式為：

result=expression1Eqvexpression2Eqv運算符還可以執行兩個數值表達式相應位的逐位比較。(6)Imp運算符：對兩個表達式進行邏輯蘊涵運算，語法格式如下：

result=expression1Impexpression2Imp運算符還可以執行兩個數值表達式相應位的逐位比較。第3章目錄13／241第3章VBScript語言4.邏輯運算符第3章目錄1313第3章VBScript語言5.運算符優先級 當表達式包含多個運算符時，將按預定順序計算每一部分，這個順序被稱為運算符優先級。使用括號可以越過這種優先級順序，強制首先計算表達式的某些部分。運算時，總是先執行括號中的運算符，然后再執行括號外的運算符。但在括號中仍要遵循標準運算符優先級。

當表達式包含多種運算符時，首先計算算術運算符，然后計算比較運算符，最后計算邏輯運算符。所有比較運算符的優先級相同，即按照從左到右的順序計算比較運算符。算術運算符、比較運算符和邏輯運算符的優先級在表3.14中列出。第3章目錄14／241第3章VBScript語言5.運算符優先級第3章目錄114第3章VBScript語言3.3基本輸入輸出3.3.1基本語句 賦值語句將表達式的值賦給變量或屬性。如果要將對象引用賦給變量或屬性，則不能使用賦值語句，而應使用Set語句，其語法格式如下：

Setobjectvar={objectexpression|Newclassname|Nothing} 其中objectvar用于指定變量或屬性的名稱，objectexpression是由對象名稱、另一個已聲明為相同對象類型的變量或返回相同對象類型的對象的函數或方法組成的表達式，New關鍵字用于創建新的類的實例，classname是類名，Nothing用于停止objectvar與任何指定對象或類的關聯。 使用注釋語句添加說明性文字，語法格式如下：

'注釋文字 編寫VBScript腳本代碼時，通常是在一行上寫一個語句。但有些語句很短，可將多個語句寫在同一行中，并使用冒號（:）來分隔各個語句：

X=T:T=Y:Y=T '交換變量X和Y的內容 對于比較長的語句，可以使用續行符將其分成多行，續行符由一個空格和一個下劃線符號組成。通過使用續行符，可以在第二個物理行上繼續上一個邏輯行上的內容。例如：

msg="白日依日盡，黃河入海流。"&vbCrLf&_ "欲窮千里目，更上一層樓。"第3章目錄15／241第3章VBScript語言3.3基本輸入輸出第3章目15第3章VBScript語言3.3.2MsgBox函數 MsgBox函數在對話框中顯示消息，等待用戶單擊按鈕，并返回一個值指示用戶單擊的按鈕，語法格式如下：

MsgBox(prompt[,buttons][,title][,helpfile,context]) 其中prompt參數是顯示在對話框中的字符串表達式，其最大長度大約是1024個字符；buttons是一個數值表達式，用于指定顯示按鈕的數目和類型、使用的圖標樣式，其默認值為0；title是顯示在對話框標題欄中的字符串表達式；helpfile是字符串表達式，用于標識為對話框提供上下文相關幫助的幫助文件；context是數值表達式，用于標識由幫助文件的作者指定給某個幫助主題的上下文編號?！纠?.2】演示

第3章目錄16／241第3章VBScript語言3.3.2MsgBox函數16第3章VBScript語言3.3.3InputBox函數 InputBox函數在對話框中顯示提示，等待用戶輸入文本或單擊按鈕，并返回文本框內容，語法格式如下：

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context]) 其中prompt參數是顯示在對話框中的字符串表達式，其最大長度大約是1024個字符；title是顯示在對話框標題欄中的字符串表達式；default是顯示在文本框中的字符串表達式，在沒有其他輸入時作為默認的響應值，如果省略default，則文本框為空；xpos是數值表達式，用于指定對話框的左邊緣與屏幕左邊緣的水平距離（單位為緹），如果省略xpos，則對話框會在水平方向居中；ypos也是數值表達式，用于指定對話框的上邊緣與屏幕上邊緣的垂直距離（單位為緹），如果省略ypos，則對話框顯示在屏幕垂直方向距下邊緣大約三分之一處；helpfile和context參數與MsgBox函數中的相應參數意義相同。 如果用戶單擊“確定”按鈕或按下Enter鍵，則InputBox函數返回文本框中的內容。如果用戶單擊“取消”按鈕或按下Esc鍵，則InputBox函數返回一個零長度字符串（""）?！纠?.3】演示第3章目錄17／241第3章VBScript語言3.3.3InputBox17第3章VBScript語言3.4條件語句3.4.1If...Then...Else語句 If...Then...Else語句簡稱If語句，用于計算條件是否為True或False，并且根據計算結果指定要執行的語句。If...Then...Else語句有兩種形式：即單行形式和塊形式。1.If語句的單行形式 對于If語句的單行形式，可以將其語法格式表示如下：

IfconditionThenstatements[Elseelsestatements] 其中condition是一個數值或字符串表達式，其運算結果是True或False，如果condition為Null，則condition被視為False；condition也可以是形如TypeOfobjectnameIsobjecttype的表達式，其中objectname是任何對象的引用，而objecttype則是任何有效的對象類型，如果objectname是objecttype所指定的一種對象類型，則表達式為True，否則為False。statements和elsestatements是一條語句或以冒號分開的多條語句。 當未用Else子句時，如果condition為True，則執行statements，否則執行下一條語句；當使用Else子句時，如果condition為True，則執行statements，否則執行elsestatements。第3章目錄18／241第3章VBScript語言3.4條件語句第3章目錄118第3章VBScript語言2.If語句的塊形式 語法格式表示如下：

IfconditionThen [statements] [ElseIfcondition-nThen [elseifstatements]] …… [Else [elsestatements]] EndIf 其中condition、condition-n的意義同單行形式中的condition，statements、elseifstatements和elsestatements都是一條語句或以冒號分開的多條語句。 當程序運行到塊形式時，將測試condition。如果condition為True，則執行Then之后的語句。如果condition為False，則每個ElseIf部分的條件表達式（如果有的話）會依次計算并加以測試。當找到某個為True的條件時，則其相關的Then之后的語句會被執行。如果沒有任何一個ElseIf語句中的條件是True或沒有使用ElseIf子句，則將執行Else之后的語句。執行Then或Else之后的語句以后，將繼續執行EndIf之后的語句。【例3.4】演示第3章目錄19／241第3章VBScript語言2.If語句的塊形式第3章目19第3章VBScript語言3.4.2SelectCase語句

SelectCasetestexpression [Caseexpressionlist-n [statements-n]] ……. [CaseElseexpressionlist-n [elsestatements-n]] EndSelect 其中testexpression是任意數值或字符串表達式，expressionlist-n是一個或多個表達式的分界列表。statements-n是當testexpression與expressionlist-n中的任意部分匹配時執行的一條或多條語句。elsestatements-n是當testexpression與Case子句的任何部分不匹配時執行的一條或多條語句。 如果testexpression與任何Caseexpressionlist表達式匹配，則執行此Case子句與下一個Case子句之間的語句，對于最后的子句，則會執行該子句到EndSelect之間的語句，然后控制權會轉到EndSelect之后的語句。如果testexpression與多個Case子句中的expressionlist表達式匹配，則只有第一個匹配表達式后的語句被執行。CaseElse用于指示若在testexpression和任何其他Case選項的expressionlist之間未找到匹配，則執行elsestatements。如果沒有Caseexpressionlist與testexpression匹配且無CaseElse語句，則繼續執行EndSelect之后的語句?！纠?.5】演示第3章目錄20／241第3章VBScript語言3.4.2SelectC20第3章VBScript語言3.5循環語句3.5.1Do...Loop語句第一種語法格式： 第二種語法格式：Do[{While|Until}condition] Do[statements] [statements][ExitDo] [ExitDo][statements] [statements]Loop Loop[{While|Until}condition] 在Do...Loop語句的語法格式中，condition是數值或字符串表達式，其值為True或False，如果condition為Null，則condition被當作False。statements是當condition為True時被重復執行的一個或多個語句。 While關鍵字用于檢查Do...Loop語句中的條件。有兩種方式檢查條件：在進入循環之前檢查條件；或者在循環至少運行完一次之后檢查條件。只要條件為True，就會進行循環。一旦條件變成False，則退出循環。 Until關鍵字也用于檢查Do...Loop語句中的條件。有兩種方式檢查條件：在進入循環之前檢查條件；或者在循環至少運行完一次之后檢查條件。只要條件為False，就會進行循環。一旦條件變成True，則退出循環。 【例3.6】演示第3章目錄21／241第3章VBScript語言3.5循環語句第3章目錄221第3章VBScript語言3.5.2While...Wend語句 While...Wend語句當指定的條件為True時執行一系列的語句，語法格式如下：

Whilecondition [statements] Wend 其中condition是數值或字符串表達式，其計算結果為True或False。如果condition為Null，則condition被當作False。statements在條件為True時執行的一條或多條語句。 如果condition為True，則statements中所有Wend語句之前的語句都將被執行，然后控制權返回到While語句，并且重新檢查condition。如果condition仍為True，則重復執行上面的過程。如果不為True，則從Wend語句之后的語句處繼續執行程序。 While...Wend循環可以是多層嵌套結構。每個Wend與最近的While語句對應。第3章目錄22／241第3章VBScript語言3.5.2While...22第3章VBScript語言3.5.3For...Next語句

Forcounter=startToend[Stepstep] [statements] [ExitFor] [statements] Next 其中counter是用作循環計數器的數值變量，不能是數組元素；start和end分別是counter的初值和終值；step是counter的步長，其默認值為1；statements是For和Next之間的一條或多條語句，將被執行指定次數。 step參數可以是正數或負數。step參數值決定循環的執行情況：當step參數是正數或0時，若counter<=end，則執行循環；當step參數是負數時，若counter>=end，則執行循環。 當循環啟動并且所有循環中的語句都執行后，step值被加到counter中。這時，或者循環中的語句再次執行（基于循環開始執行時同樣的測試），或者退出循環并從Next語句之后的語句處繼續執行?！纠?.7】演示第3章目錄23／241第3章VBScript語言3.5.3For...Ne23第3章VBScript語言3.5.4ForEach...Next循環

ForEachelementIngroup [statements] [ExitFor] [statements] Next[element] 其中element用來枚舉集合或數組中所有元素的變量，group是對象集合或數組的名稱，statements是對于group中的每一項執行的一條或多條語句。如果group中有至少一個元素，就會進入ForEach塊執行。一旦進入循環，便首先對group中第一個元素執行循環中的所有語句。只要group中還有其他元素，就會對每個元素執行循環中的語句。當group中沒有其他元素時退出循環，然后從Next語句之后的語句處繼續執行。可以將一個ForEach...Next循環放置在另一個之中，組成嵌套式ForEach...Next循環。但是每個循環的element必須是唯一的。如果省略Next語句中的element，則程序仍會像已包含它一樣繼續執行。如果Next語句在相應的For語句之前出現，則會產生錯誤?！纠?.8】演示第3章目錄24／241第3章VBScript語言3.5.4ForEach24第3章VBScript語言3.6過程3.6.1Sub過程 Sub過程是沒有返回值的過程，可以用Sub語句來聲明其名稱、參數以及構成其主體的代碼，語法格式如下：

[Public|Private]Subname[(arglist)] [statements] [ExitSub] [statements] EndSub 其中Public表示Sub過程可以被所有腳本中的所有其他過程訪問；Private表示Sub過程只可以被聲明該過程的腳本中的其他過程訪問；name指定Sub過程的名稱，遵循標準變量命名約定；statements在Sub過程主體內所執行的任何語句組；使用ExitSub語句可以立即從Sub過程中退出，程序繼續執行調用Sub過程的語句之后的語句；arglist代表在調用時要傳遞給Sub過程的參數的變量列表，用逗號隔開多個變量。第3章目錄25／241第3章VBScript語言3.6過程第3章目錄225第3章VBScript語言過程的調用 使用Call語句可以將控制權傳遞給Sub或Function過程，語法為：

[Call]name[argumentlist] 其中Call是可選關鍵字，如果指定了此關鍵字，則必須用括號把argumentlist括起來；name是必選的，用于指定要調用的過程名；argumentlist是可選的，給出傳遞給過程的變量、數組或表達式列表，用逗號分隔每一項。 在調用過程時，不必使用Call關鍵字。然而，如果使用Call關鍵字調用要求參數的過程，則必須用括號將argumentlist括起來。如果省略Call關鍵字，則必須同時省略argumentlist參數兩邊的括號。使用Call語法調用內部函數或使用用戶自定義函數，函數返回值都會被放棄。 當把控制權傳遞給過程時，會把Sub和EndSub之間的所有語句執行一遍，然后從調用該過程的語句的下一條語句處繼續執行。如果在過程中執行了ExitSub語句，則會立即從過程中退出，并繼續執行過程調用語句的下一條語句。ExitSub語句通常是與判定結構一起使用的，當某個條件成立時才退出過程?！纠?.9】演示第3章目錄26／241第3章VBScript語言過程的調用第3章目錄26／2426第3章VBScript語言3.6.2Function過程 Function過程擁有返回值，用Function語句來聲明其名稱、參數以及構成其主體的代碼，語法為：

[Public|Private]Functionname[(arglist)] …… name=expression EndFunction 其中Public表示Function過程可以被所有腳本中的所有其他過程訪問；Private表示Function過程只能被聲明它的腳本中的其他過程訪問；name指定Function過程的名稱，遵循標準的變量命名規則；statements在Function過程的主體中執行的任意語句組；expression給出Function過程的返回值；使用ExitFunction語句可以從Function過程中立即退出，程序繼續執行調用Function過程的語句之后的語句；arglist代表調用時要傳遞給Function過程的參數的變量列表。 【例3.10】演示第3章目錄27／241第3章VBScript語言3.6.2Function27第3章VBScript語言3.6.3常用內部函數 VBScript提供了大量的內部函數，可以在腳本代碼中直接使用這些函數。下面給出幾個常用內部函數：Abs 返回數的絕對值Array 返回含有數組的變體Asc 返回字符串首字母的ANSI字符碼Atn 返回數值的反正切CBool 返回已被轉換為Boolean子類型的變體的表達式CByte 返回已被轉換為字節子類型的變體的表達式CCur 返回已被轉換為貨幣子類型的變體的表達式CDate 返回已被轉換為日期子類型的變體的表達式CDbl 返回已被轉換為雙精度子類型的變體的表達式

表3.17列出了常用的內部函數。若要了解這些函數的詳細用法，請查閱VBScript語言參考。第3章目錄28／241第3章VBScript語言3.6.3常用內部函數第328第3章VBScript語言3.6.4響應HTML事件 HTML文檔中的每個元素都是一個擁有屬性、方法和事件的對象，稱為文檔對象。當觸發一個文檔對象的某個事件時，該對象能夠按照某種方式做出響應，但具體的響應過程需要由程序員編寫腳本代碼來實現，這種過程稱為事件過程。1.基本事件列表onLoad：當Web瀏覽器加載窗口或框架集時發生。onUnLoad：當Web瀏覽器從窗口或框架集卸載一個文檔時發生。onClick：當一個元素被鼠標單擊時發。onDbClick：當一個元素被鼠標雙擊時發生。onMouseDown： 當在一個元素上方鼠標被按下時發生。onMouseUp：在一個元素上方鼠標被釋放時發生。onMouseOver：當鼠標指針從一個元素上方經過時發生。onMouseMove：當鼠標指針在一個元素上方移動時發生。onMouseOut：當鼠標指針離開一個元素時發生。onFocus：當一個元素接收到來自鼠標或鍵盤的焦點時發生。 表3.18列出了基本的HTML事件。第3章目錄29／241第3章VBScript語言3.6.4響應HTML事件29第3章VBScript語言2.事件過程的調用方式 在VBScript中，可以通過多種方式來調用事件過程。下面介紹常用的四種方法。(1)通過名稱調用事件過程：在<SCRIPT>標記內用Sub語句來定義事件過程，并且要求過程名稱必須由控件名稱、下劃線（_）以及事件名稱組合而成。例如，單擊名稱為Button1的按鈕時，會自動調用Button1_onClick事件過程。(2)通過FOR/EVNET屬性調用事件過程：設置<SCRIPT>標記的FOR屬性以指定HTML頁面中的一個對象，并通過EVENT屬性指定該對象的一個事件。例如：(3)通過控件的屬性調用事件處理過程：在<SCRIPT>標記中定義一個通用的Sub過程，并通過控件的相關屬性來調用該過程。(4)在標記中直接編寫腳本語句：若事件過程比較簡單，則可以在定義元素的標記中直接編寫腳本語句。若要包含多條語句，用冒號（:）分開各個語句。

【例3.11】演示第3章目錄30／241第3章VBScript語言2.事件過程的調用方式第3章30第3章VBScript語言3.7文檔對象模型3.7.1文檔對象概述 文檔對象模型是可以被任何腳本引擎訪問的對象的集合，它提供了對Web瀏覽器的訪問。但VBScript語言沒有其對象模型，它使用MicrosoftInternetExploer瀏覽器的對象模型，這是一種具有層次結構的對象模型，其中每個對象都有屬性、方法和事件，而屬性本身也是對象，它又包含屬性、方法和事件。 在文檔對象模型中，最頂層的對象是Window對象，它表示瀏覽器窗口，可以通過它來獲取瀏覽器窗口的狀態信息、訪問HTML頁面元素并處理在瀏覽器窗口中發生的事件。 在瀏覽器窗口中可以包含框架，為了訪問指定框架中的文檔，必須先訪問相應的Frame對象，然后才能訪問該框架內的文檔對象。 Document對象是Window對象的一個重要屬性，它表示在瀏覽器窗口中顯示的HTML文檔，該對象本身又有自己的屬性，其中Link、Anchor和Form屬性也是對象。第3章目錄31／241第3章VBScript語言3.7文檔對象模型第3章目31第3章VBScript語言3.7.2Window對象 Window對象代表在瀏覽器中打開的窗口，它是文檔對象層次結構中位于最上層的對象，所有其他對象都可以視為Window對象的屬性。若文檔定義了一個或多個框架，則瀏覽器將為最初的文檔創建一個Window對象，然后為每個框架創建一個Window對象。1.Window對象的屬性(1)Name屬性：用于指定窗口的名稱，可以使用A標記的TARGET屬性指定窗口的名稱，也可以使用Open方法打開一個指定名稱的新窗口。(2)DefaultStatus屬性：用于設置或讀取瀏覽器窗口狀態欄中的默認顯示信息。例如，可以在Window對象的OnLoad事件過程中編寫以下語句：

<BODYonLoad="Window.DefaultStatus='歡迎您光臨本站點！'"LANGUAGE="VBScript">(3) Status屬性：用于設置或讀取瀏覽器窗口狀態欄中顯示的臨時信息。例如，可以在某張圖片的OnMouseOver事件過程中編寫以下代碼：

Window.Status="這是一張圖片。"第3章目錄32／241第3章VBScript語言3.7.2Window對象32第3章VBScript語言2.Window對象的方法(1)Alert方法：用來顯示一個警告對話框。(2)Confirm方法：用來顯示一個確認對話框。(3)Prompt方法：其作用類似于InputBox函數，即顯示一個提示對話框，提示用戶輸入數據。(4)Open方法：用于打開一個已存在的窗口，或者創建一個新窗口，并在該窗口中加載一個。(5)Close方法：用來關閉一個打開的窗口。(6)SetTimeout方法：用來設置一個計時器，以便在經過指定的時間間隔后調用一個過程。(7)ClearTimeout方法：用于將指定的計時器復位。(8)Navigate方法：用來在當前窗口中顯示新文檔。3.Window對象的事件 Window對象有兩個事件：即onLoad和onUnLoad事件，前者在頁面加載時被觸發，后者在頁面卸載時被觸發。【例3.12】演示第3章目錄33／241第3章VBScript語言2.Window對象的方法第33第3章VBScript語言3.7.3Document對象 Document對象表示在瀏覽器窗口或其中一個框架中顯示的HTML文檔，通過該對象的屬性和方法可以控制頁面的外觀和內容。1.Document對象的屬性(1)LinkColor屬性：用來設置或返回文檔中超鏈接的顏色。(2)aLinkColor屬性：用來設置或返回文檔中活動鏈接的顏色。(3)vLinkColor屬性：用來設置或返回已經訪問過的超鏈接的顏色。(4)bgColor屬性：用來設置或返回文檔的背景顏色。(5)fgColor屬性：用來設置或返回文檔中文本的顏色。(6)Anchor屬性：這是一個對象屬性，用來表示文檔中的錨點。(7)Title屬性：用來返回當前文檔的標題，在運行期間不能改變。(8)Location屬性：用來設置或返回文檔的URL。(9)Link屬性：這是一個對象屬性，用來表示文檔中的超鏈接。(10)LastModified屬性：返回當前文檔的最后修改日期。(11)Referrer屬性：用于返回鏈接到當前頁面的那個頁面的URL。第3章目錄34／241第3章VBScript語言3.7.3Document34第3章VBScript語言2.Document對象的方法 Document對象有五個方法，通過這些方法可以對文檔內容進行控制。(1)Open方法：用來為輸出打開文檔。執行該方法后，文檔中的當前內容被清除，可以使用Write或WriteLn方法將新內容寫到文檔中。(2)Write方法：用于向文檔中寫入HTML代碼，語法格式如下：

Document.Writestring 其中string是字符串常量或字符串變量，表示要寫入文檔的HTML代碼。執行Write方法后，string參數指定的內容插入到文檔的當前位置，但寫入的內容要用Close方法關閉文檔后才能顯示出來。(3)WriteLn方法：用于向文檔中寫入HTML代碼，語法格式如下：

Document.WriteLnstring 其中string是字符串常量或字符串變量，表示要寫入文檔的HTML代碼。WriteLn方法與Write方法類似，所不同的是WriteLn在內容末尾添加一個換行符。(4)Close方法：用來關閉文檔，并顯示所有使用Write或WriteLn方法寫入的內容。(5)Clear方法：用來清除當前文檔的內容。

【例3.13】演示第3章目錄35／241第3章VBScript語言2.Document對象的方35第3章VBScript語言3.7.4其他文檔對象1.History對象 History對象包含用戶已經瀏覽過的URL集合，提供了瀏覽器的導航按鈕功能，可以通過文檔的歷史記錄來瀏覽文檔。History對象擁有以下主要屬性和方法。(1)Length屬性：給出歷史表中的URL數目。(2)Back方法：用于在歷史表中往回搜索。(3)Forward方法：用于在歷史表中向前搜索。(4)Go方法：在歷史表中跳轉到指定的項。2.Navigator對象 Navigator對象包含瀏覽器的信息，該對象擁有以下主要屬性。(1)AppCodeName屬性：返回瀏覽器的代碼名稱。對于MicrosoftInternetExploer，將返回“Mozilla”。(2)AppName屬性：返回瀏覽器的名稱。對于MicrosoftInternetExploer，將返回“MicrosoftInternetExploer”。(3)AppVersion屬性：返回瀏覽器的版本號。(4)UserLanguage屬性：返回當前用戶所使用的語言。如果用戶使用簡體中文Windows，則返回“zh-cn”。第3章目錄36／241第3章VBScript語言3.7.4其他文檔對象第336第3章VBScript語言3.Location對象Location對象包含當前URL的信息。該對象包括以下主要屬性和方法。(1)Href屬性：返回或設置當前文檔的完整URL。(2)Hash屬性：用于返回或設置當前URL中“#”后面的部分，也就是書簽的名稱。(3)Host屬性：用于返回或設置當前URL中的主機名和端口部分。(4)HostName屬性：用于返回或設置當前URL中的主機名。(5)Port屬性：用于返回或設置當前URL中的端口部分。(6)PathName屬性：用于返回或設置當前URL中的路徑部分。(7)Protocol屬性：用于返回或設置當前URL中的協議類型。(8)Search屬性：用于返回或設置當前URL中的查詢字符串（如果有的話）。查詢字符串將數據提交給服務器時在URL中緊跟在問號后面的內容。(9)ReLoad方法：重新加載當前文檔。4.Link對象 Link對象表示文檔中的超鏈接，通過該對象的一些屬性可以得到鏈接目標。Link對象的基本屬性是Length，它返回文檔中鏈接的數目。每個鏈接都是Links數組中的一個元素，可以通過索引值來訪問。例如，第一個鏈接是Links(0)，第二個鏈接是Links(1)，最后一個鏈接是Links(Links.Length)。第3章目錄37／241第3章VBScript語言3.Location對象第337第3章VBScript語言3.1VBScript概述3.2VBScript基本元素3.3基本輸入輸出

3.4條件語句

3.5循環語句

3.6過程3.7文檔對象模型38／241第3章VBScript語言3.1VBScript概38第3章VBScript語言3.1VBScript概述3.1.1什么是VBScript VBScript是程序開發語言VisualBasic家族的最新成員，可以將靈活的腳本應用于更廣泛的領域，包括MicrosoftInternetExplorer中的Web客戶端腳本和MicrosoftInternetInformationServer中的Web服務器端腳本。VBScript腳本語言有以下主要特點：(1)易學易用。如果讀者已經了解VisualBasic或VisualBasicforApplications，就會很快熟悉VBScript。(2)ActiveX腳本。VBScript使用ActiveX腳本與宿主應用程序對話；所用的腳本編寫引擎是vbscript.dll，該引擎能夠識別VBScript代碼；腳本編寫宿主是使用腳本編寫引擎的應用程序，InternetExplorer就是宿主應用程序的一個例子，它通過引擎來運行腳本。(3)其他應用程序和瀏覽器中的VBScript。開發者可以在其產品中免費使用VBScript來實現程序。第3章目錄39／241第3章VBScript語言3.1VBScript概述39第3章VBScript語言3.1.2在HTML頁面中添加VBScript代碼 通常將VBScript腳本代碼放在HEAD部分中，以使所有腳本代碼集中放置，這樣能確保在BODY部分調用代碼之前讀取并解碼所有腳本代碼。在HTML頁面中添加VBScript腳本代碼時，應以<SCRIPT>標記開始，而以</SCRIPT>標記結束，基本語法格式為：

<SCRIPTLANGUAGE=“腳本語言名稱” [EVENT="事件名稱"][FOR="對象名稱"]>

<!-- 腳本代碼 --> </SCRIPT> <SCRIPT>標記具有以下三個屬性：(1)LANGUAGE：指定腳本代碼所使用的腳本語言。對于InternetExplorer瀏覽器來說，該屬性的取值可以是“VBScript”或“JScript”，前者也可以簡寫為“VBS”。(2)EVENT：指定與腳本代碼相關聯的事件。(3)FOR：指定與事件相關聯的對象?！纠?.1】演示第3章目錄40／241第3章VBScript語言3.1.2在HTML頁面中40第3章VBScript語言3.2VBScript基本元素3.2.1數據類型 在VBScript語言中只有一種數據類型，即Variant，這種數據類型可以包含不同類別的信息，它也是VBScript中所有函數的返回值的數據類型。Variant包含的數值信息類型稱為子類型，包括：Empty： 未初始化的Variant。Null： 不包含任何有效數據的VariantBoolean： 包含True或FalseByte ： 包含0到255之間的整數Integer： 包含-32,768到32,767之間的整數Currency： -922,337,203,685,477.5808到922,337,203,685,477.5807Long： 包含-2,147,483,648到2,147,483,647之間的整數Single： 包含單精度浮點數Double 包含雙精度浮點數Date（Time）： 含表示日期的數字String： 包含變長字符串，最大長度可為20億個字符Object： 包含對象Error： 包含錯誤號第3章目錄41／241第3章VBScript語言3.2VBScript基本41第3章VBScript語言3.2.2VBScript常量1.普通常量 普通常量分為字符串常量和數值常量兩種。 字符串常量簡稱字符串，它由一對雙引號括起來的字符序列所組成，其中可以包含字母、漢字、數字，空格以及標點符號等，長度不超過20億個字符。例如，“ASP動態網頁設計”，“MicrosoftExplorer瀏覽器”。 數值常量分為整型數、長整型數和浮點數。整型數和長整型數都可以用十進制、十六進制和八進制三種形式來表示。使用十六進制數時，應在數字前面加上&H前綴；使用八進制數時，應在數字前面加上&O前綴。對于長整型數，使用十六進制或八進制形式表示時，還要在數字后面加上后綴&。浮點數也稱為實型數，分為單精度浮點數和雙精度浮點數。浮點數可以用小數形式表示，也可以用科學記數法表示。2.符號常量 符號常量是用一個標識符表示的常量，用于代替數字或字符串，其值從發生不改變。在VBScript中，符號常量分為預定義符號常量和用戶自定義常量。 VBScript提供了許多預定義符號常量，在編寫腳本代碼時無須聲明即可直接使用。例如，vbCrLf表示回車符和換行符的組合，vbGreen表示綠色的數值。第3章目錄42／241第3章VBScript語言3.2.2VBScript42第3章VBScript語言3.2.3VBScript變量1.聲明變量 在VBScript中，通常使用Dim語句顯式聲明變量并分配存儲空間，語法格式如下：

Dim變量名[,變量名]例如，下面的兩個語句分別聲明了一個變量和四個變量：

DimUserName DimTop,Bottom,Left,Right此外，也可以通過直接在腳本中使用變量名這種方式隱式聲明變量。但這通常不是一個好習慣，因為這樣有時會由于變量名被拼錯而導致在運行腳本時出現意外的結果。若要強制顯式聲明所有變量，可以在腳本程序的開頭處使用下面的語句：OptionExplicit2.命名規則 每一個變量都必須用一個標識符來作為其名稱。變量命名必須遵循VBScript的標準命名規則。變量的命名規則為：第一個字符必須是字母；不能包含嵌入的句點（.）；長度不能超過255個字符；在被聲明的作用域內必須唯一；不能與VBScript的關鍵詞相同。第3章目錄43／241第3章VBScript語言3.2.3VBScript43第3章VBScript語言3.變量的作用域與存活期 變量的作用域由聲明它的位置決定。如果在過程中聲明變量，則只有該過程中的代碼可以訪問或更改變量值，此時變量具有局部作用域并被稱為過程級變量。如果在過程之外聲明變量，則該變量可以被腳本中所有過程所識別，稱為腳本級變量，具有腳本級作用域。 變量存在的時間稱為存活期。腳本級變量的存活期從被聲明的一刻起，直到腳本運行結束。對于過程級變量，其存活期僅是該過程運行的時間，該過程結束后，變量隨之消失。在執行過程時，局部變量是理想的臨時存儲空間。在不同過程中可以使用同名的局部變量，這是因為每個局部變量只被聲明它的過程識別。4.給變量賦值 在VBScript中，可以通過賦值語句指定變量的值，此時變量位于等號的左邊，要賦的值位于等號的右邊，該值可以是任何數值、字符串、常數或表達式。例如： UserName="張三豐" BirthDate=#1972-5-28# WeekWage=500第3章目錄44／241第3章VBScript語言3.變量的作用域與存活期第344第3章VBScript語言5.標量變量和數組變量 只包含一個值的變量稱為標量變量。包含一系列值的變量稱為數組變量。數組變量和標量變量是以相同的方式聲明的，唯一的區別是聲明數組變量時變量名后面帶有括號()。下面的語句聲明了一個一維數組：

DimA(10) 雖然括號中顯示的數字是10，但由于在VBScript中所有數組都是基于0的，所以這個數組實際上包含11個元素。在基于0的數組中，數組元素的數目總是括號中顯示的數目加1。這種數組被稱為固定大小的數組，簡稱為定長數組。 在數組中，使用數組名和索引來引用數組的每個元素，語法格式如下：

數組名(索引值) 下面的賦值語句將數據賦給數組元素，或者將數組元素的值賦給變量：

A(0)=256:A(1)=368:A(2)=121:SomeVariable=A(8) 數組并不僅限于一維。數組的維數最大可以為60。聲明多維數組時，使用逗號分隔括號中每個表示數組大小的數字。例如，下面語句聲明了一個有6行和11列的二維數組，其名稱為MyTable：

DimMyTable(5,10) 聲明二維數組時，括號中的第一個數字表示行的最大索引值，第二個數字表示列的最大索引值。第3章目錄45／241第3章VBScript語言5.標量變量和數組變量第3章45第3章VBScript語言6.動態數組 動態數組是在運行腳本時大小發生變化的數組。對動態數組的最初聲明可以使用Dim語句或ReDim語句來實現，但括號中不能包含任何數字。例如：

DimMyArray() ReDimAnotherArray() 若要使用動態數組，必須隨后使用ReDim確定維數和每一維的大小。例如，下面的ReDim語句將動態數組的初始大小設置為25，而后面的ReDim語句將數組的大小重新調整為30，同時使用Preserve關鍵字在重新調整大小時保留數組的內容。

ReDimMyArray(25) …… ReDimPreserveMyArray(30) 重新調整動態數組大小的次數是沒有任何限制的，但是應注意，將數組的大小調小時，將會丟失被刪除元素的數據。第3章目錄46／241第3章VBScript語言6.動態數組第3章目錄9／246第3章VBScript語言3.2.4VBScript運算符1.算術運算符VBScript提供了九個算術運算符，用來執行簡單的算術運算。(1)求冪運算符（^）： result=number^exponent(2)乘法運算符（*）： result=number1*number2(3)除法運算符（/）： result=number1/number2(4)整除運算符（\）： result=number1\number2(5)求余運算符（Mod）： result=number1Modnumber2(6)加法運算符（＋）： result=expression1+expression2(7)減法運算符（－）：

result=number1-number2（減法） -number（負號）第3章目錄47／241第3章VBScript語言3.2.4VBScript47第3章VBScript語言2.連接運算符 連接運算符（&）強制兩個表達式進行字符串連接，語法格式如下：

result=expression1&expression2 其中result為任意變量，expression1和expression2都是任意表達式。當任一expression不是字符串時，它將被轉換為String子類型。如果兩個表達式都是Null，則result也為Null。然而，如果僅有一個expression為Null，則它和其他表達式連接時，按零長度字符串（""）處理。任何表達式為Empty時也按零長度字符串處理。第3章目錄48／241第3章VBScript語言2.連接運算符第3章目錄1148第3章VBScript語言3.比較運算符比較運算符用于比較表達式，包括： <（小于） <=（小于或等于） >（大于） >=（大于或等于） =（等于） <>（不等于）比較表達式的規則或結果 若兩個表達式都是數值，則執行數值比較；若兩個表達式都是字符串，則執行字符串比較；若一個表達式是數值而另一個是字符串，則數值表達式小于字符串表達式；若一個表達式是數值而另一個是字符串，則數值表達式小于字符串表達式；若一個表達式是Empty而另一個是數值，則執行數值比較，使用0作為Empty表達式；若一個表達式是Empty而另一個是字符串，則執行字符串比較，使用零長度字符串（“”）為Empty表達式；若兩個表達式都是Empty，則表達式相等。第3章目錄49／241第3章VBScript語言3.比較運算符第3章目錄1249第3章VBScript語言4.邏輯運算符(1)Not運算符：對表達式執行邏輯非運算，語法格式如下：

result=Notexpression(2)And運算符：對兩個表達式進行邏輯“與”運算，語法格式如下：

result=expression1Andexpression2And運算符還可以對兩個數值表達式中位置相同的位執行逐位比較。(3)Or運算符：對兩個表達式進行邏輯“或”運算，語法格式如下：

result=expression1Orexpression2Or運算符還可以對兩個數值表達式中位置相同的位執行逐位比較。(4)Xor運算符：對兩個表達式進行邏輯“異或”運算，語法格式如下：

result=expression1Xorexpression2Xor運算符還可以對兩個數值表達式中位置相同的位執行逐位比較。(5)Eqv運算符：執行兩個表達式的邏輯等價運算，語法格式為：

result=expression1Eqvexpression2Eqv運算符還可以執行兩個數值表達式相應位的逐位比較。(6)Imp運算符：對兩個表達式進行邏輯蘊涵運算，語法格式如下：

result=expression1Impexpression2Imp運算符還可以執行兩個數值表達式相應位的逐位比較。第3章目錄50／241第3章VBScript語言4.邏輯運算符第3章目錄1350第3章VBScript語言5.運算符優先級 當表達式包含多個運算符時，將按預定順序計算每一部分，這個順序被稱為運算符優先級。使用括號可以越過這種優先級順序，強制首先計算表達式的某些部分。運算時，總是先執行括號中的運算符，然后再執行括號外的運算符。但在括號中仍要遵循標準運算符優先級。

當表達式包含多種運算符時，首先計算算術運算符，然后計算比較運算符，最后計算邏輯運算符。所有比較運算符的優先級相同，即按照從左到右的順序計算比較運算符。算術運算符、比較運算符和邏輯運算符的優先級在表3.14中列出。第3章目錄51／241第3章VBScript語言5.運算符優先級第3章目錄151第3章VBScript語言3.3基本輸入輸出3.3.1基本語句 賦值語句將表達式的值賦給變量或屬性。如果要將對象引用賦給變量或屬性，則不能使用賦值語句，而應使用Set語句，其語法格式如下：

Setobjectvar={objectexpression|Newclassname|Nothing} 其中objectvar用于指定變量或屬性的名稱，objectexpression是由對象名稱、另一個已聲明為相同對象類型的變量或返回相同對象類型的對象的函數或方法組成的表達式，New關鍵字用于創建新的類的實例，classna