当前位置：首页 > 资讯 > 技术文档

VBS教程：VBScript 与窗体

时间：2020-03-15 13:52 编辑：来源：阅读：
扫一扫，手机访问

摘要：VBS教程：VBScript 与窗体

VBScript 与窗体

[h3]简单验证[/h3]使用 Visual Basic Scripting Edition，您可以完成通常要在服务器上进行的大量窗体处理工作，也可以完成不能在服务器上进行的工作。这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft(R) Internet Explorer 查看用以下代码[u]制作的页面[/u]，您会看到一个旁边带有按钮的小文本框。

[code]<HTML><HEAD><TITLE>[/code]简单验证[code]</TITLE>[/code][code]<SCRIPT LANGUAGE="VBScript"> [/code][code]<!--[/code][code]Sub Validate[/code][code]  Dim TheForm[/code][code]  Set TheForm = Document.forms("ValidForm")[/code][code]  If IsNumeric(TheForm.Text1.Value) Then[/code][code]    If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then[/code][code]      MsgBox "[/code]请输入一个[code] 1 [/code]到[code] 10 [/code]之间的数字。[code]"[/code][code]    Else[/code][code]      MsgBox "[/code]谢谢。[code]"[/code][code]    End If[/code][code]  Else[/code][code]    MsgBox "[/code]请输入一个数字。[code]"[/code][code]  End If[/code][code]End Sub[/code][code]-->[/code][code]</SCRIPT>[/code][code]</HEAD>[/code][code]<BODY>[/code][code]<H3>[/code]简单验证[code]</H3><HR>[/code][code]<form id="ValidForm" action="nothing.asp" onsubmit="Validate(); return false;" language="Visual Basic Scripting Edition">[/code]请输入一个[code] 1 [/code]到[code] 10 [/code]之间的数字：[code]<input name="Text1" TYPE="TEXT" class='9v'>[/code][code]<input name="Submit" TYPE="Submit" VALUE="[/code]提交[code]">[/code][code]</form>[/code][code]</BODY>[/code][code]</HTML>[/code]

这个文本框与 VBScript 页面的简单样例中示例的不同之处在于文本框的 [b]Value[/b] 属性被用于检查输入值。要使用文本框的 [b]Value[/b] 属性，代码必须引用文本框的名称。每次引用文本框时都应写出全称，即 Document.ValidForm.Text1。但是，当多次引用窗体控件时，可以按照以下步骤操作：首先声明一个变量，然后使用 Set 语句将窗体 Document.ValidForm 赋给变量 TheForm，这样就能使用 TheForm.Text1 引用文本框。常规的赋值语句（例如 Dim）在这里无效，必须使用 [b]Set[/b] 来保持对对象的引用。 [h3]使用数字[/h3]请注意以上示例直接检测输入值是否是一个数字：使用 IsNumeric 函数确定文本框中的字符串是否是一个数字。虽然 VBScript 能够自动转换字符串和数字，但检测用户输入值的数据子类型，并且在必要时使用转换函数始终是一个好的习惯。在用文本框的 Value 属性进行加法运算时，应将它显式地转换为数字，这是因为加号 (+) 运算符不但可进行加法操作，而且可进行字符串连接操作。例如，如果 Text1 中包含“1”，Text2 中包含“2”，您将会看到以下结果：

[code]A = Text1.Value + Text2.Value[/code]      [code]' A [/code]为“[code]12[/code]”[code]A = CDbl(Text1.Value) + Text2.Value[/code]   [code]' A [/code]为[code] 3[/code]

[h3]验证后将数据传递回服务器[/h3]简单验证样例使用的是普通按钮控件。如果使用 Submit 控件，所有数据都会被立即传送到服务器，示例将不会看到数据来进行检查。避免使用 Submit 控件使您可以检查数据，但不能向服务器提交数据。如果要提交数据则需要再添加一行代码，如下所示：

[code]<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 "[/code]请输入一个[code] 1 [/code]到[code] 10 [/code]之间的数字。[code]"[/code][code]    Else[/code][code]      MsgBox "[/code]谢谢。[code]"[/code][code]      TheForm.Submit[/code]   [code]' [/code]数据输入正确，传递到服务器。[code]    End If[/code][code]  Else[/code][code]    MsgBox "[/code]请输入一个数字。[code]"[/code][code]  End If[/code][code]End Sub[/code][code]-->[/code][code]</SCRIPT>[/code]

在数据输入正确时，代码调用窗体对象的 [b]Submit[/b] 方法，将数据传递到服务器。除非在数据被传递到服务器之前判断其正误，否则服务器将处理数据，而不论其正确与否。您可以在 Internet Explorer Scripting 对象模型页面上找到关于 [b]Submit[/b] 方法和其他方法的全部信息,它们在 Microsoft(R) Web 站点(http://www.microsoft.com)上可以找到。到目前为止，您只看到了标准 HTML <FORM> 对象。Internet Explorer 还可以使您利用 ActiveX(R) 控件（以前称为 OLE 控件）和 Java(TM) 对象的全部功能创建页面。

全部评论(0)

上一篇：VBS教程：方法-Keys 方法
下一篇：脚本编程 4 驱动器

资讯排行榜
更多>>