
简单验证
使用 Visual Basic Scripting Edition,您可以完成通常要在服务器上进行的大量窗体处理工作,也可以完成不能在服务器上进行的工作。
这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft® 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="jscript">请输入一个 1 到 10 之间的数字:<input name="Text1" TYPE="TEXT" SIZE="2"><input name="Submit" TYPE="Submit" VALUE="提交"></form></BODY></HTML>
这个文本框与 VBScript 页面的简单样例中示例的不同之处在于文本框的 Value 属性被用于检查输入值。要使用文本框的 Value 属性,代码必须引用文本框的名称。
每次引用文本框时都应写出全称,即 Document.ValidForm.Text1。但是,当多次引用窗体控件时,可以按照以下步骤操作:首先声明一个变量,然后使用 Set 语句将窗体 Document.ValidForm 赋给变量 TheForm,这样就能使用 TheForm.Text1 引用文本框。常规的赋值语句(例如 Dim)在这里无效,必须使用 Set 来保持对对象的引用。
使用 Visual Basic Scripting Edition,您可以完成通常要在服务器上进行的大量窗体处理工作,也可以完成不能在服务器上进行的工作。
这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft® 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="jscript">请输入一个 1 到 10 之间的数字:<input name="Text1" TYPE="TEXT" SIZE="2"><input name="Submit" TYPE="Submit" VALUE="提交"></form></BODY></HTML>
这个文本框与 VBScript 页面的简单样例中示例的不同之处在于文本框的 Value 属性被用于检查输入值。要使用文本框的 Value 属性,代码必须引用文本框的名称。
每次引用文本框时都应写出全称,即 Document.ValidForm.Text1。但是,当多次引用窗体控件时,可以按照以下步骤操作:首先声明一个变量,然后使用 Set 语句将窗体 Document.ValidForm 赋给变量 TheForm,这样就能使用 TheForm.Text1 引用文本框。常规的赋值语句(例如 Dim)在这里无效,必须使用 Set 来保持对对象的引用。


