VBscript讲稿2.docVIP

使用 Microsoft? Internet Explorer 可以查看用以下 HTML 代码制作的页面。如果单击页面上的按钮，可看到 VBScript 的运行结果。(补) HTML HEADTITLE一个简单首页/TITLE SCRIPT LANGUAGE=VBScript !-- Sub Button1_OnClick MsgBox Mirabile visu. End Sub -- /SCRIPT /HEAD BODY H3一个简单首页/H3HR FORMINPUT NAME=Button1 TYPE=BUTTON VALUE=单击此处/FORM /BODY /HTML 结果虽然有点简单：一个对话框显示一个拉丁短语（意为“看起来非常漂亮”）。然而这段代码实际上作了许多事情。 当 Internet Explorer 读取页面时，找到 SCRIPT 标记，识别出 VBScript 代码并保存代码。单击按钮时，Internet Explorer 使按钮与代码连接，并运行该过程。 SCRIPT 标记中的 Sub 过程是一个事件过程。过程名包含两部分：一部分为按钮名，即 Button1（从 INPUT 标记中的 NAME 属性获取），另一部分为事件名，即 OnClick。两部分由下划线 (_) 连接。单击按钮时，Internet Explorer 查找并运行相应的事件过程，即 Button1_OnClick。这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft? Internet Explorer 查看用以下代码制作的页面，您会看到一个旁边带有按钮的小文本框。 HTML HEADTITLE简单验证/TITLE SCRIPT LANGUAGE=VBScript !-- Sub Submit_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 谢谢。 End If Else MsgBox 请输入一个数字。 End If End Sub -- /SCRIPT /HEAD BODY H3简单验证/H3HR FORM NAME=ValidForm 请输入一个 1 到 10 之间的数字： INPUT NAME=Text1 TYPE=TEXT SIZE=2 INPUT NAME=Submit TYPE=BUTTON 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 为“12” A = CDbl(Text1.Value) + Text2.Value A 为 3 验证后将数据传递回服务器 简单验证样例使用的是普通按钮控件。如果使用 Submit 控件，所有数据都会被立即传送到服务器，示例将不会看到数据来进行检查。避免使用 Submit 控件使您可以检查数据，但不能向服务器提交数据。如果要提交数据则需要再添加一行代码，如下所示： SCRIPT LANGUAGE=VBScript !-- S