|
简单验证 使用 Visual Basic Scripting Edition您可以完成通常要在服务器上进行的大量窗体处理工作也可以完成不能在服务器上进行的工作 这是一个简单的客户端验证的样例HTML 代码的结果是一个文本框和一个按钮如果使用 Microsoft? Internet Explorer 查看用以下代码制作的页面您会看到一个旁边带有按钮的小文本框 <HTML> <HEAD><TITLE>简单验证</TITLE> <SCRIPT LANGUAGE=VBScript> <! Sub Submit_OnClick Dim TheForm Set TheForm = DocumentValidForm If IsNumeric(TheFormTextValue) Then If TheFormTextValue < Or TheFormTextValue > Then MsgBox 请输入一个 到 之间的数字 Else MsgBox 谢谢 End If Else MsgBox 请输入一个数字 End If End Sub > </SCRIPT> </HEAD> <BODY> <H>简单验证</H><HR> <FORM NAME=ValidForm> 请输入一个 到 之间的数字 <INPUT NAME=Text TYPE=TEXT SIZE=> <INPUT NAME=Submit TYPE=BUTTON VALUE=提交> </FORM> </BODY> </HTML> 这个文本框与 VBScript 页面的简单样例中示例的不同之处在于文本框的 Value 属性被用于检查输入值要使用文本框的 Value 属性代码必须引用文本框的名称 每次引用文本框时都应写出全称即 DocumentValidFormText但是当多次引用窗体控件时可以按照以下步骤操作首先声明一个变量然后使用 Set 语句将窗体 DocumentValidForm 赋给变量 TheForm这样就能使用 TheFormText 引用文本框常规的赋值语句（例如 Dim）在这里无效必须使用 Set 来保持对对象的引用 使用数字 请注意以上示例直接检测输入值是否是一个数字使用 IsNumeric 函数确定文本框中的字符串是否是一个数字虽然 VBScript 能够自动转换字符串和数字但检测用户输入值的数据子类型并且在必要时使用转换函数始终是一个好的习惯在用文本框的 Value 属性进行加法运算时应将它显式地转换为数字这是因为加号 (+) 操作符不但可进行加法操作而且可进行字符串连接操作例如如果 Text 中包含Text 中包含您将会看到以下结果 A = TextValue + TextValue A 为 A = CDbl(TextValue) + TextValue A 为 验证后将数据传递回服务器 简单验证样例使用的是普通按钮控件如果使用 Submit 控件所有数据都会被立即传送到服务器示例将不会看到数据来进行检查避免使用 Submit 控件使您可以检查数据但不能向服务器提交数据如果要提交数据则需要再添加一行代码如下所示 <SCRIPT LANGUAGE=VBScript> <! Sub Submit_OnClick Dim TheForm Set TheForm = DocumentValidForm If IsNumeric(TheFormTextValue) Then If TheFormTextValue < Or TheFormTextValue > Then MsgBox 请输入一个 到 之间的数字 Else MsgBox 谢谢 TheFormSubmit 数据输入正确传递到服务器 End If Else MsgBox 请输入一个数字 End If End Sub > </SCRIPT> 在数据输入正确时代码调用窗体对象的 Submit 方法将数据传递到服务器除非在数据被传递到服务器之前判断其正误否则服务器将处理数据而不论其正确与否您可以在 Internet Explorer Script Object Model 页面上找到关于 Submit 方法和其他方法的全部信息 到目前为止您只看到了标准 HTML <FORM> 对象Internet Explorer 还可以使您利用 ActiveX? 控件（以前称为 OLE 控件）和 Java? 对象的全部功能创建页面 |
