VBScript基礎教程之十一VBScript與窗體

簡單驗證

　　使用 Visual Basic Scripting Edition您可以完成通常要在服務器上進行的大量窗體處理工作也可以完成不能在服務器上進行的工作

　　這是一個簡單的客戶端驗證的樣例HTML 代碼的結果是一個文本框和一個按鈕如果使用 Microsoft? Internet Explorer 查看用以下代碼制作的頁面您會看到一個旁邊帶有按鈕的小文本框

<HTML>
<HEAD><TITLE>簡單驗證</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!
Sub Submit_OnClick
Dim TheForm
Set TheForm = DocumentValidForm
If IsNumeric(TheFormTextValue) Then
If TheFormTextValue < Or TheFormTextValue > Then
MsgBox 請輸入一個到之間的數字
Else
MsgBox 謝謝
End If
Else
MsgBox 請輸入一個數字
End If
End Sub
>
</SCRIPT>
</HEAD>
<BODY>
<H>簡單驗證</H><HR>
<FORM NAME=ValidForm>
請輸入一個到之間的數字
<INPUT NAME=Text TYPE=TEXT SIZE=>
<INPUT NAME=Submit TYPE=BUTTON VALUE=提交>
</FORM>
</BODY>
</HTML>

　　這個文本框與 VBScript 頁面的簡單樣例中示例的不同之處在於文本框的 Value 屬性被用於檢查輸入值要使用文本框的 Value 屬性代碼必須引用文本框的名稱

　　每次引用文本框時都應寫出全稱即 DocumentValidFormText但是當多次引用窗體控件時可以按照以下步驟操作首先聲明一個變量然後使用 Set 語句將窗體 DocumentValidForm 賦給變量 TheForm這樣就能使用 TheFormText 引用文本框常規的賦值語句（例如 Dim）在這裡無效必須使用 Set 來保持對對象的引用

使用數字

　　請注意以上示例直接檢測輸入值是否是一個數字使用 IsNumeric 函數確定文本框中的字符串是否是一個數字雖然 VBScript 能夠自動轉換字符串和數字但檢測用戶輸入值的數據子類型並且在必要時使用轉換函數始終是一個好的習慣在用文本框的 Value 屬性進行加法運算時應將它顯式地轉換為數字這是因為加號 (+) 操作符不但可進行加法操作而且可進行字符串連接操作例如如果 Text 中包含Text 中包含您將會看到以下結果

A = TextValue + TextValue A 為
A = CDbl(TextValue) + TextValue A 為

驗證後將數據傳遞回服務器

　　簡單驗證樣例使用的是普通按鈕控件如果使用 Submit 控件所有數據都會被立即傳送到服務器示例將不會看到數據來進行檢查避免使用 Submit 控件使您可以檢查數據但不能向服務器提交數據如果要提交數據則需要再添加一行代碼如下所示

<SCRIPT LANGUAGE=VBScript>
<!
Sub Submit_OnClick
Dim TheForm
Set TheForm = DocumentValidForm
If IsNumeric(TheFormTextValue) Then
If TheFormTextValue < Or TheFormTextValue > Then
MsgBox 請輸入一個到之間的數字
Else
MsgBox 謝謝
TheFormSubmit 數據輸入正確傳遞到服務器
End If
Else
MsgBox 請輸入一個數字
End If
End Sub
>
</SCRIPT>

　　在數據輸入正確時代碼調用窗體對象的 Submit 方法將數據傳遞到服務器除非在數據被傳遞到服務器之前判斷其正誤否則服務器將處理數據而不論其正確與否您可以在 Internet Explorer Script Object Model 頁面上找到關於 Submit 方法和其他方法的全部信息

　　到目前為止您只看到了標准 HTML <FORM> 對象Internet Explorer 還可以使您利用 ActiveX? 控件（以前稱為 OLE 控件）和 Java? 對象的全部功能創建頁面
From:http://tw.wingwit.com/Article/program/Java/JSP/201311/19581.html