VBScript教程 第十三课 VBScript与窗体

简单验证

使用 Visual Basic Scripting Edition,您可以完成通常要在服务器上进行的大量窗体处理工作,也可以完成不能在服务器上进行的工作。

这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft? Internet Explorer 查看用以下代码制作的页面,您会看到一个旁边带有按钮的小文本框。

<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Submit_&#111nClick
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>简单验证</H3><HR>
<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">
<!--
Sub Submit_&#111nClick
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 If
End Sub
-->
</SCRIPT>

在数据输入正确时,代码调用窗体对象的 Submit 方法,将数据传递到服务器。除非在数据被传递到服务器之前判断其正误,否则服务器将处理数据,而不论其正确与否。您可以在 Internet Explorer Script Object Model 页面上找到关于 Submit 方法和其他方法的全部信息。

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

(0)

相关推荐

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

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

  • VBscript教程 第五课 VBScript常数

    VB教程 > 第五课 VBScript常数 什么是常数? 常数是具有一定含义的名称,用于代替数字或字符串,其值从不改变.VBScript 定义了许多固有常数.详细信息,请参阅 VBScript 语言参考. 创建常数 您可以使用 Const 语句在 VBScript 中创建用户自定义常数.使用 Const 语句可以创建名称具有一定含义的字符串型或数值型常数,并给它们赋原义值.例如: Const MyString = "这是一个字符串."Const MyAge = 49 请注意字符串

  • VBScript教程 第四课VBScript变量

    什么是变量? 变量是一种使用方便的占位符,用于引用计算机内存地址,该地址可以存储 Script 运行时可更改的程序信息.例如,可以创建一个名为 ClickCount 的变量来存储用户单击 Web 页面上某个对象的次数.使用变量并不需要了解变量在计算机内存中的地址,只要通过变量名引用变量就可以查看或更改变量的值.在 VBScript 中只有一个基本数据类型,即 Variant,因此所有变量的数据类型都是 Variant. 声明变量 声明变量的一种方式是使用 Dim 语句.Public 语句和 Pr

  • VBScript教程 第三课VBScript数据类型

    什么是 VBScript 数据类型? VBScript 只有一种数据类型,称为 Variant.Variant 是一种特殊的数据类型,根据使用的方式,它可以包含不同类别的信息.因为 Variant 是 VBScript 中唯一的数据类型,所以它也是 VBScript 中所有函数的返回值的数据类型. 最简单的 Variant 可以包含数字或字符串信息.Variant 用于数字上下文中时作为数字处理,用于字符串上下文中时作为字符串处理.这就是说,如果使用看起来象是数字的数据,则 VBScript 会

  • VBScript教程 第十课 VBScript编码约定

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

  • VBScript教程 第六课VBScript运算符

    VBScript 有一套完整的运算符,包括算术运算符.比较运算符.连接运算符和逻辑运算符. 运算符优先级 当表达式包含多个运算符时,将按预定顺序计算每一部分,这个顺序被称为运算符优先级.可以使用括号越过这种优先级顺序,强制首先计算表达式的某些部分.运算时,总是先执行括号中的运算符,然后再执行括号外的运算符.但是,在括号中仍遵循标准运算符优先级. 当表达式包含多种运算符时,首先计算算术运算符,然后计算比较运算符,最后计算逻辑运算符.所有比较运算符的优先级相同,即按照从左到右的顺序计算比较运算符.算

  • VBScript教程 第七课使用条件语句

    VB教程 > 第七课使用条件语句 控制程序执行 使用条件语句和循环语句可以控制 Script 的流程.使用条件语句可以编写进行判断和重复操作的 VBScript 代码.在 VBScript 中可使用以下条件语句: · If...Then...Else 语句 · select Case 语句 使用 If...Then...Else 进行判断 If...Then...Else 语句用于计算条件是否为 True 或 False,并且根据计算结果指定要运行的语句.通常,条件是使用比较运算符对值或变量进行

  • VBScript教程 第十一课深入VBScript

    VB教程 > 第十一课深入VBScript 学习高级 VBScript 技术的最快方法是阅读大量的样例.同时更好地理解对象模型有助于深入学习 VBScript. 您可以从以下部分开始学习: ·ActiveX? 控件常见问题解答 ·页面样例 ·热点链接页面

  • VBScript教程 第八课 使用循环语句

    使用循环重复执行代码循环用于重复执行一组语句.循环可分为三类:一类在条件变为 False 之前重复执行语句,一类在条件变为 True 之前重复执行语句,另一类按照指定的次数重复执行语句. 在 VBScript 中可使用下列循环语句: Do...Loop: 当(或直到)条件为 True 时循环. While...Wend: 当条件为 True 时循环. For...Next: 指定循环次数,使用计数器重复运行语句. For Each...Next: 对于集合中的每项或数组中的每个元素,重复执行一组

  • javascript asp教程第十三课--include文件

    Server Side Includes: Experienced JavaScript programmers know that code reuse is good. Experienced JavaScript programmers also know that JavaScript functions are data types. So, we should be able to store a JavaScript function inside a Session Variab

随机推荐