国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBScript教程 第十三課 VBScript與窗體

2020-03-24 18:21:43
字體:
供稿:網(wǎng)友
簡單驗證

使用 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 之間的數(shù)字。"
Else
MsgBox "謝謝。"
End If
Else
MsgBox "請輸入一個數(shù)字。"
End If
End Sub
--
/SCRIPT
/HEAD
BODY
H3 簡單驗證 /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 屬性,代碼必須引用文本框的名稱。

每次引用文本框時都應寫出全稱,即 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",您將會看到以下結果:

A = Text1.Value + Text2.Value ' A 為"12"
A = 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 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ù)輸入正確,傳遞到服務器。
End If
Else
MsgBox "請輸入一個數(shù)字。"
End If
End Sub
--
/SCRIPT

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

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


html教程

鄭重聲明:本文版權歸原作者所有,轉(zhuǎn)載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯(lián)系我們修改或刪除,多謝。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 四川省| 囊谦县| 宝兴县| 安吉县| 昆山市| 读书| 临邑县| 万源市| 洛阳市| 吉林省| 石渠县| 昭平县| 大化| 辰溪县| 和政县| 延庆县| 宁都县| 宝丰县| 云和县| 虎林市| 阿合奇县| 许昌县| 安达市| 邢台市| 绵阳市| 宁乡县| 博客| 镇江市| 中江县| 基隆市| 营口市| 石棉县| 彰化县| 阿拉尔市| 鞍山市| 和平区| 霍邱县| 呼和浩特市| 呼图壁县| 两当县| 瓦房店市|