第4章 VB脚本语言
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
使用脚本语言可以编写服务器端脚本， 使用脚本语言可以编写服务器端脚本，也可以编写客户 语言可以编写服务器端脚本 端脚本。服务器端脚本和客户端脚本的主要区别: 端脚本。服务器端脚本和客户端脚本的主要区别
服务器端脚本在Web服务器上执行，由服务器根据脚本的执行结 服务器上执行， 服务器端脚本在 服务器上执行 果生成相应的HTML页面并发送到客户端浏览器中并显示。 页面并发送到客户端浏览器中并显示。 果生成相应的 页面并发送到客户端浏览器中并显示 客户端脚本由浏览器进行解释执行。 客户端脚本由浏览器进行解释执行。
4.6.4 For Each In…Next(数组循环) In…Next(数组循环) for each 变量 in 数组名 语句组 next (例4-20/21)
<Html> <Head> <Script Language=VBScript> Dim strcolor(5) strcolor(0) = "Red" : strcolor(1) = "Blue" strcolor(2) = "Green" : strcolor(3) = "Yellow" strcolor(4) = "Orange" :strcolor(5) = "Black" For Each n In strcolor Document.Write "<Font size= 4 color =" & n & "> 用集合改变字体颜色" Document.Write "</Font><br>" Next </Script> </Head> </Html>
InputBox(提示[，标题][，默认输入][， 坐标位置][， InputBox(提示[，标题][，默认输入][，x坐标位置][， y坐标位置]) 坐标位置]) 例：InputBox(请输入你的名字,“输入姓名”) InputBox(请输入你的名字, 输入姓名”
MsgBox函数调用形式如下：（例4 MsgBox函数调用形式如下：（例4-6） MsgBox(提示[，按钮][，标题]) MsgBox(提示[，按钮][，标题]) 文档的输出方法： （例4-7） （例4 Document.write(“字符串” Document.write(“字符串”) Document.writeln(“字符串” Document.writeln(“字符串”)
4.6.3 计数循环语句For…Next（例4-14/19） 计数循环语句For… （例4 14/19）
For 变量=初始值 to 终止值 [step 步长] 变量= 步长] 语句组 Next 当省略步长的时候，步长默认为+1 当省略步长的时候，步长默认为+1 步长为正时，终止值应该要大于初始值。
Document.htm
<script language="VBscript"> Document.write(“ Document.write(“师傅，快来救命啊”) Document.write(“ Document.write(“八戒，坚持住，师傅去叫你大师兄”) </script>
4.6 VBScript的控制结构
这个程序是有bug的，当分数为0或者100时会怎么样？ 这个程序是有bug的，当分数为0或者100时会怎么样？ 小于0或者大于100时会怎么样？ 小于0或者大于100时会怎么样？
<script language=“VBS"> a=inputbox("请输入你的成绩（0-100之间的整数）") if a>100 or a<0 then alert(“诶，又一个小学没毕业的！") elseif a=100 then alert(“不是作弊的话，那你就真的是学得很不错！“) elseif a=0 then alert(“零分？！你太天才了，真的！“) else a=a\10 Select case a case 9 msg=“不错，考得还是可以哈！" case 8,7 msg=“不好不坏，形容的就是你了！" case 6 msg=“生与死的边缘-恭喜，你过关了！" case else msg=“恭喜你，赢得了再学一次的机会！" end select msgbox "你的成绩是："&msg end if </script>
4.3.3 数组
声明数组：dim 数组名( 声明数组：dim 数组名(下界 to 上界) 上界) 下界可以省略，即：dim 数组名(上界) 下界可以省略，即：dim 数组名(上界) 系统默认下界为0 系统默认下界为0，且声明时，下界必须小于上界； 用语句“ 用语句“Option Base 1”可以自定义下界为1， 1”可以自定义下界为1 该语句必须写在所有的过程之前；且一个模块 只能出现一次。
4.4 运算符与表达式
4.4.1数学运算符（例 4.4.1数学运算符（例4-3）
加、减、乘、除、整除、取模、指数、连接符
4.4.2比较运算符 4.4.2比较运算符
等于、小于、大于、不等于、大于等于、小于 等于（值为True或False） 等于（值为True或False）
4.4.3 逻辑运算符（例4-4） 逻辑运算符（例
同一行可以书写多条语句，用冒号分开； 同一条语句可以分成多行写，用续行符连接； 一行最多允许255个字符； 一行最多允许255个字符；
注释有利于程序的维护、调试和共享：
注释以单引号开始，可以直接出现在语句后面；
4.3 常量、变量和数组
4.3.1 常量(例4-2) 常量(
常量是一种在程序运行过程中不会改变、也不 能改变的量。预定义好的有： Empty,Null,True,False… Empty,Null,True,False…等。 自定义常量： Const 常量名=值 常量名=
4.3.2 变量
变量实际上就是用来保存信息和计算结果的一 段内存单元的地址。 变量名由字母、数字、下划线组成；第一个字 符必须是字母；不能大于255个字符。 符必须是字母；不能大于255个字符。
VBScript中变量可以不用声明直接使用。 VBScript中变量可以不用声明直接使用。 显示声明：Dim 显示声明：Dim 变量名 Public 变量名 Private 变量名 变量的赋值： 变量名=表达式 变量名= 对象名.属性名= 对象名.属性名=表达式
1、<% … %> 2、<Script RunAt=Server>…</Script> RunAt=Server>…
二、在客户端执行时(*.htm,*.html) 二、在客户端执行时(*.htm,*.html)
<Script>… <Script>…</Script>
例4-1
4.2 书写规则
程序代码中，变量名和关键字的字母大小写 不敏感； 语句书写自由：
4.6.5 条件式循环
条件成立时，继续执行： （例4-22） 22） do while 条件
语句组
loop 条件不成立时，继续执行： （例4-23） 23） do until 条件
语句组
loop
Fra Baidu bibliotek
4.6.6循环后测试( 4.6.6循环后测试(例4-24/26) 24/26)
do 语句组 loop while(until) 条件 不管条件是否符合，先执行一次，然后判断条件
第4章 VBScript语言
本章要点：
脚本语言VBScript基本语言成份 脚本语言VBScript基本语言成份 程序控制结构
4.1 脚本语言
4.1.1 VBScript
在Web中允许嵌入一些小的程序段来完成 Web中允许嵌入一些小的程序段来完成 特定的功能，这样的一些小程序称为脚本， 系统对于这样的“小程序” 系统对于这样的“小程序”，通常是逐行解 释执行。脚本中所使用的命令及语言集称为 脚本语言。(VBS,JS) 脚本语言。(VBS,JS) VBScript是VB的Scripting版，介于 VBScript是VB的Scripting版，介于 HTML和VB编程语言之间，删除了一些涉 HTML和VB编程语言之间，删除了一些涉 及系统底层处理的指令。是ASP的默认脚本 及系统底层处理的指令。是ASP的默认脚本 语言。
And、Or、Is、Xor（值为True或False） And、Or、Is、Xor（值为True或False）
执行顺序：算术>比较> 执行顺序：算术>比较>逻辑
4.5 输入/输出
（只能在客户端执行）
InputBox函数以对话框的形式接受用户的输入， InputBox函数以对话框的形式接受用户的输入， 调用形式如下：（例4 调用形式如下：（例4-5）
4.6.1 条件语句If …Then 条件语句If If 天要下雨 then
我就带伞 End if （例4-8）
If 条件 then 语句 If 低于3楼 then 低于3
我走楼梯下去
Elseif 低于7楼 then 低于7
If 天要下雨 then
我带雨伞 Else 我就带太阳伞 End if （例4-9）
例：score.htm 例：score.htm
<script language="vbs"> a=inputbox("请输入你的成绩") a=inputbox("请输入你的成绩") a=a\ a=a\10 Select case a case 9 msg="优秀" msg="优秀" case 8,7 msg="良好" msg="良好" case 6 msg="及格" msg="及格" case else msg="不及格" msg="不及格" end select msgbox "你的成绩是："&msg "你的成绩是："&msg </script>
脚本代码能够嵌入到HTML文档的任何地方 脚本代码能够嵌入到HTML文档的任何地方，通常都是将 HTML文档的任何地方， 所有脚本代码集中放在Head部分，这样可以确保在Body Head部分 所有脚本代码集中放在Head部分，这样可以确保在Body 部分调用代码之前所有脚本代码都被读取并解码。 部分调用代码之前所有脚本代码都被读取并解码。 客户端脚本必须用符号<SCRIPT> </SCRIPT> 客户端脚本必须用符号 <SCRIPT>…</SCRIPT> 把脚本代 <SCRIPT> </SCRIPT>把脚本代 码嵌入到HTML页面中去。 HTML页面中去 码嵌入到HTML页面中去。
强制结束循环：Exit 强制结束循环：Exit do
4.6.7 While…Wend循环 （例4-27） While…Wend循环 27） While 条件 语句组 Wend 小结：例4 小结：例4-28
4.7 函数和子过程
4.7.1 子过程（例4-29/30） 子过程（例4 29/30） 子过程是通过一定形式命名的一段具有某种 特殊功能的程序代码。 定义子过程： 定义子过程： Sub 子过程名称[(参数1，参数2，…)] 子过程名称[(参数1，参数2 程序代码 End Sub 子过程一定要有名称，供调用时使用； 子过程也可以使用参数（形参）。
例： input.htm
<script language="VBscript"> dim strinput strinput=InputBox("请输入你的名字","输入姓名") strinput=InputBox("请输入你的名字","输入姓名") MsgBox strinput </script>
我坐电梯下去
Else
自由落体
End if （例4-10） （例4 10）
4.6.2多分支语句 Select… 4.6.2多分支语句 Select…Case(例4-11/13) 11/13) 语法：select 语法：select case 变量 case 值1 语句组1 语句组1 case 值2 语句组2 语句组2 …… case else 语句组N+1 语句组N+1 end select
4.1.2 在HTML中嵌入VBScript HTML中嵌入VBScript 语法：
<Script Language=“*”>…</Script> Language=“
在HTML网页中嵌入VBScript语言，有两种情况： HTML网页中嵌入VBScript语言，有两种情况：
一、在服务器端执行时(*.asp) 一、在服务器端执行时(*.asp)