欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

歡迎來(lái)到入門(mén)教程網(wǎng)!

vb

當(dāng)前位置:主頁(yè) > 軟件編程 > vb >

VBScript教程 第十三課 VBScript與窗體

來(lái)源:本站原創(chuàng)|時(shí)間:2020-01-10|欄目:vb|點(diǎn)擊: 次

簡(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

網(wǎng)頁(yè)制作CMS教程網(wǎng)絡(luò)編程軟件編程腳本語(yǔ)言數(shù)據(jù)庫(kù)服務(wù)器

如果侵犯了您的權(quán)利,請(qǐng)與我們聯(lián)系,我們將在24小時(shí)內(nèi)進(jìn)行處理、任何非本站因素導(dǎo)致的法律后果,本站均不負(fù)任何責(zé)任。

聯(lián)系QQ:835971066 | 郵箱:835971066#qq.com(#換成@)

Copyright © 2002-2020 腳本教程網(wǎng) 版權(quán)所有