第3章ASP脚本语言—VBScript吴运明信息技术与传播学院3.1 VBScript概述3.1.1 VBScript用途●Microsoft公司脚本语言，属Basic语法体系●用途：（1）客户端脚本编程（2）服务器端动态脚本编程用途（1）：客户端脚本编程●基本格式：<script language=“VBScript”>程序语句</script>例：1.html<html><head><title>VBScript客户端应用</title></head><body><script language=“VBScript”>for i=1 to 100sum=sum+inext document.write("1+2+3+...+100=" & sum)</script></body></html>用途（2）：服务器端脚本编程●基本格式：<script language=“VBScript” runat=“server”>程序语句</script>●改进：<%@Language="VBScript"%>asp页面第一行页面的其他地方使用<% ... %>用途（2）：服务器端脚本编程例：2.asp<%@Language="VBScript"%><html><head><title>VBScript服务器端应用</title></head><body><%for i=1 to 100sum=sum+inext response.write("1+2+3+...+100=" & sum)%></body></html>3.2 VBScript数据类型及运算符3.2.1 数据类型●Variant：变体类型，根据用途选择最合适的子类型来存储数据●Variant包含的子数据类型：P31 表3-13.2.2 VBScript中的运算符（1）算术运算符（2）逻辑运算符（3）比较运算符（4）字符串连接符（1）算术运算符（2）逻辑运算符用于判断表达式是否成立，其返回值为真或假与：And或：Or非：Not（3）比较运算符用于将表达式两边的值做出比较，返回值为True或False =<><><=>=（4）字符串连接符●& ：连接字符串、不同类别的数据●例如：“abc” & “123” “abc123”<script language="vbscript">s1="Today is："D=#2010/10/25#s2=s1&Ddocument.write(s2&"<br>")x1="123." & 25document.write(x1)</script>●+ ：字符串与字符串的串接运算First="Peter"Last="Wang"document.write(first+""+last)3.3 VBScript变量和常量3.3.1 变量的声明与赋值●声明变量：Dim 变量名如：dim x, y●变量赋值：变量名=值如：x=10●强制声明变量●Option Explicit●例：4.html 课本P333.3.2 数组的定义1.定义一维数组：Dim 数组名(最大下标)如：dim x(4) …定义了x(0)~x(4)共5个数组元素●说明：数组下标从0开始，元素个数为最大下标值+12.定义二维数组：Dim X(M,N)例如：Dim X(2,2)X(0,0)=85X(1,1)=88定义多维数组：Dim 数组名称(M,N,L....)3.数组与For-Next循环的搭配(1) 读取数组数据●x=array(“word”, “excel”, “powerpoint”, “access”)for i=0 to 3document.write x(i)&“<p>”next(2)Ubound函数：读取数组中最大的下标。
上式改为：for i=0 to Ubound(x)document.write x(i)&“<p>”next4. ReDim：重建数组（1）重建数组：●ReDim 数组名（数组下标的最大值）例如：ReDim X(5)●注意：利用ReDim所建立出来的数组其所有的元素一开始都等于Empty判断X(i)是否为Empty：IsEmpty函数例如：isempty(x(i))（2）动态改变数组的大小●动态改变数组：ReDim X(5) …建立一个含有6个元素的数组ReDim X(10) ‟将数组的大小增加为11个元素ReDim X(3) …将数组大小减少为4个元素●注意：当数组大小被改变时，数组中所有元素的内容都会变为Empty，例如：ReDim X(5)X(0)=10X(1)=20ReDim X(10) …此时X(0)及X(1)均为Empty（2）动态改变数组的大小●Preserve：在改变数组大小的同时，保留原数组的内容。
例如：ReDim x(5)X(0)=10X(1)=20ReDim Preserv e X(10)'X(0)及(1)的内容维持为10及203.3.3 定义常量●常量的定义●Const 常量名称=值●如：Const M yString=“这是一个字符串”Const a=303.4 VBScript常用函数●数学运算函数●字符串函数●日期函数●数据类型转换函数●其他函数3.4.1 数学运算函数(1) 取整函数●Fix：取整，直接去掉小数部分●Int：取整，取<=x的最大整数部分●二者区别在负数，f ix(-5.6)=-5 int(-5.6)=-6(2)四舍五入函数●Cint：cint(5.2)=5 cint(5.6)=6Cint也可用于将字符串数据转化为数值数据，并四舍五入(3) FormatNumber函数X=FormatNumber(数值，所取的小数点位数)3.4.2 字符串函数(1)Len：字符串长度Len(“student”) 7Len(“计算机”) 3(2) Ucase/Lcase：大小写转换(3)截取字符串Left(“V bscript函数有哪些”,5)right(“Vbscript函数有哪些”,5)mid(“Vbscript函数有哪些”,5)mid(“Vbscript函数有哪些”,5,9)(4) Trim/LTrim/RTrim函数：去除空格(5) Join函数：简化数组数据的输出例：5.htmlDim Books(3)Books(0) = "F8308 VB6 与Windows API 讲座"Books(1) = "F8315 新概念的VB6 教程"Books(2) = "F8316 VB6 实战讲座"Books(3) = "F8317 VB6 数据库程序设计"document.Write ("<UL><LI>" & Join(Books, "<LI>") & "</UL>") (6) Split函数s=“30,40,50,60”s=Split(s, “,”)例：6.html(7) Replace函数：Replace(s, “s1”, “s2”)如：s=“abcd,efgh,ijkl”s=repla ce(s, “,”, “<br>”)例：7.html3.4.3 日期函数(1) Date()、Time()、Now()(2) Year()、Month()、Day()、Weekday()(3) Hour()、Minute()、Second()(4) 用DateAdd函数计算使用期限D = DateAdd( "d", +60, Date )' 若是改成使用两个月, 则以上语句改成:D = DateAdd( "m", +2, Date )D = Da teAdd( “yyyy", +2, Date )(5) 用DateDiff函数计算时间差S = DateDiff( "s", Now, #2010/01/01 00:00:00# )D = DateDiff( "d", Now, #2010/01/01 00:00:00# )yyyy m d ww h n s年月日星期小时分钟秒3.4.4 数据类型转换函数●Cstr：数值转换为字符串函数Val：字符串转换成数字Asc：字符转换成ASCII码Chr：数值转换成字符3.4.5 其他函数(1) Rnd函数Rnd函数产生0<=且<1的随机实数产生0～N-1之间的整数：Fix(Rnd*N) N为整数例：8.html(2)产生输入框格式1：inputbox(“请输入您的姓名：”)格式2：prompt(“请输入您的姓名：”)(3)产生提示框alert(“提示信息”)(4)产生选择框格式1：confirm(“确定删除吗？”)格式2：msgbox(“提示信息”,[数值])数值：0：默认，显示确定按钮1：显示确定、取消2：显示终止、重试、忽略3：显示是、否、取消4：显示是、否5：显示重试、取消、3.5 VBScript程序结构条件语句循环语句3.5.1 条件语句2. 嵌套IF语句if条件式样1 thenif 条件式样2 then语句区段1－1else语句区段1－2end if其它语句else语句区段2end if3. 逐一过滤条件的If...elseif语句If 条件式1 then语句区段1elseif 条件式2 then语句区段2...elseif 条件式N then语句区段Nelse语句区段N+1end if练习10.html：输入一个整数N，并判断这个整数还是负数，如果是正数，是一位数、二位数或是三位数以上。