ASP脚本语言-VBScript.ppt

1、第3章 ASP脚本语言VBScript,吴运明 信息技术与传播学院,3.1 VBScript概述,3.1.1 VBScript用途 Microsoft公司 脚本语言，属Basic语法体系 用途： （1）客户端脚本编程 （2）服务器端动态脚本编程,用途（1）：客户端脚本编程,基本格式： 程序语句 ,例：1.html VBScript客户端应用 for i=1 to 100 sum=sum+i next document.write(1+2+3+.+100= & sum) ,用途（2）：服务器端脚本编程,基本格式： 程序语句 改进： asp页面第一行 页面的其他地方使用 ,例：2.asp VBSc

2、ript服务器端应用 ,用途（2）：服务器端脚本编程,默认语言，可以省略,3.2 VBScript数据类型及运算符,3.2.1 数据类型 Variant：变体类型，根据用途选择最合适的子类型来存储数据 Variant包含的子数据类型：P31 表3-1,3.2.2 VBScript中的运算符,算术运算符 逻辑运算符 比较运算符 字符串连接符,（1）算术运算符,（2）逻辑运算符,用于判断表达式是否成立，其返回值为真或假 与：And 或：Or 非：Not,（3）比较运算符,用于将表达式两边的值做出比较，返回值为True或False = =,（4）字符串连接符,& ：连接字符串、不同类别的数据 例如：

3、 “abc” & “123” “abc123” s1=Today is： D=#2010/10/25# s2=s1&D document.write(s2&) x1=123. & 25 document.write(x1) + ：字符串与字符串的串接运算 First=PeterLast=Wangdocument.write(first+ +last),例：3.html,3.3 VBScript变量和常量,3.3.1 变量的声明与赋值 声明变量：Dim 变量名 如：dim x, y 变量赋值：变量名=值 如：x=10 强制声明变量 Option Explicit 例：4.html 课本P33,3

4、.3.2 数组的定义,1.定义一维数组：Dim 数组名(最大下标) 如：dim x(4) 定义了x(0)x(4)共5个数组元素 说明：数组下标从0开始，元素个数为最大下标值+1 2.定义二维数组：Dim X(M,N) 例如：Dim X(2,2) X(0,0)=85 X(1,1)=88 定义多维数组： Dim 数组名称(M,N,L.),3.数组与For-Next循环的搭配,(1) 读取数组数据 x=array(“word”, “excel”, “powerpoint”, “access”) for i=0 to 3 document.write x(i)&“” next (2)Ubound函数：

5、读取数组中最大的下标。 上式改为： for i=0 to Ubound(x) document.write x(i)&“” next,4. 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个元素 注

6、意：当数组大小被改变时，数组中所有元素的内容都会变为Empty，例如： ReDim X(5) X(0)=10 X(1)=20 ReDim X(10),此时X(0)及X(1)均为Empty,Preserve：在改变数组大小的同时，保留原数组的内容。 例如： ReDim x(5) X(0)=10 X(1)=20 ReDim Preserve X(10) X(0)及(1)的内容维持为10及20,（2）动态改变数组的大小,ReDim Preserve X(10),3.3.3 定义常量,常量的定义 Const 常量名称=值 如： Const MyString=“这是一个字符串” Const a=30,3

7、.4 VBScript常用函数,数学运算函数 字符串函数 日期函数 数据类型转换函数 其他函数,3.4.1 数学运算函数,(1) 取整函数 Fix：取整，直接去掉小数部分 Int：取整，取=x的最大整数部分 二者区别在负数，fix(-5.6)=-5 int(-5.6)=-6 (2)四舍五入函数 Cint：cint(5.2)=5 cint(5.6)=6 Cint也可用于将字符串数据转化为数值数据，并四舍五入 (3) FormatNumber函数 X=FormatNumber(数值，所取的小数点位数),3.4.2 字符串函数,(1)Len：字符串长度 Len(“student”) 7 Len(“计

8、算机”) 3 (2) Ucase/Lcase：大小写转换 (3)截取字符串 Left(“Vbscript函数有哪些”,5) right(“Vbscript函数有哪些”,5) mid(“Vbscript函数有哪些”,5) mid(“Vbscript函数有哪些”,5,9),(4) Trim/LTrim/RTrim函数：去除空格 (5) Join函数：简化数组数据的输出 例：5.html Dim Books(3) Books(0) = F8308 VB6 与 Windows API 讲座 Books(1) = F8315 新概念的 VB6 教程 Books(2) = F8316 VB6 实战讲座 B

