📄 1.htm
字号:
<HTML>
<HEAD>
<TITLE>VBScript 与窗体</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="CATEGORY" CONTENT="Tutorial">
<META NAME="Description" CONTENT="VBScript 与窗体">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>
<!--TOOLBAR_START-->
<!--TOOLBAR_EXEMPT-->
<!--TOOLBAR_END-->
<FONT FACE="宋体" SIZE=2>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
<FONT SIZE=2 COLOR=#660033>Microsoft® Visual Basic® Scripting Edition</FONT><BR>
<FONT SIZE=5 COLOR=#660033><B>VBScript 与窗体</B></FONT>
</TD>
<TD ALIGN=RIGHT>
<FONT SIZE=2> <A HREF="vbstutor.htm">VBScript 教程</A> <BR> <A HREF="7.htm">上一页</A> | <A HREF="11.htm">下一页</A> <P></FONT>
</TD></TR>
</TABLE>
<BR>
<HR NOSHADE SIZE=1>
<H5>简单验证</H5>
<BLOCKQUOTE>
使用 Visual Basic Scripting Edition，您可以完成通常要在服务器上进行的大量窗体处理工作，也可以完成不能在服务器上进行的工作。<P>
这是一个简单的客户端验证的样例。HTML 代码的结果是一个文本框和一个按钮。如果使用 Microsoft® Internet Explorer 查看用以下代码<A HREF="2.htm">制作的页面</A>，您会看到一个旁边带有按钮的小文本框。
<BLOCKQUOTE><PRE><FONT FACE="宋体" SIZE=3><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>
</FONT></PRE>
</BLOCKQUOTE>
这个文本框与 <A HREF="7.htm">VBScript 页面的简单样例</A>中示例的不同之处在于文本框的 <B>Value</B> 属性被用于检查输入值。要使用文本框的 <B>Value</B> 属性，代码必须引用文本框的名称。<P>
每次引用文本框时都应写出全称，即 <FONT FACE="宋体" SIZE="2">Document.ValidForm.Text1</FONT>。但是，当多次引用窗体控件时，可以按照以下步骤操作：首先声明一个变量，然后使用 <A HREF="597.htm" ><B>Set</B></A> 语句将窗体 Document.ValidForm 赋给变量 <FONT FACE="宋体" SIZE="2">TheForm</FONT>，这样就能使用 TheForm.Text1 引用文本框。常规的赋值语句（例如 <A HREF="568.htm" ><B>Dim</B></A>）在这里无效，必须使用 <B>Set</B> 来保持对对象的引用。
</BLOCKQUOTE>
<H5>使用数字</H5>
<BLOCKQUOTE>
请注意以上示例直接检测输入值是否是一个数字：使用 <A HREF="137.htm"><B>IsNumeric</B></A> 函数确定文本框中的字符串是否是一个数字。虽然 VBScript 能够自动转换字符串和数字，但检测用户输入值的数据子类型，并且在必要时使用<A HREF="237.htm">转换函数</A>始终是一个好的习惯。在用文本框的 Value 属性进行加法运算时，应将它显式地转换为数字，这是因为加号 (<A HREF="415.htm"><B>+</B></A>) 操作符不但可进行加法操作，而且可进行字符串连接操作。例如，如果 <FONT FACE="宋体" SIZE="2">Text1</FONT> 中包含“1”，<FONT FACE="宋体" SIZE="2">Text2</FONT> 中包含“2”，您将会看到以下结果：
<BLOCKQUOTE><PRE><FONT FACE="宋体" SIZE=3>A = Text1.Value + Text2.Value ' A 为“12”
A = CDbl(Text1.Value) + Text2.Value ' A 为 3
</FONT>
</PRE>
</BLOCKQUOTE></BLOCKQUOTE>
<H5>验证后将数据传递回服务器</H5>
<BLOCKQUOTE>
简单验证样例使用的是普通按钮控件。如果使用 Submit 控件，所有数据都会被立即传送到服务器，示例将不会看到数据来进行检查。避免使用 Submit 控件使您可以检查数据，但不能向服务器提交数据。如果要提交数据则需要再添加一行代码，如下所示：
<BLOCKQUOTE><PRE><FONT FACE="宋体" SIZE=3><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></FONT></PRE>
</BLOCKQUOTE>
在数据输入正确时，代码调用窗体对象的 <B>Submit</B> 方法，将数据传递到服务器。除非在数据被传递到服务器之前判断其正误，否则服务器将处理数据，而不论其正确与否。您可以在 Internet Explorer Script Object Model 页面上找到关于 <B>Submit</B> 方法和其他方法的全部信息。<P>
到目前为止，您只看到了标准 HTML <FORM> 对象。Internet Explorer 还可以使您利用 ActiveX™ 控件（以前称为 OLE 控件）和 Java™ 对象的全部功能创建页面。
</BLOCKQUOTE>
<hr noshade size=1>
<!--COPYRIGHT BEGIN-->
<!--COPYRIGHT END-->
</FONT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -