這是一個簡單的客戶端驗(yàn)證的樣例。HTML 代碼的結(jié)果是一個文本框和一個按鈕。如果使用 Microsoft? Internet Explorer 查看用以下代碼制作的頁面，您會看到一個旁邊帶有按鈕的小文本框。
HTML HEAD TITLE 簡單驗(yàn)證 /TITLE SCRIPT LANGUAGE="VBScript" !-- Sub Submit_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 "請輸入一個 1 到 10 之間的數(shù)字。" Else MsgBox "謝謝。" End If Else MsgBox "請輸入一個數(shù)字。" End If End Sub -- /SCRIPT /HEAD BODY H3 簡單驗(yàn)證 /H3 HR FORM NAME="ValidForm" 請輸入一個 1 到 10 之間的數(shù)字： INPUT NAME="Text1" TYPE="TEXT" SIZE="2" INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交" /FORM /BODY /HTML
這個文本框與 VBScript 頁面的簡單樣例中示例的不同之處在于文本框的 Value 屬性被用于檢查輸入值。要使用文本框的 Value 屬性，代碼必須引用文本框的名稱。
每次引用文本框時都應(yīng)寫出全稱，即 Document.ValidForm.Text1。但是，當(dāng)多次引用窗體控件時，可以按照以下步驟操作：首先聲明一個變量，然后使用 Set 語句將窗體 Document.ValidForm 賦給變量 TheForm，這樣就能使用 TheForm.Text1 引用文本框。常規(guī)的賦值語句（例如 Dim）在這里無效，必須使用 Set 來保持對對象的引用。
SCRIPT LANGUAGE="VBScript" !-- Sub Submit_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 "請輸入一個 1 到 10 之間的數(shù)字。" Else MsgBox "謝謝。" TheForm.Submit ' 數(shù)據(jù)輸入正確，傳遞到服務(wù)器。 End If Else MsgBox "請輸入一個數(shù)字。" End If End Sub -- /SCRIPT
在數(shù)據(jù)輸入正確時，代碼調(diào)用窗體對象的 Submit 方法，將數(shù)據(jù)傳遞到服務(wù)器。除非在數(shù)據(jù)被傳遞到服務(wù)器之前判斷其正誤，否則服務(wù)器將處理數(shù)據(jù)，而不論其正確與否。您可以在 Internet Explorer Script Object Model 頁面上找到關(guān)于 Submit 方法和其他方法的全部信息。
到目前為止，您只看到了標(biāo)準(zhǔn) HTML FORM 對象。Internet Explorer 還可以使您利用 ActiveX? 控件（以前稱為 OLE 控件）和 Java? 對象的全部功能創(chuàng)建頁面。
