VBScript腳本語(yǔ)言

1、VBScript腳本語(yǔ)言數(shù)據(jù)類(lèi)型嚴(yán)格說(shuō)來(lái)，VBScript只有一種數(shù)據(jù)類(lèi)型Varianto VBScript會(huì)依據(jù)使用的場(chǎng)合與時(shí)機(jī)，自行決定數(shù)據(jù)為數(shù)值或字符串。變量命名規(guī)則1由字母、數(shù)字、下劃線組成變量的聲明2首字符必須為英文字母 用dim語(yǔ)句:例如，dim intNumber3不得和保留字(dim and or等)重復(fù)數(shù)組的聲明4不區(qū)分大小? j Dim aryName (10)下標(biāo)從0開(kāi)始，共有5在有效范圍內(nèi)，變量名稱必須是唯一的11個(gè)元素6變量名稱長(zhǎng)度不得超過(guò)255運(yùn)算符算術(shù)運(yùn)算符:+加-減*乘/除-負(fù)數(shù)商Mod余邏輯運(yùn)算符：大于 =大于等于小于U小于等于二等于不等于IS判斷兩個(gè)變量是否

2、參照于同一個(gè)對(duì)象，返回值:true、false連接運(yùn)算符:& +邏輯運(yùn)算符:and邏輯與or邏輯或not邏輯非xor異或，一真一假時(shí)返回true 值。eqv判斷兩個(gè)條件式是否相等；同真或同假時(shí)返回true值。Imp關(guān)聯(lián)運(yùn)算符運(yùn)算優(yōu)先級(jí)括號(hào)算術(shù)連接比較邏輯條件判斷語(yǔ)句1辻語(yǔ)句例：if age50 thenstrMsg二”老年人”elseif age18 then strMsg二中青年人”elsestrMsg二”未成年人” end ifresponse .write strMsg 2 select case 語(yǔ)句 例：selectcase 1, 3, 5, 7, 9strMsg二”奇數(shù)” case

3、 2, 4, 6, 8, 10strMsg二”偶數(shù)”case else strMsg二”其他end selectresponse .write strMsg循環(huán)語(yǔ)句1 fornext 語(yǔ)句例：for i=l to 5response .write inext 2 while wend 語(yǔ)句例：while not rsl.EOFrslMoveNextwend3 doloop語(yǔ)句語(yǔ)法1：先判斷，后循環(huán) 語(yǔ)法2:循環(huán)1次，再判斷實(shí)例Iexpression Do i=10case num_berwhile!until代碼段代碼段do while i=100exit do exit do respons

4、e, write i 代碼段代碼段i=i+10 loop loop while!until expression loop4 for each-next語(yǔ)句主要用來(lái)處理數(shù)組或是集合對(duì)象內(nèi)的個(gè)別字符。語(yǔ) 法：for each element in group代碼段exit for next實(shí)例：dim aryNum (5), intSun, item, i aryNum (0)=5 aryNum (1)=17 aryNum(2)=15 aryNum (3)=29 aryNum (4)=245 aryNum (5)=83 i=l for each item in aryNum intSum=int

5、Sum+item i 二 i+1 next response .write 個(gè)數(shù)：” &i&;總 和：& intSum子程序和自定義函數(shù)二者的建立、調(diào)用與參數(shù)傳遞方式相同。區(qū)別：函數(shù)有返回值，借以送出運(yùn)算 結(jié)果。子程序函數(shù)Sub subname (arguments) Function functionname (argument) 定義代碼段代碼段end sub end function調(diào)用 1 subname SngR ”SngR 為參數(shù) 變量名=functionname (argument)2 call subname (SngR)子程序參數(shù)傳遞方式傳值調(diào)用 參數(shù)前加上ByVal關(guān)鍵字(

6、例:call subname (ByVai SngR),復(fù)制了參數(shù)副本，主程序中原值不隨子程序改變。傳址調(diào)用 默認(rèn)方式。參數(shù)可以改名，但是二者指向同一內(nèi)存空間，所以更改 后者內(nèi)容，連帶會(huì)影響笫一個(gè)參數(shù)的值。在 Internet Explorer 中使用 VBScriptHTML Hello World SCRIPTLANGUAGE二VBScript H3個(gè)簡(jiǎn)單首頁(yè) HTML當(dāng)Internet Explorer讀取頁(yè)面時(shí)，找到SCRIPT標(biāo)記，識(shí)別出VBScript 代碼并保存代碼。單擊按鈕時(shí)，Internet Explorer使按鈕與代碼連接，并運(yùn)行該 過(guò)程。標(biāo)記中的Sub過(guò)程是一個(gè)事件過(guò)程。

7、過(guò)程名包含兩部分:一部分為 按鈕名，即Buttonl (從標(biāo)記中的NAME屬性獲取)，另一部分為事件 名，即OnClicko兩部分由下劃線(_)連接。單擊按鈕時(shí)，Internet Explorer 查找并運(yùn)行相應(yīng)的事件過(guò)程，即Buttonl_OnClickoInternet Explorer 在 Internet Explorer Scripting Object Model 文檔中 定義了可用于窗體控件的事件。向事件附加代碼的其他方法一種方法是在定義控件的標(biāo)記中添加較短的內(nèi)部代碼。例如在單擊按鈕時(shí)，下 面的標(biāo)記執(zhí)行與前面示例相同的操作：INPUT NAME二Buttonl TYPE二BUTT

8、ON VALUE二單擊此處OnClick二MsgBox Hello World另一種方法是在SCRIPT標(biāo)記中指定特定的控件和事件：由于SCRIPT標(biāo) 記指定了事件和控件，所以不需要再用Sub和End Sub語(yǔ)句。 MsgBox Mirabile visu. 簡(jiǎn)單驗(yàn)證HTML簡(jiǎn)單驗(yàn)證 SCRIPT LANGUAGE二VBScript! Sub Submit_0nClick Dim TheForm Set TheForm = Document. ValidForm If IsNumeric(TheForm. Textl. Value) Then If TheForm. Textl. Value

9、10 Then MsgBox 請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。 Else MsgBox 謝謝。End If Else MsgBox 請(qǐng)輸入一個(gè)數(shù)字。End If End Sub H3簡(jiǎn)單驗(yàn)證FORM NAME=，ValidForm， 請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字： INPUT NAME二Submit TYPE二BUTTON VALUE二提交 /FORM 常用函數(shù)CInt函數(shù) 返回表達(dá)式，此表達(dá)式已被轉(zhuǎn)換為Integer子類(lèi)型的Variant。CInt (expression) CStr函數(shù)返回表達(dá)式，該表達(dá)式已被轉(zhuǎn)換為String 了類(lèi)型 的Variant。CStr(expres

10、sion) InStr函數(shù) 返回某字符串在另一字符串中第一次 出現(xiàn)的位置。InStr (start, Jstringl, string2, compare)Left函數(shù)返回指定數(shù)LI的從字符吊的左邊算起的字符。Left (string, length) Mid函數(shù) 從字符串中返回指定數(shù)LI的字符。Mid (string, start , length) LTrim、Rtrim Trim函數(shù)返回不帶前導(dǎo)空格、后續(xù)空格或前導(dǎo)與后續(xù) 空格的字符串副本。Trim (string) Split返回基于0的一維數(shù)組，其中包含指定 數(shù)訂的子字符串。Split (expressionE, delimiter, count , start) DateDiff函數(shù)用于判斷在兩個(gè)日