VBScript教程 第十三課 VBScript與窗體
簡(jiǎn)單驗(yàn)證
使用 Visual Basic Scripting Edition,您可以完成通常要在服務(wù)器上進(jìn)行的大量窗體處理工作,也可以完成不能在服務(wù)器上進(jìn)行的工作。
這是一個(gè)簡(jiǎn)單的客戶(hù)端驗(yàn)證的樣例。HTML 代碼的結(jié)果是一個(gè)文本框和一個(gè)按鈕。如果使用 Microsoft? Internet Explorer 查看用以下代碼制作的頁(yè)面,您會(huì)看到一個(gè)旁邊帶有按鈕的小文本框。
<HTML>
<HEAD><TITLE>簡(jiǎn)單驗(yàn)證</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 "請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。"
Else
MsgBox "謝謝。"
End If
Else
MsgBox "請(qǐng)輸入一個(gè)數(shù)字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>簡(jiǎn)單驗(yàn)證</H3><HR>
<FORM NAME="ValidForm">
請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字:
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交">
</FORM>
</BODY>
</HTML>
這個(gè)文本框與 VBScript 頁(yè)面的簡(jiǎn)單樣例中示例的不同之處在于文本框的 Value 屬性被用于檢查輸入值。要使用文本框的 Value 屬性,代碼必須引用文本框的名稱(chēng)。
每次引用文本框時(shí)都應(yīng)寫(xiě)出全稱(chēng),即 Document.ValidForm.Text1。但是,當(dāng)多次引用窗體控件時(shí),可以按照以下步驟操作:首先聲明一個(gè)變量,然后使用 Set 語(yǔ)句將窗體 Document.ValidForm 賦給變量 TheForm,這樣就能使用 TheForm.Text1 引用文本框。常規(guī)的賦值語(yǔ)句(例如 Dim)在這里無(wú)效,必須使用 Set 來(lái)保持對(duì)對(duì)象的引用。
使用數(shù)字
請(qǐng)注意以上示例直接檢測(cè)輸入值是否是一個(gè)數(shù)字:使用 IsNumeric 函數(shù)確定文本框中的字符串是否是一個(gè)數(shù)字。雖然 VBScript 能夠自動(dòng)轉(zhuǎn)換字符串和數(shù)字,但檢測(cè)用戶(hù)輸入值的數(shù)據(jù)子類(lèi)型,并且在必要時(shí)使用轉(zhuǎn)換函數(shù)始終是一個(gè)好的習(xí)慣。在用文本框的 Value 屬性進(jìn)行加法運(yùn)算時(shí),應(yīng)將它顯式地轉(zhuǎn)換為數(shù)字,這是因?yàn)榧犹?hào) (+) 操作符不但可進(jìn)行加法操作,而且可進(jìn)行字符串連接操作。例如,如果 Text1 中包含"1",Text2 中包含"2",您將會(huì)看到以下結(jié)果:
A = Text1.Value + Text2.Value ' A 為"12"
A = CDbl(Text1.Value) + Text2.Value ' A 為 3
驗(yàn)證后將數(shù)據(jù)傳遞回服務(wù)器
簡(jiǎn)單驗(yàn)證樣例使用的是普通按鈕控件。如果使用 Submit 控件,所有數(shù)據(jù)都會(huì)被立即傳送到服務(wù)器,示例將不會(huì)看到數(shù)據(jù)來(lái)進(jìn)行檢查。避免使用 Submit 控件使您可以檢查數(shù)據(jù),但不能向服務(wù)器提交數(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 "請(qǐng)輸入一個(gè) 1 到 10 之間的數(shù)字。"
Else
MsgBox "謝謝。"
TheForm.Submit ' 數(shù)據(jù)輸入正確,傳遞到服務(wù)器。
End If
Else
MsgBox "請(qǐng)輸入一個(gè)數(shù)字。"
End If
End Sub
-->
</SCRIPT>
在數(shù)據(jù)輸入正確時(shí),代碼調(diào)用窗體對(duì)象的 Submit 方法,將數(shù)據(jù)傳遞到服務(wù)器。除非在數(shù)據(jù)被傳遞到服務(wù)器之前判斷其正誤,否則服務(wù)器將處理數(shù)據(jù),而不論其正確與否。您可以在 Internet Explorer Script Object Model 頁(yè)面上找到關(guān)于 Submit 方法和其他方法的全部信息。
到目前為止,您只看到了標(biāo)準(zhǔn) HTML <FORM> 對(duì)象。Internet Explorer 還可以使您利用 ActiveX? 控件(以前稱(chēng)為 OLE 控件)和 Java? 對(duì)象的全部功能創(chuàng)建頁(yè)面。
上一篇:VBS教程:正則表達(dá)式簡(jiǎn)介 -普通字符
欄 目:vb
下一篇:VBS教程:正則表達(dá)式簡(jiǎn)介 -建立正則表達(dá)式
本文標(biāo)題:VBScript教程 第十三課 VBScript與窗體
本文地址:http://mengdiqiu.com.cn/a1/vb/8291.html
您可能感興趣的文章
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語(yǔ)法速查及實(shí)例說(shuō)明
- 01-10VBScript教程 第七課使用條件語(yǔ)句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼
- 01-10VBScript教程 第十四課在VBScript中使用對(duì)象
- 01-10VBScript教程 第六課VBScript運(yùn)算符
- 01-10VBScript的入門(mén)學(xué)習(xí)資料
- 01-10VBScript教程 第十二課VBScript頁(yè)面的簡(jiǎn)單樣例


閱讀排行
- 1C語(yǔ)言 while語(yǔ)句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹(shù)的示例代碼(圣誕
- 3利用C語(yǔ)言實(shí)現(xiàn)“百馬百擔(dān)”問(wèn)題方法
- 4C語(yǔ)言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語(yǔ)言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語(yǔ)言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語(yǔ)言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱(chēng)qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語(yǔ)法速查及實(shí)例說(shuō)明
隨機(jī)閱讀
- 01-10delphi制作wav文件的方法
- 01-10C#中split用法實(shí)例總結(jié)
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 04-02jquery與jsp,用jquery
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什
- 01-10使用C語(yǔ)言求解撲克牌的順子及n個(gè)骰子
- 01-11Mac OSX 打開(kāi)原生自帶讀寫(xiě)NTFS功能(圖文
- 01-10SublimeText編譯C開(kāi)發(fā)環(huán)境設(shè)置
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載