VBScript教程 第十三課 VBScript與窗體
2019-10-26 17:49:09
供稿：網友
簡單驗證
使用 Visual Basic Scripting Edition，您可以完成通常要在服務器上進行的大量窗體處理工作，也可以完成不能在服務器上進行的工作。
這是一個簡單的客戶端驗證的樣例。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 來保持對對象的引用。
使用數字
請注意以上示例直接檢測輸入值是否是一個數字：使用 IsNumeric 函數確定文本框中的字符串是否是一個數字。雖然 VBScript 能夠自動轉換字符串和數字，但檢測用戶輸入值的數據子類型，并且在必要時使用轉換函數始終是一個好的習慣。在用文本框的 Value 屬性進行加法運算時，應將它顯式地轉換為數字，這是因為加號 (+) 操作符不但可進行加法操作，而且可進行字符串連接操作。例如，如果 Text1 中包含"1"，Text2 中包含"2"，您將會看到以下結果：
A = Text1.Value + Text2.Value ' A 為"12"
A = CDbl(Text1.Value) + Text2.Value ' A 為 3
驗證后將數據傳遞回服務器
簡單驗證樣例使用的是普通按鈕控件。如果使用 Submit 控件，所有數據都會被立即傳送到服務器，示例將不會看到數據來進行檢查。避免使用 Submit 控件使您可以檢查數據，但不能向服務器提交數據。如果要提交數據則需要再添加一行代碼，如下所示：
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_onClick
