婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > VBScript教程 第十三課 VBScript與窗體

VBScript教程 第十三課 VBScript與窗體

熱門標簽:地圖標注店鋪的收費 南陽高頻外呼系統(tǒng)怎么安裝 貴陽電話外呼系統(tǒng)廠家 菏澤電銷外呼系統(tǒng)軟件 京東辦理400電話查詢 高德百度地圖標注推廣 為什么申請400電話 蘇丹地圖標注app 外呼系統(tǒ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 能夠自動轉換字符串和數(shù)字,但檢測用戶輸入值的數(shù)據子類型,并且在必要時使用轉換函數(shù)始終是一個好的習慣。在用文本框的 Value 屬性進行加法運算時,應將它顯式地轉換為數(shù)字,這是因為加號 (+) 操作符不但可進行加法操作,而且可進行字符串連接操作。例如,如果 Text1 中包含"1",Text2 中包含"2",您將會看到以下結果:

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

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

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

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ù)據輸入正確,傳遞到服務器。
End If
Else
MsgBox "請輸入一個數(shù)字。"
End If
End Sub
-->
/SCRIPT>

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

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


標簽:海北 昌都 通遼 韶關 滄州 資陽 咸寧 阿里

巨人網絡通訊聲明:本文標題《VBScript教程 第十三課 VBScript與窗體》,本文關鍵詞  VBScript,教程,第十三,課,;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《VBScript教程 第十三課 VBScript與窗體》相關的同類信息!
  • 本頁收集關于VBScript教程 第十三課 VBScript與窗體的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 农安县| 克东县| 克山县| 罗江县| 昌平区| 明星| 平阴县| 东至县| 博爱县| 呼伦贝尔市| 武义县| 沧源| 鲁甸县| 许昌市| 濮阳市| 康马县| 马山县| 安义县| 清河县| 纳雍县| 彭泽县| 海兴县| 遂平县| 贵港市| 石城县| 乌鲁木齐市| 深泽县| 莲花县| 衡东县| 舟山市| 宿迁市| 莆田市| 桐柏县| 张家界市| 绥化市| 新河县| 赤城县| 祁连县| 宝山区| 临邑县| 建阳市|