第 4章 VBScript
ASP动态网页设计教程
2
第 4章 VBScript
4.1 认识 VBScript
4.2 VBScript的运算符
4.3 VBScript和 HTML的应用实例
3
4.1 认识 VBScript
VBScript可以算是微软公司为了与网景公司在网页制作上一争高低而推出的一种脚本语言。 VBScript
源自微软的 Visual Basic。其目的是为了加强 HTML的表达能力，也就是提高网页的交互性。那什么是脚本语言呢？脚本语言是一种必须“附”于某程序上来扩展该程序功能的语言，例如在网页中加入脚本语言后，
就可以制作出动态或者交互式的网页，以增进用户端网页上数据处理与运算的能力。当然为了可转移性及网络上的安全性,VBScript中减少了 Visual Basic中许多有用的功能，如 API calls和 Classes等等。
4
4.1 认识 VBScript
4.1.1 VBScript的注释命令
4.1.2 MsgBox命令的用法
4.1.3 InputBox命令
4.1.4 VBScript中变量与数组的定义
5
4.1 认识 VBScript
4.1.1 VBScript的注释命令
（ '）就是 VBScript中的注释命令，用来作为程序中注释说明之用，可放在程序中的任何位置，其用法如下所示：
'这是一个简单的范例
'用来介绍 VBscript
另外保留字 REM也是 VBScript中合法的注释命令。用法如下：
rem这是一个简单的范例
rem用来介绍 VBscript
6
4.1 认识 VBScript
4.1.2 MsgBox命令的用法
MsgBox命令的功能是将后面所接的文字以对话窗口方式展现出来。在其中还会出现一个如“确定”之类的按钮。在 VBScript命令中的字母是没有大小写区分的，如 MsgBox也可写成 MSGBOX,msgBox等。需要补充的是 MsgBox之间出现的不一定是“确定”按钮，
相应的按钮是可以选择的。基本语法如下：
Msgbox "显示的文本内容 " [,n] [,"标题内容 "]
除了第一项“显示的文本内容”是必须的 (且不得超过 1024个字符 )之外，其余两项都可选择 (Optional)，
如下页表所示。
7
4.1 认识 VBScript
4.1.2 MsgBox命令的用法
n的设置值 按钮的内容 代号名称
0 确定 vbOK
1 确定，取消 vbOKCancel
2 异常终止 (A)，重试 (R)，略过 (I) vbAbortRetryIgnore
3 是 (Y)，否 (N)，取消 vbYesNoCancel
4 是 (Y)，否 (N) vbYesNo
5 重试 (R)，取消 vbRetryCancel
8
4.1 认识 VBScript
4.1.2 MsgBox命令的用法范例 (Ch4-1.htm)如下,
<html>
<head>
<title>MsgBox指令的用法 </title>
<script language="VBScript">
<!--
MsgBox"欢迎来到 Hli聊天室！ "&chr(13)&_
"您是第一次来到本聊天室吗？ ",3,"Hli聊天室 "
-->
</script>
</head>
<body>
</body>
</html>
9
4.1 认识 VBScript
4.1.2 MsgBox命令的用法执行结果如下图所示。
在上例中，显示的内容为：“欢迎来到 Hli聊天室！”＆ CHR(13)＆“您是第一次来到本聊天室吗？”
其中“＆”表示字符的连接,CHR(13)是换行字符，
“＿”表示此行语句未完而要接到下一行。另外 N值 3，
也可以改为代号名称,vbYesNoCancel”。
10
4.1 认识 VBScript
4.1.2 MsgBox命令的用法
MsgBox还可有显示图标 (icon)的功能，只要使用下列语法,
Msgbox "显示的文本内容 " [,n+m] [,"标题内容 "]
其中ｍ的值不同，则有不一样的图像产生，如下表所示。
m的设置值 显示图像种类 代 号 名 称
16 vbCritical
32 vbQuestion
48 vbExclamation
64 vbInformation
11
4.1 认识 VBScript
4.1.2 MsgBox命令的用法范例 (Ch4-2.htm)如下,
<html>
<head>
<title>MsgBox指令的用法 </title>
<script language="VBScript">
<!--
MsgBox"欢迎来到 Hli聊天室！ "&chr(13)&_
"您是第一次来到本聊天室吗？ ",3+64,"Hli聊天室 "
-->
</script>
</head>
<body>
</body>
</html>
12
4.1 认识 VBScript
4.1.2 MsgBox命令的用法执行结果如下图所示。
MsgBox命令还有一种特别的功能，就是我们对于其显示窗口里的各种按钮 (如“确定”、“取消”等等 )
按下后，会响应不同的数值 (见下页表格 )。利用这些响应的数值可以执行按钮后的某些操作。
13
4.1 认识 VBScript
4.1.2 MsgBox命令的用法所按下的钮 响应数值 代号名称确定 1 vbOK
取消 2 vbCancel
异常终止（ A） 3 vbAbort
重试（ R） 4 vbRetry
略过（ I） 5 vbIgnore
是（ Y） 6 vbYes
否（ N） 7 vbNo
14
4.1 认识 VBScript
4.1.2 MsgBox命令的用法例如下面的程序代码：
Dim m
M=Msgbox("这是说明 msgbox的范例 ",1,"科技贸易公司 ")
由于 MsgBox中 n=1，所以显示窗口中只会出现,确定”与“取消”两种按钮。假设用鼠标按下“确定”按钮，则此刻 m=1；如果您按下“取消”按钮，则 m=2。当
m=1时，也可以写成 m=vbOK。或 m=2时，也可以写成
m=vbCancel。
15
4.1 认识 VBScript
4.1.3 InputBox命令
InputBox命令提供让用户从外部输入信息的对话窗口，它的基本语法格式如下：
InputBox（ "显示的文本内容 "〔,"标题内容 "〕〔,"输入窗口显现的默认内容 "〕〔,"对话窗口在屏幕中的水平坐标 "〕〔,"对话窗口在屏幕中的垂直坐标 "〕 ）
16
4.1 认识 VBScript
4.1.3 InputBox命令范例 Ch4-3.htm
<html>
<head>
<title>InputBox命令的用法 </title>
<script language="VBScript">
<!--
dim name
name=InputBox ("欢迎来到 Hli聊天室 !"&chr(13)&_
"请输入您的大名?","Hli聊天室 ","",180,200)
MsgBox "您的大名是 "& name,,"Hli聊天室 "
-->
</script>
</head>
<body>
</body>
</html>
17
4.1 认识 VBScript
4.1.3 InputBox命令执行结果如下图 a和图 b所示。
图 b
图 a
单击确定
18
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义
VBScript中定义变量的方法有两种，称为显性定义 (Explicitly)和隐性定义 (Implicitly)。两者之间的区别是，如果您在使用变量之前使用保留字 Dim先行定义，
这就是一种显性定义的方式。例如：
Dim student_score
Student_score=80
而隐性定义则是直接命名并使用变量，没有利用
Dim定义的过程。例如：
Student_name=“John”
Student_tel=“888888”
19
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义数组的定义方式也使用 Dim这个保留字。例如我们这个数组的名称是 student_name，且里面存放的是学生姓名资料，并且数组中元素 (Element)个数为 20。那么
VBScript定义的格式如下：
Dim student_name(19)
实际上，在数组中起始索引值是由 0开始，也就是
student_name数组可包含 student_name(0)、
student_name(1),...,student_name(18)、
student_name(19)。如果要设置数组中某个元素的值也很简单，例如：
student_name(0)=“Peter Anderson”
20
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义一般程序语言数组的长度在定义后，是不能再任意更改。所以对于数组长度的取舍往往以数组可能长度的最大值作为此数组的长度。如长度未知,VBScript提供一种动态数组方式来解决这个问题。动态数组的定义和固定长度数组定义类似，不过不用定义长度。例如：
Dim student_name
直到需要使用时，再利用 ReDim保留字，实际定义此刻的数组长度。例如：
redim student_name(20)
ReDim这个保留字，可以随时在程序中用来更改动态数组的长度。例如 student_name数组的长度，希望变更为 30,则可以加上以下这道命令：
redim student_name(30)
21
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义前面介绍的数组是属于一维数组 (One-dimensional
Array)，事实上 VBScript也允许多维数组 (Multi-
dimensional Array)的使用，它的最大维数可到 60(60
dimensions for a single array)。在 VBScript中定义多维数组的方法也很容易，例如以下是二维及三维数组的定义格式：
Dim subject(3,4)
Dim student_no(4,5,6)
上面这个二维及三维数组的定义实例基本上仍属于固定长度数组。至于动态数组则有些特别之处了。例如定义以下的动态数组：
dim student()
22
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义接着设置数组矩阵及长度：
dim student(4,5,6)
这时如果要更改此 student三维数组的长度也是再利用 ReDim就 OK了！
ReDim student(9,9,9)
请注意！此时改变数组长度是没有问题，但万万不可以改变数组的维数。例如：
ReDim student(9,9)
这样就会产生执行上的错误；因为 VBScript对
student数组维数的设置在第一次定义就完成了，并且不得再修改维数，只可修改长度。
23
4.2 VBScript的运算符运算符对程序语言而言是相当重要的，因为它是一种可以让电脑对某些数据执行特殊运算的符号。
VBScript中的运算符可分为以下几类：
算术运算符比较运算符逻辑运算符条件控制命令
24
4.2 VBScript的运算符
4.2.1 算术运算符
4.2.2 比较运算符
4.2.3 逻辑运算符
4.2.4 条件控制命令
25
4.2 VBScript的运算符
4.2.1 算术运算符算术运算符的主要作用是执行 VBScript中的各种算术运算。
运算符 运算意义 实际应用 实例说明
+ 加法运算 5+3 执行数学式中的 5+3
- 减法运算 5-3 执行数学式中的 5-3
* 乘法运算 5*3 执行数学式中的 5*3
/ 除法运算 5/3 执行数学式中的 5/3
\ 整数除法 运算 5\3 执行数学式中的 5\3，但结果为整数如 5\3→ 结果为 1
^ 指数运算 5^3 执行数学式中的 5^3→ 结果为 125
Mod 余数运算 5 Mod 3 可得数学式中的 5/3的余数，结果为 2
& 连接运算 "app"&"le" 为字符的连接。例如这个实例的结果为 "apple"
26
4.2 VBScript的运算符
4.2.2 比较运算符比较运算符 (或称为关系运算符 )的功能是在表达式中执行比较的工作。我们以下表来为读者说明。
运算符 运算意义 实际应用 实例说明
= 等于 x=y X与 y相等
<> 不等于 x<>y X与 y不相等
> 大于 x>y X大于 y
< 小于 x<y X小于 y
>= 不小于 x>=y X不小于 y
<= 不大于 x<=y X不大于 y
Is 对象等于 X is y x和 y是属于 (refer)同一对象
27
4.2 VBScript的运算符
4.2.3 逻辑运算符逻辑运算符主要是用来处理逻辑运算，逻辑运算事实上就是一种 true和 false的运算。在 VBScript中,true可用数字 1代表,false则可用数字 0代表。以下表为读者说明。
运算符 运算意义 实例应用 实例说明
And 逻辑与 X And Y X和 Y都是 true，则返回 true。其他情况都返回 false
Or 逻辑或 X Or Y X和 Y都是 false,则传回 false。其他情况则都返回 ture
Xor 逻辑异或 X XOr Y X和 Y其中一个是 true，另一个若是 false，则传true。其他情况则都返回 false
Eqv 逻辑等价 X Eqv Y X和 Y同时是 true或 false，则返回 true。其他情况则返回 false
Imp 逻辑蕴涵 X Imp Y 如果 X是 true,Y也是 true则返回 true。如果 X是false，则不论 Y是什么都返回 true
Not 逻辑非 Not X 假如 X是 true，则返回 false,X是 false则返回 true
28
4.2 VBScript的运算符
4.2.4 条件控制命令
If...Then
它的语法格式如下：
If 条件 then
命令区域
end if
如果是只有一道命令，可以省略保留字 End if，写成如下的格式：
If 条件 then
命令补充,（ 1）在 VBScript中编写命令时，如果在一条命令分成两行编写，可用（＿）来连接。
（ 2）在 VBScript中多条命令也可以写在同一行，并用冒号
（：）隔开。
29
4.2 VBScript的运算符
4.2.4 条件控制命令
If...Then...Else
前面的 If...Then命令是较为简单的命令，是使用在 If
之后 true情况时所执行的命令，加入了 Else命令可用来指出 If之后 false情况时所执行的命令。它的语法格式如下：
If 条件 then
命令区域 1
else
命令区域 2
end if
30
4.3 VBScript和 HTML的应用实例对 VBScript来说，是可以直接附在 HTML文件中，
以处理一些用户端的事件。加入 VBScript的 HTML文件仍然只是一种 HTML文件。
一般来说,Script最好是写在 HTML文件上的 <head>
与 </head>标记之中，目的是因为在 <head>与 </head>之间的内容会被第一个加载。这样可让 Script的程序代码在触发任何事件前被加载。另外在 <head>标记内所有程序内容还要包含在 <script>和 </script>两个标记之中。让我们看看如下一些范例。
31
4.3 VBScript和 HTML的应用实例
4.3.1 动态文字页面
4.3.2 信息公告
4.3.3 欢迎画面窗口
4.3.4 学期成绩计算表
4.3.5 脑筋急转弯
4.3.6 追踪鼠标的坐标
4.3.7 色彩变幻
32
4.3 VBScript和 HTML的应用实例
4.3.1 动态文字页面范例 Ch4-4.htm(部分代码 )如下,
:
<script Language="VBScript">
Const TipNO = 6
Dim tips(5)
tips(0) = "★ 中国铁道出版社★ "
tips(1) = "★ 计算机图书项目中心★ "
tips(2) = "★ 真诚面对每一个读者★ "
tips(3) = "★ 欢迎光临 SeconWorld★ "
tips(4) = "★ 请多多指教★ "
tips(5) = "★ 我的最爱 ─Mandrake Linux★ "
Randomize
index = Int((TipNO) * Rnd)
document.write("<CENTER><P><B><FONT SIZE=6>" &
tips(index) & "</CENTER> </FONT></B> </P>")
</script>
:
33
4.3 VBScript和 HTML的应用实例
4.3.1 动态文字页面执行结果如下图 a和图 b所示。
图 a 图 b
按,刷新,键
34
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告制作信息公告，我们一样可以创建数组的方式来放置数据，利用循环的方式去读取不同的数据。
范例 Ch4-5.htm
<html>
<head>
<title>信息公告范例 </title>
<SCRIPT language="VBScript">
<!--
i = 0
TextNumber = -1
'字符型数组，你必须根据你的字符串数来设置。
Dim TextInput(4)
HelpText=""
Text = ""
message=0
35
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
'以下设置你的信息
TextInput(0) = "射击选手陶路娜为我国夺得首枚金牌！ "
TextInput(1) = "目前我国居金牌榜的第四位 "
TextInput(2) = "今天中国一共夺得了 6枚金牌，是我国的疯狂夺金日 "
TextInput(3) = "田亮为中国夺得第 28枚金牌 "
TextInput(4) = "我国实际历史性的突破，居金牌榜的第三位 "
'设置总信息数，但要设为总信息数－１
TotalTextInput = 4
' Called by >>> button (display next message).
function nextMessage()
if TextNumber>=TotalTextInput then
msgbox "已经到最后面了！ "
else
36
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
TextNumber=TextNumber+1
message=TextNumber+1
document.forms.tno.value= message
Text = TextInput(TextNumber)
HelpText = Text
end if
document.forms.teletype.value = TextInput(TextNumber)
end function
' Called by <<< button (get previous message).
function lastMessage()
If TextNumber<>-1 then
if TextNumber<=0 then
msgbox "已经到最前面了！ "
37
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
else
TextNumber=TextNumber-1
message=TextNumber+1
document.forms.tno.value= message
Text = TextInput(TextNumber)
HelpText = Text
End If
End If
document.forms.teletype.value = TextInput(TextNumber)
End Function
//-->
</SCRIPT>
</head>
<p align=“center”><font color=“#FF0000” size=“5”>信息公告栏范例
</font></p>
38
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
<hr width=90% size="1">
<h3 align=“center”><STRONG><font color=“#0033FF”>──奥运最近消息 ──</font></STRONG></h3>
<FORM name="forms">
<div align="center">
<TEXTAREA NAME=“teletype” ROWS=3 COLS=50 wrap=yes >
您可以看到最近更新的奥运信息！ </TEXTAREA>
<BR>
</div>
39
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
<TABLE WIDTH=250 BORDER=0 align="center">
<TD align=“center”><INPUT TYPE=“button” VALUE=“看上一条 " onClick= "lastMessage()">
<TD align="center"><INPUT TYPE="text" SIZE=3 name="tno">
<TD align=“center”><INPUT TYPE=“button” VALUE="看下一条 " onClick= "nextMessage()">
</TABLE>
<div align="center"></div>
</FORM>
</html>
40
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告执行初始结果如下图所示。
41
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告按 按钮，可以看到第一条消息 (显示在文本区域内 )，如下图所示。
42
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告再次按 按钮，可以看到第二条、第三条消息 ……,当鼠标按到最后一条信息后，再按则会出现如下图所示信息窗口。
43
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告当鼠标按 到最上一条信息后，再按则会出现如图下所示信息窗口。
44
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口范例 Ch4-6.htm
<html>
<head>
<title>欢迎画面 </title>
<script language="VBScript">
<!--
Const inMsg="欢迎来到科技园区的网页！ "
Const outMsg="要走了吗？记得明天再来呀！ "
Sub Comein()
MsgBox(inMsg)
End Sub
Sub Leaveout()
MsgBox(outMsg)
End Sub
//-->
</script>
</head>
45
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口范例 Ch4-6.htm(续 )
<body bgcolor="#FFFFCC" onLoad="Comein" onUnload="Leaveout">
<h2 align="center"><font color="#FF0000">电脑十万个为什么 </font></h2>
<p style="LINE-HEIGHT:150%; MARGIN-BOTTOM:0px"><b><font size="3">
<span style="BACKGROUND-COLOR:#ff6600"><font color="#ffffff">屏幕滚动
</font></span><br>
<span style="BACKGROUND-COLOR:#d3e789"><font color="#000080">
</font></span></font></b>
<p style="LINE-HEIGHT:150%;MARGIN-BOTTOM:0px"><font
color="#666666" size="2">
<b> 屏幕滚动的方向和速度可以根据鼠标的位置和纵向坐标值进行调节。当鼠标位于当前屏幕的上半部分时，屏幕向上滚动，
鼠标位置越靠上，向上滚动的速度越快；当鼠标位于当前屏幕的下半部分时，
屏幕向下滚动，鼠标位置越靠下，向下滚动的速度越快。选择“屏幕滚动”
复选框时，鼠标位于屏幕的上半部分，应当向上滚动，但可能因为已经在最顶端，所以屏幕不动。另外，如果窗口的内容没有“溢出”窗口 -没有滚动条出现，窗口也不会滚动。如果打开了带框架 (Frame)的网页，浏览窗口也不会随鼠标自动滚动。 </b></font></p>
</body>
</html>
46
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口在范例中设置 inMsg与 outMsg，作为进入与离开网页时出现的信息窗口参数。执行的结果为刚进入页面时会出现,欢迎来到科技园区的网页！”信息窗口，
如下图中所示。
出现“欢迎来到科技园区的网页 !”信息窗口
47
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口单击 按钮，该信息框消失，浏览网页。当在地址栏输入别的网址离开页面时会出现“要走了吗？
记得明天再来呀！”信息窗口，如下图中所示。单击按钮，该信息框消失，同时转入别的页面。
出现“要走了吗?
记得明天再来呀 !”信息窗口
48
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表范例 Ch4-7.htm
<html>
<head>
<title>学期成绩计算表 </title>
<script Language="VBScript">
<!--
Sub cal_onClick
result.tatal.value=cInt(result.exam1.value)* cDbl(result.exam1Weight.value)_
+cInt(result.exam2.value) * cDbl(result.exam2Weight.value)_
+cint(result.exam3.value) * cDbl(result.exam3Weight.value)
End Sub
-->
</script>
</head>
<body>
<h1><b><font color="#FF0000"><i>学期成绩计算表 </i></font></b></h1>
<form method="post" name="result">
<p>
平时成绩,<input type="text" name="exam1" size="20">
49
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表范例 Ch4-7.htm(续 )
平时成绩所占比例,<input type="text" name="exam1Weight" value="0.2“
size="5"><br>
期中成绩,<input type="text" name="exam2" size="20">
期中成绩所占比例,<input type="text" name="exam2Weight" value="0.3"
size="5"><br>
期末成绩,<input type="text" name="exam3" size="20">
期末考绩所占比例,<input type="text" name="exam3Weight" value="0.5" size="5">
<div align="left"><p>
<input type="button" value="计算您的成绩 " name="cal">
<input type="reset" value="重新输入 " name="reset">
</div>
<p> <div align="left">
恭喜您 !您的学期成绩是 <input type="text" name="tatal" size="16">
</div>
</form>
</body>
</html>
50
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表在该例中将平时成绩、期中成绩与期末考成绩分别设成 exam1,exam2与 exam3，而其成绩所占比例分别以 exam1Weight,exam2Weight与 exam3Weight代表。
执行结果如下图所示。
填入成绩和所占比例然后按“计算您的成绩”
按钮
51
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表计算的结果 (您的学期成绩 )便出现在按钮下方的文本框中，如下图所示。
计算的结果出现在文本框中
52
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯这种问答题大都可用 Sub来定义，配合 If…Then…Else
来读取信息。
范例 Ch4-8.htm
<html>
<head>
<title>脑筋急转弯 </title>
<script language="VBScript">
<!--
Sub GetAnswer_OnClick
If document.Question.MyAnswer.Value = "2" Then Call Right Else Call Wrong
End Sub
Sub Right
MsgBox "嘿嘿！ "+ "没什么了不起 !! 这题大家都会呀 !!",48,"脑筋急转弯 "
End Sub
Sub Wrong
MsgBox,你可真笨呀！” +“人可以没知识，但是千万不可没常识，没常识就要多看电视 !!",32,"脑筋急转弯“
End Sub
//-->
53
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯这种问答题大都可用 Sub来定义，配合 If…Then…Else
来读取信息。
范例 Ch4-8.htm(续 )
</script>
</head>
<body>
<center><H2><font color="#FF0000"><i>脑筋急转弯 </i></font></H2>
</center>
<p>问题 1.在第 28届奥运会上，为中国夺得首枚金牌的是谁？ <p>
(1)杨宁 <br>
(2)陶路娜 <br>
(3)田亮 <br>
<br>
<form name="Question">
请输入您的答案,<input name="MyAnswer" type=text size=5>
<input type="submit" value="提交 " name="GetAnswer">
</form>
</body>
</html>
54
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯在范例中使用循环的方式来读取资料，如果输入的答案为,2”，则指向,Right”，列出该项信息；否则指向,Wrong”，列出该项信息。运行上述代码显示画面如下图所示。
55
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯在“请输入您的答案”文本框中输入,1”，按 按钮，如下图所示。
输入,1”
按“提交”按钮
56
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯出现回答错误的信息框，如下图所示。
57
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯当在文本框中输入,2”，按 按钮后，会出现回答正确的信息框，如下图所示。
58
4.3 VBScript和 HTML的应用实例
4.3.6 追踪鼠标的坐标范例 Ch4-9.htm
<html>
<head>
<title>追踪您的鼠标坐标 </title>
</head>
<body>
<p align="center">
<script language=VBScript>
<!--
Option Explicit
Sub Document_OnMouseMove()
Dim Space,TheSource
Set TheSource=Window.Event
Space="鼠标的 X 轴坐标是 " & TheSource.X
Space=Space & " Y轴坐标是 " & TheSource.Y
result.Value=Space
59
4.3 VBScript和 HTML的应用实例
4.3.6 追踪鼠标的坐标范例 Ch4-9.htm(续 )
End Sub
-->
</script>
<h1 align=“center”><font size=“5” color=“#FF0000”>追踪您的鼠标 的坐标 </font>
</h1>
<p>
<p align="center">
<textarea id=result Rows=4 COL=40 cols="22">
</textarea>
</body>
</html>
60
4.3 VBScript和 HTML的应用实例
4.3.6 追踪鼠标的坐标执行结果如下图所示，当前鼠标所在的坐标会显示在文本区域中。
此处坐标会显示在文本区域中
61
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻利用 VBScript的 Document对象，浏览者可以自行设置前景颜色与背景颜色。
范例 Ch4-10.htm
<html>
<head>
<title>文件与背景颜色的搭配 </title>
<Script Language="VBScript">
<!--
Sub bchange(choice)
If choice=1 Then
document.bgColor="yellow"
ElseIf choice=2 Then
document.fgColor="Blue"
ElseIf choice=3 Then
document.bgColor=“pink”
ElseIf choice=4 Then
62
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻范例 Ch4-10.htm(续 )
document.fgColor="red"
ElseIf choice=5 Then
document.bgColor="green"
Else
document.fgColor="black"
End If
End Sub
-->
</Script>
</head>
<body>
<center>
<h2><font color=“#FF0000” face=“楷体 _GB2312”>文字与背景颜色的搭配 </font></h2>
63
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻范例 Ch4-10.htm(续 )
<table border=1>
<tr><th>背景颜色 <TH>选择 <TH>文字颜色 <TH>选择 </tr>
<tr><td>黄色 <td><Input type=radio onClick="bchange(1)">
<td>蓝色 <td><Input type=radio onClick="bchange(2)"></tr>
<tr><td>粉红色 <td><Input type=radio onClick="bchange(3)">
<td>红色 <td><Input type=radio onClick="bchange(4)"></tr>
<tr><td>绿色 <td><Input type=radio onClick="bchange(5)">
<td>黑色 <td><Input type=radio onClick="bchange(6)"></tr>
</table>
</center>
</body>
</html>
在范例中使用嵌套循环的方式来读取不同的资料。
64
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻执行结果如下图所示。
图 a为未做任何颜色选择
65
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻图 b为选择背景颜色为黄色 图 c为选择背景颜色为黄色、文字颜色为蓝色。
66
第 4章 VBScript
本章使读者对 VBScrip有了初步认识，并通过具体实例介绍了 VBScript和 HTML的应用。至此，读者可以在 HTML基础上使你的网页丰富起来。
ASP动态网页设计教程
2
第 4章 VBScript
4.1 认识 VBScript
4.2 VBScript的运算符
4.3 VBScript和 HTML的应用实例
3
4.1 认识 VBScript
VBScript可以算是微软公司为了与网景公司在网页制作上一争高低而推出的一种脚本语言。 VBScript
源自微软的 Visual Basic。其目的是为了加强 HTML的表达能力，也就是提高网页的交互性。那什么是脚本语言呢？脚本语言是一种必须“附”于某程序上来扩展该程序功能的语言，例如在网页中加入脚本语言后，
就可以制作出动态或者交互式的网页，以增进用户端网页上数据处理与运算的能力。当然为了可转移性及网络上的安全性,VBScript中减少了 Visual Basic中许多有用的功能，如 API calls和 Classes等等。
4
4.1 认识 VBScript
4.1.1 VBScript的注释命令
4.1.2 MsgBox命令的用法
4.1.3 InputBox命令
4.1.4 VBScript中变量与数组的定义
5
4.1 认识 VBScript
4.1.1 VBScript的注释命令
（ '）就是 VBScript中的注释命令，用来作为程序中注释说明之用，可放在程序中的任何位置，其用法如下所示：
'这是一个简单的范例
'用来介绍 VBscript
另外保留字 REM也是 VBScript中合法的注释命令。用法如下：
rem这是一个简单的范例
rem用来介绍 VBscript
6
4.1 认识 VBScript
4.1.2 MsgBox命令的用法
MsgBox命令的功能是将后面所接的文字以对话窗口方式展现出来。在其中还会出现一个如“确定”之类的按钮。在 VBScript命令中的字母是没有大小写区分的，如 MsgBox也可写成 MSGBOX,msgBox等。需要补充的是 MsgBox之间出现的不一定是“确定”按钮，
相应的按钮是可以选择的。基本语法如下：
Msgbox "显示的文本内容 " [,n] [,"标题内容 "]
除了第一项“显示的文本内容”是必须的 (且不得超过 1024个字符 )之外，其余两项都可选择 (Optional)，
如下页表所示。
7
4.1 认识 VBScript
4.1.2 MsgBox命令的用法
n的设置值 按钮的内容 代号名称
0 确定 vbOK
1 确定，取消 vbOKCancel
2 异常终止 (A)，重试 (R)，略过 (I) vbAbortRetryIgnore
3 是 (Y)，否 (N)，取消 vbYesNoCancel
4 是 (Y)，否 (N) vbYesNo
5 重试 (R)，取消 vbRetryCancel
8
4.1 认识 VBScript
4.1.2 MsgBox命令的用法范例 (Ch4-1.htm)如下,
<html>
<head>
<title>MsgBox指令的用法 </title>
<script language="VBScript">
<!--
MsgBox"欢迎来到 Hli聊天室！ "&chr(13)&_
"您是第一次来到本聊天室吗？ ",3,"Hli聊天室 "
-->
</script>
</head>
<body>
</body>
</html>
9
4.1 认识 VBScript
4.1.2 MsgBox命令的用法执行结果如下图所示。
在上例中，显示的内容为：“欢迎来到 Hli聊天室！”＆ CHR(13)＆“您是第一次来到本聊天室吗？”
其中“＆”表示字符的连接,CHR(13)是换行字符，
“＿”表示此行语句未完而要接到下一行。另外 N值 3，
也可以改为代号名称,vbYesNoCancel”。
10
4.1 认识 VBScript
4.1.2 MsgBox命令的用法
MsgBox还可有显示图标 (icon)的功能，只要使用下列语法,
Msgbox "显示的文本内容 " [,n+m] [,"标题内容 "]
其中ｍ的值不同，则有不一样的图像产生，如下表所示。
m的设置值 显示图像种类 代 号 名 称
16 vbCritical
32 vbQuestion
48 vbExclamation
64 vbInformation
11
4.1 认识 VBScript
4.1.2 MsgBox命令的用法范例 (Ch4-2.htm)如下,
<html>
<head>
<title>MsgBox指令的用法 </title>
<script language="VBScript">
<!--
MsgBox"欢迎来到 Hli聊天室！ "&chr(13)&_
"您是第一次来到本聊天室吗？ ",3+64,"Hli聊天室 "
-->
</script>
</head>
<body>
</body>
</html>
12
4.1 认识 VBScript
4.1.2 MsgBox命令的用法执行结果如下图所示。
MsgBox命令还有一种特别的功能，就是我们对于其显示窗口里的各种按钮 (如“确定”、“取消”等等 )
按下后，会响应不同的数值 (见下页表格 )。利用这些响应的数值可以执行按钮后的某些操作。
13
4.1 认识 VBScript
4.1.2 MsgBox命令的用法所按下的钮 响应数值 代号名称确定 1 vbOK
取消 2 vbCancel
异常终止（ A） 3 vbAbort
重试（ R） 4 vbRetry
略过（ I） 5 vbIgnore
是（ Y） 6 vbYes
否（ N） 7 vbNo
14
4.1 认识 VBScript
4.1.2 MsgBox命令的用法例如下面的程序代码：
Dim m
M=Msgbox("这是说明 msgbox的范例 ",1,"科技贸易公司 ")
由于 MsgBox中 n=1，所以显示窗口中只会出现,确定”与“取消”两种按钮。假设用鼠标按下“确定”按钮，则此刻 m=1；如果您按下“取消”按钮，则 m=2。当
m=1时，也可以写成 m=vbOK。或 m=2时，也可以写成
m=vbCancel。
15
4.1 认识 VBScript
4.1.3 InputBox命令
InputBox命令提供让用户从外部输入信息的对话窗口，它的基本语法格式如下：
InputBox（ "显示的文本内容 "〔,"标题内容 "〕〔,"输入窗口显现的默认内容 "〕〔,"对话窗口在屏幕中的水平坐标 "〕〔,"对话窗口在屏幕中的垂直坐标 "〕 ）
16
4.1 认识 VBScript
4.1.3 InputBox命令范例 Ch4-3.htm
<html>
<head>
<title>InputBox命令的用法 </title>
<script language="VBScript">
<!--
dim name
name=InputBox ("欢迎来到 Hli聊天室 !"&chr(13)&_
"请输入您的大名?","Hli聊天室 ","",180,200)
MsgBox "您的大名是 "& name,,"Hli聊天室 "
-->
</script>
</head>
<body>
</body>
</html>
17
4.1 认识 VBScript
4.1.3 InputBox命令执行结果如下图 a和图 b所示。
图 b
图 a
单击确定
18
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义
VBScript中定义变量的方法有两种，称为显性定义 (Explicitly)和隐性定义 (Implicitly)。两者之间的区别是，如果您在使用变量之前使用保留字 Dim先行定义，
这就是一种显性定义的方式。例如：
Dim student_score
Student_score=80
而隐性定义则是直接命名并使用变量，没有利用
Dim定义的过程。例如：
Student_name=“John”
Student_tel=“888888”
19
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义数组的定义方式也使用 Dim这个保留字。例如我们这个数组的名称是 student_name，且里面存放的是学生姓名资料，并且数组中元素 (Element)个数为 20。那么
VBScript定义的格式如下：
Dim student_name(19)
实际上，在数组中起始索引值是由 0开始，也就是
student_name数组可包含 student_name(0)、
student_name(1),...,student_name(18)、
student_name(19)。如果要设置数组中某个元素的值也很简单，例如：
student_name(0)=“Peter Anderson”
20
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义一般程序语言数组的长度在定义后，是不能再任意更改。所以对于数组长度的取舍往往以数组可能长度的最大值作为此数组的长度。如长度未知,VBScript提供一种动态数组方式来解决这个问题。动态数组的定义和固定长度数组定义类似，不过不用定义长度。例如：
Dim student_name
直到需要使用时，再利用 ReDim保留字，实际定义此刻的数组长度。例如：
redim student_name(20)
ReDim这个保留字，可以随时在程序中用来更改动态数组的长度。例如 student_name数组的长度，希望变更为 30,则可以加上以下这道命令：
redim student_name(30)
21
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义前面介绍的数组是属于一维数组 (One-dimensional
Array)，事实上 VBScript也允许多维数组 (Multi-
dimensional Array)的使用，它的最大维数可到 60(60
dimensions for a single array)。在 VBScript中定义多维数组的方法也很容易，例如以下是二维及三维数组的定义格式：
Dim subject(3,4)
Dim student_no(4,5,6)
上面这个二维及三维数组的定义实例基本上仍属于固定长度数组。至于动态数组则有些特别之处了。例如定义以下的动态数组：
dim student()
22
4.1 认识 VBScript
4.1.4 VBScript中变量与数组的定义接着设置数组矩阵及长度：
dim student(4,5,6)
这时如果要更改此 student三维数组的长度也是再利用 ReDim就 OK了！
ReDim student(9,9,9)
请注意！此时改变数组长度是没有问题，但万万不可以改变数组的维数。例如：
ReDim student(9,9)
这样就会产生执行上的错误；因为 VBScript对
student数组维数的设置在第一次定义就完成了，并且不得再修改维数，只可修改长度。
23
4.2 VBScript的运算符运算符对程序语言而言是相当重要的，因为它是一种可以让电脑对某些数据执行特殊运算的符号。
VBScript中的运算符可分为以下几类：
算术运算符比较运算符逻辑运算符条件控制命令
24
4.2 VBScript的运算符
4.2.1 算术运算符
4.2.2 比较运算符
4.2.3 逻辑运算符
4.2.4 条件控制命令
25
4.2 VBScript的运算符
4.2.1 算术运算符算术运算符的主要作用是执行 VBScript中的各种算术运算。
运算符 运算意义 实际应用 实例说明
+ 加法运算 5+3 执行数学式中的 5+3
- 减法运算 5-3 执行数学式中的 5-3
* 乘法运算 5*3 执行数学式中的 5*3
/ 除法运算 5/3 执行数学式中的 5/3
\ 整数除法 运算 5\3 执行数学式中的 5\3，但结果为整数如 5\3→ 结果为 1
^ 指数运算 5^3 执行数学式中的 5^3→ 结果为 125
Mod 余数运算 5 Mod 3 可得数学式中的 5/3的余数，结果为 2
& 连接运算 "app"&"le" 为字符的连接。例如这个实例的结果为 "apple"
26
4.2 VBScript的运算符
4.2.2 比较运算符比较运算符 (或称为关系运算符 )的功能是在表达式中执行比较的工作。我们以下表来为读者说明。
运算符 运算意义 实际应用 实例说明
= 等于 x=y X与 y相等
<> 不等于 x<>y X与 y不相等
> 大于 x>y X大于 y
< 小于 x<y X小于 y
>= 不小于 x>=y X不小于 y
<= 不大于 x<=y X不大于 y
Is 对象等于 X is y x和 y是属于 (refer)同一对象
27
4.2 VBScript的运算符
4.2.3 逻辑运算符逻辑运算符主要是用来处理逻辑运算，逻辑运算事实上就是一种 true和 false的运算。在 VBScript中,true可用数字 1代表,false则可用数字 0代表。以下表为读者说明。
运算符 运算意义 实例应用 实例说明
And 逻辑与 X And Y X和 Y都是 true，则返回 true。其他情况都返回 false
Or 逻辑或 X Or Y X和 Y都是 false,则传回 false。其他情况则都返回 ture
Xor 逻辑异或 X XOr Y X和 Y其中一个是 true，另一个若是 false，则传true。其他情况则都返回 false
Eqv 逻辑等价 X Eqv Y X和 Y同时是 true或 false，则返回 true。其他情况则返回 false
Imp 逻辑蕴涵 X Imp Y 如果 X是 true,Y也是 true则返回 true。如果 X是false，则不论 Y是什么都返回 true
Not 逻辑非 Not X 假如 X是 true，则返回 false,X是 false则返回 true
28
4.2 VBScript的运算符
4.2.4 条件控制命令
If...Then
它的语法格式如下：
If 条件 then
命令区域
end if
如果是只有一道命令，可以省略保留字 End if，写成如下的格式：
If 条件 then
命令补充,（ 1）在 VBScript中编写命令时，如果在一条命令分成两行编写，可用（＿）来连接。
（ 2）在 VBScript中多条命令也可以写在同一行，并用冒号
（：）隔开。
29
4.2 VBScript的运算符
4.2.4 条件控制命令
If...Then...Else
前面的 If...Then命令是较为简单的命令，是使用在 If
之后 true情况时所执行的命令，加入了 Else命令可用来指出 If之后 false情况时所执行的命令。它的语法格式如下：
If 条件 then
命令区域 1
else
命令区域 2
end if
30
4.3 VBScript和 HTML的应用实例对 VBScript来说，是可以直接附在 HTML文件中，
以处理一些用户端的事件。加入 VBScript的 HTML文件仍然只是一种 HTML文件。
一般来说,Script最好是写在 HTML文件上的 <head>
与 </head>标记之中，目的是因为在 <head>与 </head>之间的内容会被第一个加载。这样可让 Script的程序代码在触发任何事件前被加载。另外在 <head>标记内所有程序内容还要包含在 <script>和 </script>两个标记之中。让我们看看如下一些范例。
31
4.3 VBScript和 HTML的应用实例
4.3.1 动态文字页面
4.3.2 信息公告
4.3.3 欢迎画面窗口
4.3.4 学期成绩计算表
4.3.5 脑筋急转弯
4.3.6 追踪鼠标的坐标
4.3.7 色彩变幻
32
4.3 VBScript和 HTML的应用实例
4.3.1 动态文字页面范例 Ch4-4.htm(部分代码 )如下,
:
<script Language="VBScript">
Const TipNO = 6
Dim tips(5)
tips(0) = "★ 中国铁道出版社★ "
tips(1) = "★ 计算机图书项目中心★ "
tips(2) = "★ 真诚面对每一个读者★ "
tips(3) = "★ 欢迎光临 SeconWorld★ "
tips(4) = "★ 请多多指教★ "
tips(5) = "★ 我的最爱 ─Mandrake Linux★ "
Randomize
index = Int((TipNO) * Rnd)
document.write("<CENTER><P><B><FONT SIZE=6>" &
tips(index) & "</CENTER> </FONT></B> </P>")
</script>
:
33
4.3 VBScript和 HTML的应用实例
4.3.1 动态文字页面执行结果如下图 a和图 b所示。
图 a 图 b
按,刷新,键
34
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告制作信息公告，我们一样可以创建数组的方式来放置数据，利用循环的方式去读取不同的数据。
范例 Ch4-5.htm
<html>
<head>
<title>信息公告范例 </title>
<SCRIPT language="VBScript">
<!--
i = 0
TextNumber = -1
'字符型数组，你必须根据你的字符串数来设置。
Dim TextInput(4)
HelpText=""
Text = ""
message=0
35
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
'以下设置你的信息
TextInput(0) = "射击选手陶路娜为我国夺得首枚金牌！ "
TextInput(1) = "目前我国居金牌榜的第四位 "
TextInput(2) = "今天中国一共夺得了 6枚金牌，是我国的疯狂夺金日 "
TextInput(3) = "田亮为中国夺得第 28枚金牌 "
TextInput(4) = "我国实际历史性的突破，居金牌榜的第三位 "
'设置总信息数，但要设为总信息数－１
TotalTextInput = 4
' Called by >>> button (display next message).
function nextMessage()
if TextNumber>=TotalTextInput then
msgbox "已经到最后面了！ "
else
36
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
TextNumber=TextNumber+1
message=TextNumber+1
document.forms.tno.value= message
Text = TextInput(TextNumber)
HelpText = Text
end if
document.forms.teletype.value = TextInput(TextNumber)
end function
' Called by <<< button (get previous message).
function lastMessage()
If TextNumber<>-1 then
if TextNumber<=0 then
msgbox "已经到最前面了！ "
37
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
else
TextNumber=TextNumber-1
message=TextNumber+1
document.forms.tno.value= message
Text = TextInput(TextNumber)
HelpText = Text
End If
End If
document.forms.teletype.value = TextInput(TextNumber)
End Function
//-->
</SCRIPT>
</head>
<p align=“center”><font color=“#FF0000” size=“5”>信息公告栏范例
</font></p>
38
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
<hr width=90% size="1">
<h3 align=“center”><STRONG><font color=“#0033FF”>──奥运最近消息 ──</font></STRONG></h3>
<FORM name="forms">
<div align="center">
<TEXTAREA NAME=“teletype” ROWS=3 COLS=50 wrap=yes >
您可以看到最近更新的奥运信息！ </TEXTAREA>
<BR>
</div>
39
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告范例 Ch4-5.htm(续 )
<TABLE WIDTH=250 BORDER=0 align="center">
<TD align=“center”><INPUT TYPE=“button” VALUE=“看上一条 " onClick= "lastMessage()">
<TD align="center"><INPUT TYPE="text" SIZE=3 name="tno">
<TD align=“center”><INPUT TYPE=“button” VALUE="看下一条 " onClick= "nextMessage()">
</TABLE>
<div align="center"></div>
</FORM>
</html>
40
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告执行初始结果如下图所示。
41
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告按 按钮，可以看到第一条消息 (显示在文本区域内 )，如下图所示。
42
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告再次按 按钮，可以看到第二条、第三条消息 ……,当鼠标按到最后一条信息后，再按则会出现如下图所示信息窗口。
43
4.3 VBScript和 HTML的应用实例
4.3.2 信息公告当鼠标按 到最上一条信息后，再按则会出现如图下所示信息窗口。
44
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口范例 Ch4-6.htm
<html>
<head>
<title>欢迎画面 </title>
<script language="VBScript">
<!--
Const inMsg="欢迎来到科技园区的网页！ "
Const outMsg="要走了吗？记得明天再来呀！ "
Sub Comein()
MsgBox(inMsg)
End Sub
Sub Leaveout()
MsgBox(outMsg)
End Sub
//-->
</script>
</head>
45
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口范例 Ch4-6.htm(续 )
<body bgcolor="#FFFFCC" onLoad="Comein" onUnload="Leaveout">
<h2 align="center"><font color="#FF0000">电脑十万个为什么 </font></h2>
<p style="LINE-HEIGHT:150%; MARGIN-BOTTOM:0px"><b><font size="3">
<span style="BACKGROUND-COLOR:#ff6600"><font color="#ffffff">屏幕滚动
</font></span><br>
<span style="BACKGROUND-COLOR:#d3e789"><font color="#000080">
</font></span></font></b>
<p style="LINE-HEIGHT:150%;MARGIN-BOTTOM:0px"><font
color="#666666" size="2">
<b> 屏幕滚动的方向和速度可以根据鼠标的位置和纵向坐标值进行调节。当鼠标位于当前屏幕的上半部分时，屏幕向上滚动，
鼠标位置越靠上，向上滚动的速度越快；当鼠标位于当前屏幕的下半部分时，
屏幕向下滚动，鼠标位置越靠下，向下滚动的速度越快。选择“屏幕滚动”
复选框时，鼠标位于屏幕的上半部分，应当向上滚动，但可能因为已经在最顶端，所以屏幕不动。另外，如果窗口的内容没有“溢出”窗口 -没有滚动条出现，窗口也不会滚动。如果打开了带框架 (Frame)的网页，浏览窗口也不会随鼠标自动滚动。 </b></font></p>
</body>
</html>
46
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口在范例中设置 inMsg与 outMsg，作为进入与离开网页时出现的信息窗口参数。执行的结果为刚进入页面时会出现,欢迎来到科技园区的网页！”信息窗口，
如下图中所示。
出现“欢迎来到科技园区的网页 !”信息窗口
47
4.3 VBScript和 HTML的应用实例
4.3.3 欢迎画面窗口单击 按钮，该信息框消失，浏览网页。当在地址栏输入别的网址离开页面时会出现“要走了吗？
记得明天再来呀！”信息窗口，如下图中所示。单击按钮，该信息框消失，同时转入别的页面。
出现“要走了吗?
记得明天再来呀 !”信息窗口
48
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表范例 Ch4-7.htm
<html>
<head>
<title>学期成绩计算表 </title>
<script Language="VBScript">
<!--
Sub cal_onClick
result.tatal.value=cInt(result.exam1.value)* cDbl(result.exam1Weight.value)_
+cInt(result.exam2.value) * cDbl(result.exam2Weight.value)_
+cint(result.exam3.value) * cDbl(result.exam3Weight.value)
End Sub
-->
</script>
</head>
<body>
<h1><b><font color="#FF0000"><i>学期成绩计算表 </i></font></b></h1>
<form method="post" name="result">
<p>
平时成绩,<input type="text" name="exam1" size="20">
49
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表范例 Ch4-7.htm(续 )
平时成绩所占比例,<input type="text" name="exam1Weight" value="0.2“
size="5"><br>
期中成绩,<input type="text" name="exam2" size="20">
期中成绩所占比例,<input type="text" name="exam2Weight" value="0.3"
size="5"><br>
期末成绩,<input type="text" name="exam3" size="20">
期末考绩所占比例,<input type="text" name="exam3Weight" value="0.5" size="5">
<div align="left"><p>
<input type="button" value="计算您的成绩 " name="cal">
<input type="reset" value="重新输入 " name="reset">
</div>
<p> <div align="left">
恭喜您 !您的学期成绩是 <input type="text" name="tatal" size="16">
</div>
</form>
</body>
</html>
50
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表在该例中将平时成绩、期中成绩与期末考成绩分别设成 exam1,exam2与 exam3，而其成绩所占比例分别以 exam1Weight,exam2Weight与 exam3Weight代表。
执行结果如下图所示。
填入成绩和所占比例然后按“计算您的成绩”
按钮
51
4.3 VBScript和 HTML的应用实例
4.3.4 学期成绩计算表计算的结果 (您的学期成绩 )便出现在按钮下方的文本框中，如下图所示。
计算的结果出现在文本框中
52
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯这种问答题大都可用 Sub来定义，配合 If…Then…Else
来读取信息。
范例 Ch4-8.htm
<html>
<head>
<title>脑筋急转弯 </title>
<script language="VBScript">
<!--
Sub GetAnswer_OnClick
If document.Question.MyAnswer.Value = "2" Then Call Right Else Call Wrong
End Sub
Sub Right
MsgBox "嘿嘿！ "+ "没什么了不起 !! 这题大家都会呀 !!",48,"脑筋急转弯 "
End Sub
Sub Wrong
MsgBox,你可真笨呀！” +“人可以没知识，但是千万不可没常识，没常识就要多看电视 !!",32,"脑筋急转弯“
End Sub
//-->
53
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯这种问答题大都可用 Sub来定义，配合 If…Then…Else
来读取信息。
范例 Ch4-8.htm(续 )
</script>
</head>
<body>
<center><H2><font color="#FF0000"><i>脑筋急转弯 </i></font></H2>
</center>
<p>问题 1.在第 28届奥运会上，为中国夺得首枚金牌的是谁？ <p>
(1)杨宁 <br>
(2)陶路娜 <br>
(3)田亮 <br>
<br>
<form name="Question">
请输入您的答案,<input name="MyAnswer" type=text size=5>
<input type="submit" value="提交 " name="GetAnswer">
</form>
</body>
</html>
54
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯在范例中使用循环的方式来读取资料，如果输入的答案为,2”，则指向,Right”，列出该项信息；否则指向,Wrong”，列出该项信息。运行上述代码显示画面如下图所示。
55
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯在“请输入您的答案”文本框中输入,1”，按 按钮，如下图所示。
输入,1”
按“提交”按钮
56
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯出现回答错误的信息框，如下图所示。
57
4.3 VBScript和 HTML的应用实例
4.3.5 脑筋急转弯当在文本框中输入,2”，按 按钮后，会出现回答正确的信息框，如下图所示。
58
4.3 VBScript和 HTML的应用实例
4.3.6 追踪鼠标的坐标范例 Ch4-9.htm
<html>
<head>
<title>追踪您的鼠标坐标 </title>
</head>
<body>
<p align="center">
<script language=VBScript>
<!--
Option Explicit
Sub Document_OnMouseMove()
Dim Space,TheSource
Set TheSource=Window.Event
Space="鼠标的 X 轴坐标是 " & TheSource.X
Space=Space & " Y轴坐标是 " & TheSource.Y
result.Value=Space
59
4.3 VBScript和 HTML的应用实例
4.3.6 追踪鼠标的坐标范例 Ch4-9.htm(续 )
End Sub
-->
</script>
<h1 align=“center”><font size=“5” color=“#FF0000”>追踪您的鼠标 的坐标 </font>
</h1>
<p>
<p align="center">
<textarea id=result Rows=4 COL=40 cols="22">
</textarea>
</body>
</html>
60
4.3 VBScript和 HTML的应用实例
4.3.6 追踪鼠标的坐标执行结果如下图所示，当前鼠标所在的坐标会显示在文本区域中。
此处坐标会显示在文本区域中
61
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻利用 VBScript的 Document对象，浏览者可以自行设置前景颜色与背景颜色。
范例 Ch4-10.htm
<html>
<head>
<title>文件与背景颜色的搭配 </title>
<Script Language="VBScript">
<!--
Sub bchange(choice)
If choice=1 Then
document.bgColor="yellow"
ElseIf choice=2 Then
document.fgColor="Blue"
ElseIf choice=3 Then
document.bgColor=“pink”
ElseIf choice=4 Then
62
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻范例 Ch4-10.htm(续 )
document.fgColor="red"
ElseIf choice=5 Then
document.bgColor="green"
Else
document.fgColor="black"
End If
End Sub
-->
</Script>
</head>
<body>
<center>
<h2><font color=“#FF0000” face=“楷体 _GB2312”>文字与背景颜色的搭配 </font></h2>
63
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻范例 Ch4-10.htm(续 )
<table border=1>
<tr><th>背景颜色 <TH>选择 <TH>文字颜色 <TH>选择 </tr>
<tr><td>黄色 <td><Input type=radio onClick="bchange(1)">
<td>蓝色 <td><Input type=radio onClick="bchange(2)"></tr>
<tr><td>粉红色 <td><Input type=radio onClick="bchange(3)">
<td>红色 <td><Input type=radio onClick="bchange(4)"></tr>
<tr><td>绿色 <td><Input type=radio onClick="bchange(5)">
<td>黑色 <td><Input type=radio onClick="bchange(6)"></tr>
</table>
</center>
</body>
</html>
在范例中使用嵌套循环的方式来读取不同的资料。
64
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻执行结果如下图所示。
图 a为未做任何颜色选择
65
4.3 VBScript和 HTML的应用实例
4.3.7 色彩变幻图 b为选择背景颜色为黄色 图 c为选择背景颜色为黄色、文字颜色为蓝色。
66
第 4章 VBScript
本章使读者对 VBScrip有了初步认识，并通过具体实例介绍了 VBScript和 HTML的应用。至此，读者可以在 HTML基础上使你的网页丰富起来。
