• linkedu视频
  • 平面设计
  • 电脑入门
  • 操作系统
  • 办公应用
  • 电脑硬件
  • 动画设计
  • 3D设计
  • 网页设计
  • CAD设计
  • 影音处理
  • 数据库
  • 程序设计
  • 认证考试
  • 信息管理
  • 信息安全
菜单
linkedu.com
  • 网页制作
  • 数据库
  • 程序设计
  • 操作系统
  • CMS教程
  • 游戏攻略
  • 脚本语言
  • 平面设计
  • 软件教程
  • 网络安全
  • 电脑知识
  • 服务器
  • 视频教程
  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell
您的位置:首页 > 脚本语言 >vbs > VBScript教程 第十三课 VBScript与窗体

VBScript教程 第十三课 VBScript与窗体

作者: 字体:[增加 减小] 来源:互联网

通过本文主要向大家介绍了vbscript教程,asp vbscript教程,vbscript教程pdf,vbscript视频教程,vbscript教程下载等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
简单验证

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

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

<HTML>
<HEAD><TITLE>简单验证</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>简单验证</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_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 "谢谢。"
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? 对象的全部功能创建页面。


</div>

您可能想查找下面的文章:

  • VBScript语法速查及实例说明
  • VBScript教程 第一课什么是VBScript
  • VBScript教程 第二课在HTML页面中添加VBscript代码
  • VBScript教程 第三课VBScript数据类型
  • VBScript教程 第四课VBScript变量
  • VBscript教程 第五课 VBScript常数
  • VBScript教程 第六课VBScript运算符
  • VBScript教程 第七课使用条件语句
  • VBScript教程 第八课 使用循环语句
  • VBScript教程 第九课VBScript过程

相关文章

  • VBS 批量读取文件夹内所有的文本到Excel的脚本
  • 使用vbs下载文件的代码加强版
  • 使用 Iisext.vbs 添加Web服务扩展文件的方法
  • 一个可以删除指定天数文件的vbs脚本
  • VBS教程:函数-Space 函数
  • 校准系统时间的VBS代码
  • 用VBS实现的批量gb2312转utf-8,支持拖动
  • 使用vbscript脚本在表单中进行选择的代码
  • VBS常用脚本 好东西
  • 用vbs实现判断计算机是笔记本还是台式机的代码

文章分类

  • vbs
  • DOS/BAT
  • hta/htc
  • python
  • perl
  • VBA
  • ColdFusion
  • ruby
  • PowerShell
  • Lua
  • Golang
  • linux shell

最近更新的内容

    • VBS教程:运算符-乘运算符 (*)
    • vbs wmi获取电脑硬件信息实例
    • VBS教程:函数-IsObject 函数
    • 用vbs将输出内容写到屏幕以覆盖当前屏幕上的内容的方法
    • VBS脚本和BAT批处理删除自身的方法
    • VBS教程:方法-Remove 方法
    • 用vbs实现虚拟主机和域名查循的脚本
    • 使用vbs获得外网ip并发送到邮箱里
    • VBS教程:属性-Drive 属性
    • vbs中Empty和Null的区别

关于我们 - 联系我们 - 免责声明 - 网站地图

©2020-2025 All Rights Reserved. linkedu.com 版权所有