第3章 vbscript
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Sub过程名(参数表) 语句组1 [Exit Sub] [语句组2] End Sub
Function 函数名(参数表) 语句组1 函数名=返回值 [Exit Function] [语句组2] [函数名=返回值] End Function
函数Function
返
回
15
【例3-12】 本例定义一个求阶乘函数Factor(n)，它返回n!；并定义过程 Output，它从输入文本框“InputText”读取输入值，调用Factor计算输入值 的阶乘，在输出框中输出该值，如图3-9所示。运行该程序时，先在输入数 据框中输入一个整数值，然后单击“显示结果”按钮，则在结果框中显示 所输入整数的阶乘值
流程控制
返
回
12
② 循环语句
For…Next语句
For 计数器变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] [语句组2] Next
For Each…Next语句
For Each 变量 In 数组或对象集合 语句组1 [Exit For] [语句组2] Next
返 回
第3章 VBScript
1
3.3 VBScript语言 （重要）
VBScript语言 VBScript是一种与Visual Basic相类似的程序设计语言，与 Visual Basic语法基本相同，但功能上限制比较多 VBScript与JavaScript一样，是嵌入于HTML中的，可以设 计出生动活泼、互动的Web pages和Web-based应用程序 VBScript可以在用户端和服务器端执行 VBScript是面向对象的程序设计语言，在VBScript的服务 器端程序中，ASP对象和ActiveX对象是十分重要的
13
While…Wend语句
While 条件表达式
语句组
Wend
Do…Loop语句
Do While|Until 条件表达式 语句组1 [Exit Do] [语句组2] Loop Do
语句组1
[Exit Do] [语句组2] Loop While | Until
返 回
14
6. 过程与函数
过程Sub
包含单精度浮点数，负数范围从 -3.402823E38 到 1.401298E-45，正数范围从 1.401298E-45 到 3.402823E38。
包含双精度浮点数，负数范围从 1.79769313486232E308 到 -4.94065645841247E-324， 正数范围从 4.94065645841247E-324 到 1.79769313486232E308。 包含表示日期的数字，日期范围从公元 100 年 1 月 1 日 到公元 9999 年 12 月 31 日。
23
MsgBox常量（button值)：
常数 vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel 值 0 1 2 3 描述 只显示确定按钮。 显示确定和取消按钮。 显示终止、重试和忽略按钮。 显示是、否和取消按钮。
vbYesNo
vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation
Chr(11)
水平附签。
垂直附签；在 Microsoft Windows 中不适用。
8
3. VBScript变量
①
变量及其声明
一种方式是使用Dim语句 ：
Dim clickCount
Dim Top,Bottom,Left,Right
一种方式是通过在VBScript程序中直接 使用变量名来隐式地声明变量 ：
21
2、msgbox函数： MsgBox ( prompt[, buttons][, title][, helpfile, context ] ) 功能：在对话框中显示消息，等待用户单击按钮，并返回一个 值指示用户 单击的按钮。 MsgBox 函数的语法有以下参数：
参数 prompt 描述 作为消息显示在对话框中的字符串表达式。prompt 的最大 长度大约是 1024 个字符，这取决于所使用的字符的宽度。 如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
vbNewLine
vbNullChar vbNullString
Chr(13) & Chr(10) 或 Chr(10)
Chr(0) 值为 0 的字符串
平台指定的新行字符；适用于任 何平台。
值为 0 的字符。 与零长度字符串 ("") 不同；用于 调用外部过程。
vbTab
vbVerticalTab
Chr(9)
返
回
4
VBScript中variant的子数据类型
子类型
Empty
描述
未初始化的 Variant。对于数值变量，值为 0；对于字符 串变量，值为零长度字符串 ("")。 不包含任何有效数据的 Variant。 包含 True 或 False。
Null Boolean
Byte
Integer Currency
Double
Date (Time)
String
Object Error
包含变长字符串，最大长度可为 20 亿个字符。
包含对象。 包含错误号。
6
2. VBScript常量
VBScript常量是具有一定含义的名称，其值是固定 不变的。VBScript中使用const语句定义常量，例 如：
const MyString="这是一个字符串" const Sum_N=20 const CurrDate=#10-11-2000#
VBScript定义了一批常量保留字，例如 vbString，vbByte等，它们是系统的预定义常量，其名字都 以“vb”开头
返 回
7
字符串常量 ：
常数 vbCr vbCrLf vbFormFeed vbLf 值 Chr(13) Chr(13) & Chr(10) Chr(12) Chr(10) 描述 回车符。 回车符与换行符。 换页符；在 Microsoft Windows 中不适用。 换行符。
22
buttons
title helpfile context
数值表达式，是表示指定显示按钮的数目和类型、使 用的图标样式，默认按钮的标识以及消息框样式的数 值的总和。有关数值，请参阅“设置”部分。如果省 略，则 buttons 的默认值为 0。 显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。 字符串表达式，用于标识为对话框提供上下文相关帮 助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。 数值表达式，用于标识由帮助文件的作者指定给某个 帮助主题的上下文编号。如果已提供 context，则必须 提供 helpfile。在 16 位系统平台上不可用。
18
InputBox 函数的语法有以下参数：
参数 描述
prompt
字符串表达式，作为消息显示在对话框中。prompt 的最大长度大 约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 以分隔各行。
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上 下文编号。如果已提供 context，则必须提供 helpfile。
20
数据如何输入：
1、Inputbox() • Dim x • x=val(inputbox()) 2、文本框 • <input type=“text” name=“txt”> • Dim x • x=text.value
求余
加
Mod
+
大于等于
对象引用比 较
>=
Is
逻辑隐含
Imp
减
字符串连接
&
11
5.
① 条件语句：
If…Then…Else语句 If 条件表达式 Then 语句组1 [Else 语句组2] End If Select Case语句 Select Case 表达式 Case值1 语句组1 Case值2 语句组2 … Case Else 语句组n End Select
查看源代码
图3-9 过程和函数简例
查看实际效果
16
返
回
7. 预定义函数
交互函数 字符串函数 日期时间函数 数学函数 类型转换函数
返
回
17
7.1 VBScript交互函数
1、inputbox函数：
InputBox ( prompt [, title][, default][, xpos][, ypos][, helpfile, context ] ) 功能：在对话框中显示提示，等待用户输入文本或单 击按钮，并返回文本框 内容。
3
3.3.2 VBScript基本语法
1. VBScript的数据类型
VBScript只有一种数据类型，即variant（变体 类型） variant是一种特殊的数据类型，根据使用的方 式，它可以包含不同类别的信息，即根据实际 使用的上下文环境，决定它所代表的数据内容 是“字符串”还是“数值”。
Num=0
MyName="Mary
另外：Option Explicit 可以强制定义变量。必须放 在第一句
返 回
9
② 变量名
• • • • 必须以字母开头 中间不能包含句点（.） 长度不超过255个字符 在变量的作用域范围内必须惟一
③ 变量的作用ቤተ መጻሕፍቲ ባይዱ与生存期 ④ 标量变量和数组变量
只包含一个值的变量称为标量变量，而数组变量则是包
ypos
数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离 （单位为缇）。如果省略 ypos，则对话框显示在屏幕垂直方向距 下边缘大约三分之一处。
helpfile
context
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。 如果已提供 helpfile，则必须提供 context。
包含 0 到 255 之间的整数。
包含 -32,768 到 32,767 之间的整数。 -922,337,203,685,477.5808 到 922,337,203,685,477.5807。 包含 -2,147,483,648 到 2,147,483,647 之间的整数。
5
Long
Single
4
5
显示是和否按钮。
显示重试和取消按钮。
16 显示临界消息图标。 32 显示警告询问图标。 48 显示警告消息图标。 64 显示提示消息图标。
title
显示在对话框标题栏中的字符串表达式。如果省略 title，则应用程 序的名称将显示在标题栏中。
19
default xpos
显示在文本框中的字符串表达式，在没有其它输入时作为默认的响 应值。如果省略 default，则文本框为空。 数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离 （单位为缇）。如果省略 xpos，则对话框会在水平方向居中。
返
回
2
3.3.1 在HTML中加入VBScript程序
在HTML中加入VBScript程序的方法与加入JavaScript程序 的方法相同 一种方法是利用HTML的<script>标记，只是该标记的 language属性值必须指定。其语法如下：
<script class=类名event=事件名for=对象名id=标识名language=脚本语言名src= 脚本文件URL>例如： <html>... <body> <form> <input type=button ID=Button1 value="按钮1"> </form> <script language="VBScript" for= Button1 event=onClick> alert("您刚才按了按钮1。") </script> </body> 返 回 </html> 查看效果
含多个相关值的变量
返
回
10
4、 VBScript运算符
算术运算符 描述 求幂 负号 乘 除 整除 符号 ^ * / \ 描述 等于 不等于 小于 大于 小于等于 比较运算符 符号 = <> < > <= 描述 逻辑非 逻辑与 逻辑或 逻辑异或 逻辑等价 逻辑运算符 符号 Not And Or Xor Eqv
Function 函数名(参数表) 语句组1 函数名=返回值 [Exit Function] [语句组2] [函数名=返回值] End Function
函数Function
返
回
15
【例3-12】 本例定义一个求阶乘函数Factor(n)，它返回n!；并定义过程 Output，它从输入文本框“InputText”读取输入值，调用Factor计算输入值 的阶乘，在输出框中输出该值，如图3-9所示。运行该程序时，先在输入数 据框中输入一个整数值，然后单击“显示结果”按钮，则在结果框中显示 所输入整数的阶乘值
流程控制
返
回
12
② 循环语句
For…Next语句
For 计数器变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] [语句组2] Next
For Each…Next语句
For Each 变量 In 数组或对象集合 语句组1 [Exit For] [语句组2] Next
返 回
第3章 VBScript
1
3.3 VBScript语言 （重要）
VBScript语言 VBScript是一种与Visual Basic相类似的程序设计语言，与 Visual Basic语法基本相同，但功能上限制比较多 VBScript与JavaScript一样，是嵌入于HTML中的，可以设 计出生动活泼、互动的Web pages和Web-based应用程序 VBScript可以在用户端和服务器端执行 VBScript是面向对象的程序设计语言，在VBScript的服务 器端程序中，ASP对象和ActiveX对象是十分重要的
13
While…Wend语句
While 条件表达式
语句组
Wend
Do…Loop语句
Do While|Until 条件表达式 语句组1 [Exit Do] [语句组2] Loop Do
语句组1
[Exit Do] [语句组2] Loop While | Until
返 回
14
6. 过程与函数
过程Sub
包含单精度浮点数，负数范围从 -3.402823E38 到 1.401298E-45，正数范围从 1.401298E-45 到 3.402823E38。
包含双精度浮点数，负数范围从 1.79769313486232E308 到 -4.94065645841247E-324， 正数范围从 4.94065645841247E-324 到 1.79769313486232E308。 包含表示日期的数字，日期范围从公元 100 年 1 月 1 日 到公元 9999 年 12 月 31 日。
23
MsgBox常量（button值)：
常数 vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel 值 0 1 2 3 描述 只显示确定按钮。 显示确定和取消按钮。 显示终止、重试和忽略按钮。 显示是、否和取消按钮。
vbYesNo
vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation
Chr(11)
水平附签。
垂直附签；在 Microsoft Windows 中不适用。
8
3. VBScript变量
①
变量及其声明
一种方式是使用Dim语句 ：
Dim clickCount
Dim Top,Bottom,Left,Right
一种方式是通过在VBScript程序中直接 使用变量名来隐式地声明变量 ：
21
2、msgbox函数： MsgBox ( prompt[, buttons][, title][, helpfile, context ] ) 功能：在对话框中显示消息，等待用户单击按钮，并返回一个 值指示用户 单击的按钮。 MsgBox 函数的语法有以下参数：
参数 prompt 描述 作为消息显示在对话框中的字符串表达式。prompt 的最大 长度大约是 1024 个字符，这取决于所使用的字符的宽度。 如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
vbNewLine
vbNullChar vbNullString
Chr(13) & Chr(10) 或 Chr(10)
Chr(0) 值为 0 的字符串
平台指定的新行字符；适用于任 何平台。
值为 0 的字符。 与零长度字符串 ("") 不同；用于 调用外部过程。
vbTab
vbVerticalTab
Chr(9)
返
回
4
VBScript中variant的子数据类型
子类型
Empty
描述
未初始化的 Variant。对于数值变量，值为 0；对于字符 串变量，值为零长度字符串 ("")。 不包含任何有效数据的 Variant。 包含 True 或 False。
Null Boolean
Byte
Integer Currency
Double
Date (Time)
String
Object Error
包含变长字符串，最大长度可为 20 亿个字符。
包含对象。 包含错误号。
6
2. VBScript常量
VBScript常量是具有一定含义的名称，其值是固定 不变的。VBScript中使用const语句定义常量，例 如：
const MyString="这是一个字符串" const Sum_N=20 const CurrDate=#10-11-2000#
VBScript定义了一批常量保留字，例如 vbString，vbByte等，它们是系统的预定义常量，其名字都 以“vb”开头
返 回
7
字符串常量 ：
常数 vbCr vbCrLf vbFormFeed vbLf 值 Chr(13) Chr(13) & Chr(10) Chr(12) Chr(10) 描述 回车符。 回车符与换行符。 换页符；在 Microsoft Windows 中不适用。 换行符。
22
buttons
title helpfile context
数值表达式，是表示指定显示按钮的数目和类型、使 用的图标样式，默认按钮的标识以及消息框样式的数 值的总和。有关数值，请参阅“设置”部分。如果省 略，则 buttons 的默认值为 0。 显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。 字符串表达式，用于标识为对话框提供上下文相关帮 助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。 数值表达式，用于标识由帮助文件的作者指定给某个 帮助主题的上下文编号。如果已提供 context，则必须 提供 helpfile。在 16 位系统平台上不可用。
18
InputBox 函数的语法有以下参数：
参数 描述
prompt
字符串表达式，作为消息显示在对话框中。prompt 的最大长度大 约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 以分隔各行。
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上 下文编号。如果已提供 context，则必须提供 helpfile。
20
数据如何输入：
1、Inputbox() • Dim x • x=val(inputbox()) 2、文本框 • <input type=“text” name=“txt”> • Dim x • x=text.value
求余
加
Mod
+
大于等于
对象引用比 较
>=
Is
逻辑隐含
Imp
减
字符串连接
&
11
5.
① 条件语句：
If…Then…Else语句 If 条件表达式 Then 语句组1 [Else 语句组2] End If Select Case语句 Select Case 表达式 Case值1 语句组1 Case值2 语句组2 … Case Else 语句组n End Select
查看源代码
图3-9 过程和函数简例
查看实际效果
16
返
回
7. 预定义函数
交互函数 字符串函数 日期时间函数 数学函数 类型转换函数
返
回
17
7.1 VBScript交互函数
1、inputbox函数：
InputBox ( prompt [, title][, default][, xpos][, ypos][, helpfile, context ] ) 功能：在对话框中显示提示，等待用户输入文本或单 击按钮，并返回文本框 内容。
3
3.3.2 VBScript基本语法
1. VBScript的数据类型
VBScript只有一种数据类型，即variant（变体 类型） variant是一种特殊的数据类型，根据使用的方 式，它可以包含不同类别的信息，即根据实际 使用的上下文环境，决定它所代表的数据内容 是“字符串”还是“数值”。
Num=0
MyName="Mary
另外：Option Explicit 可以强制定义变量。必须放 在第一句
返 回
9
② 变量名
• • • • 必须以字母开头 中间不能包含句点（.） 长度不超过255个字符 在变量的作用域范围内必须惟一
③ 变量的作用ቤተ መጻሕፍቲ ባይዱ与生存期 ④ 标量变量和数组变量
只包含一个值的变量称为标量变量，而数组变量则是包
ypos
数值表达式，用于指定对话框的上边缘与屏幕上边缘的垂直距离 （单位为缇）。如果省略 ypos，则对话框显示在屏幕垂直方向距 下边缘大约三分之一处。
helpfile
context
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。 如果已提供 helpfile，则必须提供 context。
包含 0 到 255 之间的整数。
包含 -32,768 到 32,767 之间的整数。 -922,337,203,685,477.5808 到 922,337,203,685,477.5807。 包含 -2,147,483,648 到 2,147,483,647 之间的整数。
5
Long
Single
4
5
显示是和否按钮。
显示重试和取消按钮。
16 显示临界消息图标。 32 显示警告询问图标。 48 显示警告消息图标。 64 显示提示消息图标。
title
显示在对话框标题栏中的字符串表达式。如果省略 title，则应用程 序的名称将显示在标题栏中。
19
default xpos
显示在文本框中的字符串表达式，在没有其它输入时作为默认的响 应值。如果省略 default，则文本框为空。 数值表达式，用于指定对话框的左边缘与屏幕左边缘的水平距离 （单位为缇）。如果省略 xpos，则对话框会在水平方向居中。
返
回
2
3.3.1 在HTML中加入VBScript程序
在HTML中加入VBScript程序的方法与加入JavaScript程序 的方法相同 一种方法是利用HTML的<script>标记，只是该标记的 language属性值必须指定。其语法如下：
<script class=类名event=事件名for=对象名id=标识名language=脚本语言名src= 脚本文件URL>例如： <html>... <body> <form> <input type=button ID=Button1 value="按钮1"> </form> <script language="VBScript" for= Button1 event=onClick> alert("您刚才按了按钮1。") </script> </body> 返 回 </html> 查看效果
含多个相关值的变量
返
回
10
4、 VBScript运算符
算术运算符 描述 求幂 负号 乘 除 整除 符号 ^ * / \ 描述 等于 不等于 小于 大于 小于等于 比较运算符 符号 = <> < > <= 描述 逻辑非 逻辑与 逻辑或 逻辑异或 逻辑等价 逻辑运算符 符号 Not And Or Xor Eqv