vbscript起步——與表單的互動,函數的調用

來源:互聯網
上載者:User
vbscript|函數|互動|vbscript|函數|互動  

首先我們看這樣一段代碼:
<HTML>
<HEAD><TITLE>一個簡單首頁</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
MsgBox "歡迎光臨"
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>一個簡單首頁</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="單擊此處"></FORM>
</BODY>
</HTML>
這實現的是 當點擊按鈕時,彈出訊息框,顯示 歡迎光臨
其中
sub 定義一個過程,過程名包含兩部分:
button1 為按鈕名(從<INPUT> 標記中的 NAME 屬性擷取)
onclick 是事件名,即button1的onclick事件其中兩部分用(_)串連
合起來實現的是,單擊按鈕,Internet Explorer 尋找並運行相應的事件程序,即 Button1_OnClick

<INPUT NAME="Button1" TYPE="BUTTON"
VALUE="單擊此處" OnClick='MsgBox "歡迎光臨"'>
函數調用包含在單引號中,MsgBox 函數的字串包含在雙引號中。只要用冒號 (:) 分隔語句,就可以使

用多條語句。

<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button1">
<!--
MsgBox "歡迎光臨"
-->
</SCRIPT>
這種方法在<SCRIPT> 標記指定了事件和控制項,所以不需要再用 Sub 和 End Sub 語句

進一步實現簡單驗證
<HTML>
<HEAD><TITLE>簡單驗證</TITLE>
<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 之間的數字。"
Else
MsgBox "謝謝。"
End If
Else
MsgBox "請輸入一個數字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>簡單驗證</H3><HR>
<FORM NAME="ValidForm">
請輸入一個 1 到 10 之間的數字:
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="button1" TYPE="BUTTON" VALUE="提交">
</FORM>
</BODY>
</HTML>
這個文字框與 VBScript 頁面的簡單範例中文字框的 Value 屬性被用於檢查輸入值。要使用文字框的

Value 屬性,代碼必須引用文字框的名稱。

每次引用文字框時都應寫出全稱,即 Document.ValidForm.Text1。但是,當多次引用表單控制項時,可以

按照以下步驟操作:首先聲明一個變數,然後使用 Set 語句將表單 Document.ValidForm(form的id)

賦給變數 TheForm,這樣就能使用 TheForm.Text1 引用文字框。常規的指派陳述式(例如 Dim)在這裡無

效,必須使用 Set 來保持對對象的引用。

進一步實現 驗證後將資料傳遞迴伺服器

<HTML>
<HEAD><TITLE>簡單驗證</TITLE>
<<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 之間的數字。"
Else
MsgBox "謝謝。"
TheForm.Submit
End If
Else
MsgBox "請輸入一個數字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>簡單驗證</H3><HR>
<FORM NAME="ValidForm" action="要提交到的頁">
請輸入一個 1 到 10 之間的數字:
<INPUT NAME="Text1" TYPE="TEXT" SIZE="2">
<INPUT NAME="button1" TYPE="BUTTON" VALUE="提交">
</FORM>
</BODY>
</HTML>
sub中 TheForm.Submit 一句指出將form的內容上傳到伺服器端
有以下幾點需要注意,我在測試的時候如果將NAME="button1" 改為NAME="submit"程式出錯,原因可能是

因為submit是一個保留字
同樣,如果TYPE="BUTTON" 改為TYPE="submit"那麼不管驗證結果如何,資料都將上傳到伺服器端。




相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。