佳木斯湛栽影视文化发展公司

主頁 > 知識庫 > VBS教程:VBScript 與窗體

VBS教程:VBScript 與窗體

熱門標簽:美圖手機 呼叫中心市場需求 銀行業(yè)務 檢查注冊表項 鐵路電話系統(tǒng) 智能手機 網(wǎng)站文章發(fā)布 服務器配置

VBScript 與窗體

簡單驗證

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

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

HTML>HEAD>TITLE>簡單驗證/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 "請輸入一個 1  10 之間的數(shù)字。"    Else      MsgBox "謝謝。"    End If  Else    MsgBox "請輸入一個數(shù)字。"  End IfEnd Sub-->/SCRIPT>/HEAD>BODY>H3>簡單驗證/H3>HR>form id="ValidForm" action="nothing.asp" onsubmit="Validate(); return false;" language="Visual Basic Scripting Edition">請輸入一個 1  10 之間的數(shù)字:input name="Text1" TYPE="TEXT" class='9v'>input name="Submit" TYPE="Submit" VALUE="提交">/form>/BODY>/HTML>

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

每次引用文本框時都應寫出全稱,即 Document.ValidForm.Text1。但是,當多次引用窗體控件時,可以按照以下步驟操作:首先聲明一個變量,然后使用 Set 語句將窗體 Document.ValidForm 賦給變量 TheForm,這樣就能使用 TheForm.Text1 引用文本框。常規(guī)的賦值語句(例如 Dim)在這里無效,必須使用 Set 來保持對對象的引用。

使用數(shù)字

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

A = Text1.Value + Text2.Value      ' A 為“12A = CDbl(Text1.Value) + Text2.Value   ' A  3

驗證后將數(shù)據(jù)傳遞回服務器

簡單驗證樣例使用的是普通按鈕控件。如果使用 Submit 控件,所有數(shù)據(jù)都會被立即傳送到服務器,示例將不會看到數(shù)據(jù)來進行檢查。避免使用 Submit 控件使您可以檢查數(shù)據(jù),但不能向服務器提交數(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 "請輸入一個 1  10 之間的數(shù)字。"    Else      MsgBox "謝謝。"      TheForm.Submit   ' 數(shù)據(jù)輸入正確,傳遞到服務器。    End If  Else    MsgBox "請輸入一個數(shù)字。"  End IfEnd Sub-->/SCRIPT>

在數(shù)據(jù)輸入正確時,代碼調(diào)用窗體對象的 Submit 方法,將數(shù)據(jù)傳遞到服務器。除非在數(shù)據(jù)被傳遞到服務器之前判斷其正誤,否則服務器將處理數(shù)據(jù),而不論其正確與否。您可以在 Internet Explorer Scripting 對象模型頁面上找到關于 Submit 方法和其他方法的全部信息,它們在 Microsoft(R) Web 站點(http://www.microsoft.com)上可以找到。

到目前為止,您只看到了標準 HTML FORM> 對象。Internet Explorer 還可以使您利用 ActiveX(R) 控件(以前稱為 OLE 控件)和 Java(TM) 對象的全部功能創(chuàng)建頁面。

標簽:上海 紅河 沈陽 河南 滄州 長治 新疆 樂山

巨人網(wǎng)絡通訊聲明:本文標題《VBS教程:VBScript 與窗體》,本文關鍵詞  ;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 收縮
    • 微信客服
    • 微信二維碼
    • 電話咨詢

    • 400-1100-266
    临夏县| 淮南市| 会理县| 镇雄县| 潞城市| 阜新| 收藏| 海宁市| 北京市| 玉山县| 达日县| 仲巴县| 封丘县| 清河县| 合川市| 遵化市| 闽侯县| 林芝县| 巴楚县| 忻城县| 平武县| 梁河县| 丰宁| 彭山县| 瓮安县| 巴南区| 云龙县| 景泰县| 瑞丽市| 彭山县| 桓台县| 忻州市| 兴业县| 邹平县| 正镶白旗| 镇沅| 夹江县| 绥棱县| 博兴县| 易门县| 康保县|