9、ooks(3) = F8317 VB6 数据库程序设计 document.Write ( & Join(Books, ) & ) (6) Split函数 s=“30,40,50,60” s=Split(s, “,”) 例：6.html,(7) Replace函数：Replace(s, “s1”, “s2”) 如：s=“abcd,efgh,ijkl” s=replace(s, “,”, “”) 例：7.html,3.4.3 日期函数,(1) Date()、Time()、Now() (2) Year()、Month()、Day()、Weekday() (3) Hour()、Minute()、Sec

10、ond() (4) 用DateAdd函数计算使用期限 D = DateAdd( d, +60, Date ) 若是改成使用两个月, 则以上语句改成: D = DateAdd( m, +2, Date ) D = DateAdd( “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

11、：数值转换为字符串函数 Val：字符串转换成数字 Asc：字符转换成ASCII码 Chr：数值转换成字符,3.4.5 其他函数,(1) Rnd函数 Rnd函数产生0=且1的随机实数 产生0N-1之间的整数： Fix(Rnd*N) N为整数 例：8.html (2)产生输入框 格式1：inputbox(“请输入您的姓名：”) 格式2：prompt(“请输入您的姓名：”) (3)产生提示框 alert(“提示信息”),(4)产生选择框 格式1：confirm(“确定删除吗？”) 格式2：msgbox(“提示信息”,数值) 数值： 0：默认，显示确定按钮 1：显示确定、取消 2：显示终止、重试、忽略

12、 3：显示是、否、取消 4：显示是、否 5：显示重试、取消,例：9.html,3.5 VBScript程序结构,条件语句 循环语句,3.5.1 条件语句,例如： X80 If X60 Then V=“及格” Else V=“不及格” End if,1. 有条件执行的IF语句,2. 嵌套IF语句,if 条件式样1 then if 条件式样2 then 语句区段11 else 语句区段12 end if 其它语句else 语句区段2end if,3. 逐一过滤条件的If.elseif语句,If 条件式1 then 语句区段 1elseif 条件式 2 then 语句区段 2.elseif 条件式

13、N then 语句区段Nelse语句区段N+1end if 练习 10.html：输入一个整数N，并判断这个整数还是负数，如果是正数，是一位数、二位数或是三位数以上。,4. Select Case语句,例如： Select Case age case 0,1,2,3,4,5 S=“幼儿” case 6,7,8,9,10,11 S=“儿童” case 12,13,14,15,16,17 S=“少年” case else S=“成人” End Select,3.5.2 循环语句,1. For-Next,ForNext: 指定循环次数，使用计数器重复运行语句。 语法： For 计次变量起始值 To

14、中止值 Step 步进值 语句区段 Next,例如：计算Sum12320 sum=0 for i=1 to 20 step 1 sum=sum+i next,2.DoLoop循环,格式一： Do while 条件式 语句区段 Loop,格式二： Do 语句区段 Loop while 条件式,例如：计算Sum12320 sum=0:i=1 Do while i=20 sum=sum+i i=i+1 Loop,例如：计算Sum12320 sum=0:i=1 Do sum=sum+i i=i+1 Loop while i=20,3. While-Wend循环,格式是： While 条件式 语句区段

15、Wend,例如：计算Sum12320 sum=0:i=1 while i=20 sum=sum+i i=i+1 wend,4. For EachNext,语法格式： For Each 变量 In 集合(或数组) Next ” next %,3.6 子程序与函数,（1）定义方法： Sub 子程序名称(形参) End Sub （2）调用子程序： call 子程序名称(实参),3.6.1 子程序, sub xm() dim name name=prompt(请输入你的姓名) document.write 欢迎你， & name & ! end sub sub pf(a) dim s s=a*a do

16、cument.write(A的平方= & s) end sub ,课本P45 例3-6：11.html, call xm a1=prompt(请输入A值：) call pf(a1) ,3.6.2 Function函数,函数定义格式： Function 函数名(形式参数) End function 调用函数：函数名(实际参数) 返回值设置：函数名称=欲返回的值,课本P46 例3-7 12.html,说明：Sub和Function区别,Subend sub functionend function Sub过程不带返回值，function有返回值 调用sub过程使用call语句；调用Function

17、时将函数名和参数放在赋值语句或表达式中,3.6.3 变量的作用域,变量的作用域：变量所起作用的范围 局部变量：在过程或函数内声明的变量 全局变量：在过程外声明的变量 变量的生存周期 课本P47 例3-8 13.html,3.7 使用VBScript对象编程,对象：属性、事件、方法 对象使用方法： 对象.属性|方法|事件 如：document.write,3.7.1 Document对象,Document：文档，浏览网页时看到的页面，包括其中的文本、图片、链接、表单等。 常用的方法属性： write方法：动态的在HTML文档中写入新的HTML代码 如：document.write(“这是我的网页”) document.write(“这是我的网页”) LastModified属性：在页面上自动产生最后修改的日期 如：docume