VBS教程:VBScript 与窗体_vbs

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”,您将会看到以下结果:

A = Text1.Value + Text2.Value      ' A 为“12A = CDbl(Text1.Value) + Text2.Value   ' A  3

验证后将数据传递回服务器

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

<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 IfEnd Sub--></SCRIPT>

在数据输入正确时,代码调用窗体对象的 Submit 方法,将数据传递到服务器。除非在数据被传递到服务器之前判断其正误,否则服务器将处理数据,而不论其正确与否。您可以在 Internet Explorer Scripting 对象模型页面上找到关于 Submit 方法和其他方法的全部信息,它们在 Microsoft(R) Web 站点(http://www.microsoft.com)上可以找到。

到目前为止,您只看到了标准 HTML <FORM> 对象。Internet Explorer 还可以使您利用 ActiveX(R) 控件(以前称为 OLE 控件)和 Java(TM) 对象的全部功能创建页面。

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索vbs 窗体、vbs 创建窗体、vbs 与或非、vbs与vb、js 与 vbs 函数对照表,以便于您获取更多的相关知识。

时间: 2024-11-21 04:42:06

VBS教程:VBScript 与窗体_vbs的相关文章

VBScript教程 第十三课 VBScript与窗体_vbs

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

VBS教程:运算符-运算符(+)_vbs

运算符(+) 计算两个数之和. result = expression1 + expression2 参数 result 任意数值变量. expression1 任意表达式. expression2 任意表达式. 说明 虽然也可以使用 + 运算符连接两个字符串,但是您仍应使用 & 运算符进行字符串的连接以避免混淆,提供易理解的代码. 这是因为在使用 + 运算符时,有可能无法确定是做加法还是做字符串连接. 表达式的基本子类型决定了 + 运算符所做的操作,如下表所示: 如果 则 两个表达式都是数值

VBS教程:运算符-\ 运算符_vbs

\ 运算符 两个数相除并返回以整数形式表示的结果. result = number1\number2 参数 result 任意数值变量. number1 任意数值表达式. number2 任意数值表达式. 说明 在除法操作前,数值表达式四舍五入为 Byte.Integer 或 Long 子类型表达式. 如果任何表达式为 Null,result 也是 Null.任何表达式为 Empty 时,则按 0 处理.

VBS教程:正则表达式简介_vbs

这些页包含的信息其目的是提供一个关于正则表达式的通用介绍.  尽管试图让每个主题的内容都比较独立,但这些主题所包含的大部分信息都依赖于对前面所介绍的特性或概念的理解.因此,建议您顺序地仔细阅读这些主题,以便最全面地了解这些材料. "正则表达式简介"包括下述各个主题: 正则表达式 早期起源 使用正则表达式 正则表达式语法 建立正则表达式 优先权顺序 普通字符 特殊字符 非打印字符 字符匹配 限定符 定位符 选择与编组 后向引用

VBS教程:VBScript 页面的简单样例_vbs

VBScript 页面的简单样例 一个简单页面 使用 Microsoft(R) Internet Explorer 可以查看用以下 HTML 代码制作的页面.如果单击页面上的按钮,可看到 VBScript 的运行结果. <HTML><HEAD><TITLE>一个简单首页</TITLE><SCRIPT LANGUAGE="VBScript"><!--Sub Button1_onClick MsgBox "Hell

VBScript 与窗体(十)

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

VBS教程:VBScript 基础-VBScript 过程_vbs

VBScript 过程 在 VBScript 中,过程被分为两类:Sub 过程和 Function 过程. Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句,执行操作但不返回值.Sub 过程可以使用参数(由调用过程传递的常数.变量或表达式).如果 Sub 过程无任何参数,则 Sub 语句必须包含空括号 (). 下面的 Sub 过程使用两个固有的(或内置的)VBScript 函数,即 MsgBox 和 InputBox,来提示用户输入信息.然后

VBS教程:在 VBScript 中使用对象_vbs

在 VBScript 中使用对象 使用对象 无论使用的是 ActiveX(R) 控件(以前称为 OLE 控件)还是 Java(TM) 对象,Microsoft Visual Basic Scripting Edition 和 Microsoft(R) Internet Explorer 都以相同的方式处理它们.如果您使用的是 Internet Explorer 并且安装了 Label 控件,就会看到由以下代码制作的页面. <OBJECT> 标记用来包含对象,<PARAM> 标记用来

VBS教程:VBScript 基础-VBScript编码约定_vbs

VBScript编码约定 编码约定是帮助您使用 Microsoft Visual Basic Scripting Edition 编写代码的一些建议.编码约定包含以下内容: 对象.变量和过程的命名约定 注释约定 文本格式和缩进指南 使用一致的编码约定的主要原因是使脚本或脚本集的结构和编码样式标准化,这样代码易于阅读和理解.使用好的编码约定可以使源代码明白.易读.准确,更加直观且与其他语言约定保持一致. 常数命名约定 VBScript 的早期版本不允许创建用户自定义常数.如果要使用常数,则常数以变