首页 > 编程 > VBScript > 正文

VBS教程:VBScript 与窗体

2019-10-26 17:57:27
字体:
来源:转载
供稿:网友

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

            
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

图片精选