ASP脚本语言

第3章ASP脚本语言—VBScript

吴运明

信息技术与传播学院3.1 VBScript概述

3.1.1 VBScript用途

●Microsoft公司脚本语言，属Basic语法体系

●用途：

（1）客户端脚本编程

（2）服务器端动态脚本编程

用途（1）：客户端脚本编程

●基本格式：

例：1.html

用途（2）：服务器端脚本编程

●基本格式：

●改进：

<%@Language="VBScript"%>

asp页面第一行

页面的其他地方使用

<% ... %>

用途（2）：服务器端脚本编程

例：2.asp

<%@Language="VBScript"%>

<%

for i=1 to 100

sum=sum+i

next response.write("1+2+3+...+100=" & sum)

%>

3.2 VBScript数据类型及运算符

3.2.1 数据类型

●Variant：变体类型，根据用途选择最合适的子类型来存储数

据

●Variant包含的子数据类型：P31 表3-1

3.2.2 VBScript中的运算符

（1）算术运算符

（2）逻辑运算符

（3）比较运算符

（4）字符串连接符

（1）算术运算符

（2）逻辑运算符

用于判断表达式是否成立，其返回值为真或假

与：And

或：Or

非：Not

（3）比较运算符

用于将表达式两边的值做出比较，返回值为True或False =

<>

<

>

<=

>=

（4）字符串连接符

●& ：连接字符串、不同类别的数据

●例如：

“abc” & “123” “abc123”

●+ ：字符串与字符串的串接运算

First="Peter"

Last="Wang"

document.write(first+""+last)

3.3 VBScript变量和常量

3.3.1 变量的声明与赋值

●声明变量：Dim 变量名

如：dim x, y

●变量赋值：变量名=值

如：x=10

●强制声明变量

●Option Explicit

●例：4.html 课本P33

3.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函数：读取数组中最大的下标。

上式改为：

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个元素

●注意：当数组大小被改变时，数组中所有元素的内容都会变为Empty，

例如：

ReDim X(5)

X(0)=10

X(1)=20

ReDim X(10) …此时X(0)及X(1)均为Empty

（2）动态改变数组的大小

●Preserve：在改变数组大小的同时，保留原数组的内容。

例如：

ReDim x(5)

X(0)=10

X(1)=20

ReDim Preserv e X(10)

'X(0)及(1)的内容维持为10及20

3.3.3 定义常量

●常量的定义

●Const 常量名称=值

●如：

Const M yString=“这是一个字符串”

Const a=30

3.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)=6

Cint也可用于将字符串数据转化为数值数据，并四舍五入

(3) FormatNumber函数

X=FormatNumber(数值，所取的小数点位数)

3.4.2 字符串函数

(1)Len：字符串长度

Len(“student”) 7

Len(“计算机”) 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.html

Dim Books(3)

Books(0) = "F8308 VB6 与Windows API 讲座"

Books(1) = "F8315 新概念的VB6 教程"

Books(2) = "F8316 VB6 实战讲座"

Books(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=repla ce(s, “,”, “
”)

例：7.html

3.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 条件语句