【正文】 果雖然有點(diǎn)簡(jiǎn)單：一個(gè)對(duì)話框顯示一個(gè)拉丁短語(yǔ)（意為“看起來(lái)非常漂亮”）。然而這段代碼實(shí)際上作了許多事情。 當(dāng) Internet Explorer 讀取頁(yè)面時(shí)，找到 SCRIPT 標(biāo)記，識(shí)別出 VBScript 代碼并保存代碼。單擊按鈕時(shí)，Internet Explorer 使按鈕與代碼連接，并運(yùn)行該過(guò)程。 SCRIPT 標(biāo)記中的 Sub 過(guò)程是一個(gè)事件過(guò)程。過(guò)程名包含兩部分：一部分為按鈕名，即 Button1（從 INPUT 標(biāo)記中的 NAME 屬性獲?。硪徊糠譃槭录?，即 OnClick。兩部分由下劃線 (_) 連接。單擊按鈕時(shí)，Internet Explorer 查找并運(yùn)行相應(yīng)的事件過(guò)程，即 Button1_OnClick。 Internet Explorer 在 Internet Explorer Scripting Object Model 文檔中定義了可用于窗體控件的事件。 頁(yè)面也可以使用控件與過(guò)程的組合。VBScript 與窗體顯示了控件之間的一些簡(jiǎn)單交互作用。 向事件附加代碼的其他方法上述的方法也許是最簡(jiǎn)單和最常用的，但也可以使用另外兩種方法向事件附加 VBScript 代碼。一種方法是在定義控件的標(biāo)記中添加較短的內(nèi)部代碼。例如在單擊按鈕時(shí)，下面的 INPUT 標(biāo)記執(zhí)行與前面示例相同的操作： INPUT NAME=Button1 TYPE=BUTTONVALUE=單擊此處 OnClick=39。MsgBox Mirabile visu.39。請(qǐng)注意函數(shù)調(diào)用包含在單引號(hào)中，MsgBox 函數(shù)的字符串包含在雙引號(hào)中。只要用冒號(hào) (:) 分隔語(yǔ)句，就可以使用多條語(yǔ)句。 另一種方法是在 SCRIPT 標(biāo)記中指定特定的控件和事件： SCRIPT LANGUAGE=VBScript EVENT=OnClick FOR=Button1!MsgBox Mirabile visu./SCRIPT由于 SCRIPT 標(biāo)記指定了事件和控件，所以不需要再用 Sub 和 End Sub 語(yǔ)句。第十三課 VBScript與窗體使用 Visual Basic Scripting Edition，您可以完成通常要在服務(wù)器上進(jìn)行的大量窗體處理工作，也可以完成不能在服務(wù)器上進(jìn)行的工作。 這是一個(gè)簡(jiǎn)單的客戶端驗(yàn)證的樣例。HTML 代碼的結(jié)果是一個(gè)文本框和一個(gè)按鈕。如果使用 Microsoft? Internet Explorer 查看用以下代碼制作的頁(yè)面，您會(huì)看到一個(gè)旁邊帶有按鈕的小文本框。HTMLHEADTITLE簡(jiǎn)單驗(yàn)證/TITLESCRIPT LANGUAGE=VBScript !Sub Submit_OnClickDim TheFormSet TheForm = If IsNumeric() ThenIf 1 Or 10 ThenMsgBox 請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。ElseMsgBox 謝謝。End IfElseMsgBox 請(qǐng)輸入一個(gè)數(shù)字。End IfEnd Sub/SCRIPT/HEADBODYH3簡(jiǎn)單驗(yàn)證/H3HRFORM NAME=ValidForm請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字：INPUT NAME=Text1 TYPE=TEXT SIZE=2INPUT NAME=Submit TYPE=BUTTON VALUE=提交/FORM/BODY/HTML這個(gè)文本框與 VBScript 頁(yè)面的簡(jiǎn)單樣例中示例的不同之處在于文本框的 Value 屬性被用于檢查輸入值。要使用文本框的 Value 屬性，代碼必須引用文本框的名稱。 每次引用文本框時(shí)都應(yīng)寫出全稱，即 。但是，當(dāng)多次引用窗體控件時(shí)，可以按照以下步驟操作：首先聲明一個(gè)變量，然后使用 Set 語(yǔ)句將窗體 賦給變量 TheForm，這樣就能使用 引用文本框。常規(guī)的賦值語(yǔ)句（例如 Dim）在這里無(wú)效，必須使用 Set 來(lái)保持對(duì)對(duì)象的引用。 使用數(shù)字請(qǐng)注意以上示例直接檢測(cè)輸入值是否是一個(gè)數(shù)字：使用 IsNumeric 函數(shù)確定文本框中的字符串是否是一個(gè)數(shù)字。雖然 VBScript 能夠自動(dòng)轉(zhuǎn)換字符串和數(shù)字，但檢測(cè)用戶輸入值的數(shù)據(jù)子類型，并且在必要時(shí)使用轉(zhuǎn)換函數(shù)始終是一個(gè)好的習(xí)慣。在用文本框的 Value 屬性進(jìn)行加法運(yùn)算時(shí)，應(yīng)將它顯式地轉(zhuǎn)換為數(shù)字，這是因?yàn)榧犹?hào) (+) 操作符不但可進(jìn)行加法操作，而且可進(jìn)行字符串連接操作。例如，如果 Text1 中包含“1”，Text2 中包含“2”，您將會(huì)看到以下結(jié)果： A = + 39。 A 為“12”A = CDbl() + 39。 A 為 3驗(yàn)證后將數(shù)據(jù)傳遞回服務(wù)器簡(jiǎn)單驗(yàn)證樣例使用的是普通按鈕控件。如果使用 Submit 控件，所有數(shù)據(jù)都會(huì)被立即傳送到服務(wù)器，示例將不會(huì)看到數(shù)據(jù)來(lái)進(jìn)行檢查。避免使用 Submit 控件使您可以檢查數(shù)據(jù)，但不能向服務(wù)器提交數(shù)據(jù)。如果要提交數(shù)據(jù)則需要再添加一行代碼，如下所示： SCRIPT LANGUAGE=VBScript !Sub Submit_OnClickDim TheFormSet TheForm = If IsNumeric() ThenIf 1 Or 10 ThenMsgBox 請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。ElseMsgBox 謝謝。 39。 數(shù)據(jù)輸入正確，傳遞到服務(wù)器。End IfElseMsgBox 請(qǐng)輸入一個(gè)數(shù)字。End IfEnd Sub/SCRIPT在數(shù)據(jù)輸入正確時(shí)，代碼調(diào)用窗體對(duì)象的 Submit 方法，將數(shù)據(jù)傳遞到服務(wù)器。除非在數(shù)據(jù)被傳遞到服務(wù)器之前判斷其正誤，否則服務(wù)器將處理數(shù)據(jù)，而不論其正確與否。您可以在 Internet Explorer Script Object Model 頁(yè)面上找到關(guān)于 Submit 方法和其他方法的全部信息。 到目前為止，您只看到了標(biāo)準(zhǔn) HTML FORM 對(duì)象。Internet Explorer 還可以使您利用 ActiveX? 控件（以前稱為 OLE 控件）和 Java? 對(duì)象的全部功能創(chuàng)建頁(yè)面。第十四課 在VBScript中使用對(duì)象無(wú)論使用的是 ActiveX? 控件（以前稱為 OLE 控件）還是 Java? 對(duì)象，Microsoft Visual Basic Scripting Edition 和 Microsoft? Internet Explorer 都以相同的方式處理它們。如果您使用的是 Internet Explorer 并且 ActiveX 庫(kù)中安裝了這些控件，就會(huì)看到由以下代碼制作的頁(yè)面。 OBJECT 標(biāo)記用來(lái)包含對(duì)象，PARAM 標(biāo)記用來(lái)設(shè)置對(duì)象屬性的初始值。使用 PARAM 標(biāo)記類似于在 Visual Basic 中設(shè)置窗體控件的初始屬性值。例如，以下代碼使用 OBJECT 和 PARAM 標(biāo)記將 ActiveX 標(biāo)簽控件添加到頁(yè)面中：OBJECTclassid=clsid:99B421206EC711CFA6C700AA00A47DD2id=lblActiveLblwidth=250height=250align=lefthspace=20vspace=0PARAM NAME=Angle VALUE=90PARAM NAME=Alignment VALUE=4PARAM NAME=BackStyle VALUE=0PARAM NAME=Caption VALUE=一個(gè)簡(jiǎn)單標(biāo)簽PARAM NAME=FontName VALUE=宋體PARAM NAME=FontSize VALUE=20PARAM NAME=FontBold VALUE=1PARAM NAME=FrColor VALUE=0/OBJECT象對(duì)任何窗體控件一樣，可以獲取屬性、設(shè)置屬性和調(diào)用方法。例如，以下代碼包含 FORM 控件，可用其對(duì)標(biāo)簽控件的兩個(gè)屬性進(jìn)行操作： FORM NAME=LabelControlsINPUT TYPE=TEXT NAME=txtNewText SIZE=25INPUT TYPE=BUTTON NAME=cmdChangeIt VALUE=更改文本INPUT TYPE=BUTTON NAME=cmdRotate VALUE=旋轉(zhuǎn)標(biāo)簽/FORM通過(guò)定義過(guò)的窗體，cmdChangeIt 按鈕的事件過(guò)程可更改標(biāo)簽文本： SCRIPT LANGUAGE=VBScript!Sub cmdChangeIt_onClickDim TheFormSet TheForm = = End Sub/SCRIPT代碼將對(duì)控件和值的引用限定在窗體中，這與簡(jiǎn)單驗(yàn)證示例中的代碼類似。 ActiveX 庫(kù)中有多個(gè) ActiveX? 控件可用于 Internet Explorer。您可以在那里找到關(guān)于屬性、方法和事件的全部信息，也可以在編程參考頁(yè)面上找到關(guān)于控件類標(biāo)識(shí)符 (CLSID) 的信息。另外還可以在 Internet Explorer Author39。s Guide and HTML Reference 頁(yè)面上找到有關(guān) OBJECT 標(biāo)記的詳細(xì)信息。 注意 Internet Explorer 的早期版本要求用大括號(hào) ({}) 將 classid 屬性括起來(lái)，不符合 W3C 規(guī)格。在當(dāng)前版本中使用大括號(hào)則會(huì)產(chǎn)生“此頁(yè)使用了過(guò)期版本的 OBJECT 標(biāo)記”信息。 ( KB)200826 15:14