vbscript起步——与窗体的交互,函数的调用
首先我们看这样一段代码:
<HTML>
<HEAD><TITLE>一个简单首页</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Button1_OnClick
MsgBox "欢迎光临"
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>一个简单首页</H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="单击此处"></FORM>
</BODY>
</HTML>
这实现的是 当点击按钮时,弹出消息框,显示 欢迎光临
其中
sub 定义一个过程,过程名包含两部分:
button1 为按钮名(从<INPUT> 标记中的 NAME 属性获取)
onclick 是事件名,即button1的onclick事件其中两部分用(_)连接
合起来实现的是,单击按钮,Internet Explorer 查找并运行相应的事件过程,即 Button1_OnClick
<INPUT NAME="Button1" TYPE="BUTTON"
VALUE="单击此处" OnClick='MsgBox "欢迎光临"'>
函数调用包含在单引号中,MsgBox 函数的字符串包含在双引号中。只要用冒号 (:) 分隔语句,就可以使
用多条语句。
<SCRIPT LANGUAGE="VBScript" EVENT="OnClick" FOR="Button1">
<!--
MsgBox "欢迎光临"
-->
</SCRIPT>
这种方法在<SCRIPT> 标记指定了事件和控件,所以不需要再用 Sub 和 End Sub 语句
进一步实现简单验证
<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub button1_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="button1" TYPE="BUTTON" VALUE="提交">
补充:asp教程,高级应用