這是一個簡單的用戶端驗證的範例。HTML 程式碼的結果是一個文字框和一個按鈕。如果使用 Microsoft? Internet Explorer 查看用以下代碼製作的頁面,您會看到一個旁邊帶有按鈕的小文字框。
<HTML>
<HEAD><TITLE>簡單驗證</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 之間的數字。"
Else
MsgBox "謝謝。"
End If
Else
MsgBox "請輸入一個數字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>簡單驗證</H3><HR>
<FORM NAME="ValidForm">
請輸入一個 1 到 10 之間的數字:
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交">
</FORM>
</BODY>
</HTML>
這個文字框與 VBScript 頁面的簡單範例中樣本的不同之處在於文字框的 Value 屬性被用於檢查輸入值。要使用文字框的 Value 屬性,代碼必須引用文字框的名稱。
每次引用文字框時都應寫出全稱,即 Document.ValidForm.Text1。但是,當多次引用表單控制項時,可以按照以下步驟操作:首先聲明一個變數,然後使用 Set 語句將表單 Document.ValidForm 賦給變數 TheForm,這樣就能使用 TheForm.Text1 引用文字框。常規的指派陳述式(例如 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 之間的數字。"
Else
MsgBox "謝謝。"
TheForm.Submit ' 資料輸入正確,傳遞到伺服器。
End If
Else
MsgBox "請輸入一個數字。"
End If
End Sub
-->
</SCRIPT>
在資料輸入正確時,代碼調用表單對象的 Submit 方法,將資料傳遞到伺服器。除非在資料被傳遞到伺服器之前判斷其正誤,否則伺服器將處理資料,而不論其正確與否。您可以在 Internet Explorer Script Object Model 頁面上找到關於 Submit 方法和其他方法的全部資訊。
到目前為止,您只看到了標準 HTML <FORM> 對象。Internet Explorer 還可以使您利用 ActiveX? 控制項(以前稱為 OLE 控制項)和 Java? 對象的全部功能建立頁面。