VBScript 與窗體
簡(jiǎn)單驗(yàn)證
使用 Visual Basic Scripting Edition，您可以完成通常要在服務(wù)器上進(jìn)行的大量窗體處理工作，也可以完成不能在服務(wù)器上進(jìn)行的工作。
這是一個(gè)簡(jiǎn)單的客戶端驗(yàn)證的樣例。HTML 代碼的結(jié)果是一個(gè)文本框和一個(gè)按鈕。如果使用 Microsoft(R) Internet Explorer 查看用以下代碼制作的頁(yè)面，您會(huì)看到一個(gè)旁邊帶有按鈕的小文本框。
HTML>HEAD>TITLE>簡(jiǎn)單驗(yàn)證/TITLE>SCRIPT LANGUAGE="VBScript"> !--Sub Validate Dim TheForm Set TheForm = Document.forms("ValidForm") If IsNumeric(TheForm.Text1.Value) Then If TheForm.Text1.Value 1 Or TheForm.Text1.Value > 10 Then MsgBox "請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。" Else MsgBox "謝謝。" End If Else MsgBox "請(qǐng)輸入一個(gè)數(shù)字。" End IfEnd Sub-->/SCRIPT>/HEAD>BODY>H3>簡(jiǎn)單驗(yàn)證/H3>HR>form id="ValidForm" action="nothing.asp" onsubmit="Validate(); return false;" language="Visual Basic Scripting Edition">請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字：input name="Text1" TYPE="TEXT" class='9v'>input name="Submit" TYPE="Submit" VALUE="提交">/form>/BODY>/HTML>
這個(gè)文本框與 VBScript 頁(yè)面的簡(jiǎn)單樣例中示例的不同之處在于文本框的 Value 屬性被用于檢查輸入值。要使用文本框的 Value 屬性，代碼必須引用文本框的名稱。
每次引用文本框時(shí)都應(yīng)寫出全稱，即 Document.ValidForm.Text1。但是，當(dāng)多次引用窗體控件時(shí)，可以按照以下步驟操作：首先聲明一個(gè)變量，然后使用 Set 語(yǔ)句將窗體 Document.ValidForm 賦給變量 TheForm，這樣就能使用 TheForm.Text1 引用文本框。常規(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) (+) 運(yùn)算符不但可進(jìn)行加法操作，而且可進(jìn)行字符串連接操作。例如，如果 Text1 中包含“1”，Text2 中包含“2”，您將會(huì)看到以下結(jié)果：
A = Text1.Value + Text2.Value ' A 為“12”A = CDbl(Text1.Value) + Text2.Value ' 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 Button1_onClick Dim TheForm Set TheForm = Document.ValidForm If IsNumeric(TheForm.Text1.Value) Then If TheForm.Text1.Value 1 Or TheForm.Text1.Value > 10 Then MsgBox "請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。" Else MsgBox "謝謝。" TheForm.Submit ' 數(shù)據(jù)輸入正確，傳遞到服務(wù)器。 End If Else MsgBox "請(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 Scripting 對(duì)象模型頁(yè)面上找到關(guān)于 Submit 方法和其他方法的全部信息,它們?cè)?Microsoft(R) Web 站點(diǎn)(http://www.microsoft.com)上可以找到。
到目前為止，您只看到了標(biāo)準(zhǔn) HTML FORM> 對(duì)象。Internet Explorer 還可以使您利用 ActiveX(R) 控件（以前稱為 OLE 控件）和 Java(TM) 對(duì)象的全部功能創(chuàng)建頁(yè)面。
