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

首頁 > 編程 > VBScript > 正文

VBS教程:VBScript 與窗體

2019-10-26 17:57:27
字體:
來源:轉載
供稿:網友

VBScript 與窗體

簡單驗證

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

這是一個簡單的客戶端驗證的樣例。HTML 代碼的結果是一個文本框和一個按鈕。如果使用 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 之間的數字。"    Else      MsgBox "謝謝。"    End If  Else    MsgBox "請輸入一個數字。"  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 之間的數字:<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 引用文本框。常規的賦值語句(例如 Dim)在這里無效,必須使用 Set 來保持對對象的引用。

使用數字

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

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

圖片精選

主站蜘蛛池模板: 铁力市| 香格里拉县| 凌源市| 清河县| 乌什县| 大悟县| 杨浦区| 通州市| 施甸县| 荣成市| 万宁市| 梧州市| 楚雄市| 古浪县| 五家渠市| 奎屯市| 梓潼县| 理塘县| 莱芜市| 碌曲县| 乡宁县| 白玉县| 连云港市| 灵山县| 岑巩县| 邓州市| 旅游| 黄浦区| 湖州市| 松原市| 仙游县| 屏南县| 芜湖市| 承德县| 朔州市| 西宁市| 克拉玛依市| 普定县| 清苑县| 司法| 舟曲县|