VBScript语言基础知识

一．VBScript语言概述

我们都希望制作出的网页既精致美观又生动活泼而且功能强大，用VBScript语言可以实现这一愿望。

VBScript是Microsoft Visual Basic的简化版本。

VBScript是特意为在浏览器中进行工作而设计的。

编程方法和Visual Basic基本相同。

VBScript只有一种数据类型，即，Variant类型。

VBScript不支持Visual Basic中传统的I/O功能，即不能通过Open语句和函数在客户机上读写文件，这样防止了可能对客户机造成的危害；VBScript不能调用API函数，这是因为API函数调用会危及客户机的安全，如病毒可以轻而易举地通过API函数调用来破坏客户机；Visual Basic支持Screen、Printer、App、Debug、Err和Clipboard等系统对象，但VBScript只支持Err对象，该对象用于为应用程序提供运行时错误处理。

二．VBScript语言特点

易学易用

VBScript既可编写服务器脚本，也可编写客户端脚本。

客户端编程语言的优点是

（1）浏览器完成了所有的工作，这可以减轻服务器的负担。

（2）客户端程序运行起来比服务器端程序快得多。

一般来说，可以解释VBScript脚本的浏览器只有Microsoft Internet Explorer。

三．VBScript程序的编辑和调试

必须使用<SCRIPT>标签，才能使用脚本语言，格式如下：

VBScript代码

</SCRIPT>

例如，我们可以用一句VBScript语句将"你好，学习VBScript很有趣"写入HTML页面。

<!--

Window.Document.Write("你好，学习VBScript很有趣！")

-->

</SCRIPT>

解释上例中的文档对象的用法：

在文档对象模型（DOM）中，Window对象是最高层的对象，Document对象是Window对象的子对象，所以引用Document对象时应该使用Window.Document，而Write()是Document对象的方法，所以引用Write()方法时，应该使用Window.Document.Write()。

又如：

<!--

Window.alert("你好")

-->

</SCRIPT>

<SCRIPT>标签的LANGUAGE属性

用以指定包含在<SCRIPT>标签中的脚本代码的语言类型。

<SCRIPT>标签的RUNAT属性

RUNAT属性用以指定包含在<SCRIPT>标签中的脚本代码的运行于服务端还是客户端。

VBScript代码

</SCRIPT>

注意：文件要保存成.asp，如果在客户运行则Runat属性可以省略。

注释标签的运用

<!--

VBScript代码

-->

</SCRIPT>

对不支持VBScript的浏览器，会将VBScript代码将作为页面的文本直接显示在页面上，这将会极大地破坏整个页面的布局，所以我们需要运用注释标签来解决这个问题。

四．用VBScript往网页上写内容。

以下示例VBScript代码的功能是在页面上写入“这是一个VBScript的简单示例” 。

<HTML>

<HEAD>

<TITLE>一个 VBScript 示例</TITLE>

<!--

Window.Document.Write("这是一个VBScript的简单示例")

-->

</SCRIPT>

</HEAD>

</HTML>

按钮按下后能够出现警告框的示例。

<HTML>

<HEAD>

<TITLE>一个 VBScript 示例</TITLE>

</HEAD>

<BODY>

<FORM>

</FORM>

</BODY>

</HTML>

<!--

sub alerter()

window.alert("这是一个VBScript的简单示例")

end sub

-->

</SCRIPT> 执行

五．VBScript代码的位置不同执行的顺序不同

下载时立即运行的，而且没有包含于过程之中VBScript代码嵌入到<HEAD>标签和</HEAD>标签之间，这段VBScript代码将在页面绘制之前执行。例如

有时候我们并不希望VBScript代码在页面绘制之前执行，而是希望能够在页面绘制中，在页面合适的位置进行处理。

例如

下载时立即运行的，而且没有包含于过程之中VBScript代码嵌入到<HEAD>标签和</HEAD>标签之间，这段VBScript代码将在页面绘制之前执行。例如

有时候我们并不希望VBScript代码在页面绘制之前执行，而是希望能够在页面绘制中，在页面合适的位置进行处理。例如

另外一种解决方式：先直接在页面中写上表格的标签，然后运用VBScript代码在表格内写字符串。例如。

调用时运行VBScript代码的位置

一般情况下，我们最好是将VBScript代码放在<HEAD>标签和</HEAD>标签之间，这不是编写脚本的强制要求，而是一种良好的编写风格。例如。

还有一种嵌入的方法，就是在页面元素事件处理中直接嵌入VBScript代码（一般为一行）。

<INPUT TYPE="button" VALUE="ALERT"

OnClick=“Window.alert(‘这是一个VBScript的简单示例’)”>例如。

六．客户端脚本代码示例

用浏览器打开时，将显示一个文本框和一个按钮。在文本框中输入数字后，单击"提交"按钮，浏览器会查找并执行过程Button1_OnClick。执行时将调用表单的Submit方法将数据提交到服务器。若输入不正确，如不是数字或小于1或大于50，则会调用MsgBox语句产生消息框提示输入正确的数字。

七．VBScript 数据类型

VBScript 只有一种数据类型，称为Variant。

Variant可以进一步区分数值信息的特定含义。例如使用数值信息表示日期或时间。

见 VBScript 数据类型表

1 ．什么是常量

常数是具有一定含义的名称，用于代替数字或字符串，其值从不改变。VBScript定义了许多固有常数。

2．声明常量

使用Const语句可以在VBScript中创建用户自定义常数。例如：

Const MyString = "这是一个字符串。"

Const MyAge = 49

请注意字符串文字包含在两个引号(“”)之间。日期文字和时间文字包含在两个井号(#)之间。例如：

Const CutoffDate = #6-1-03#

3．VBScript变量

变量是计算机内存中已命名的内存位置，该位置可存储脚本运行时能更改的信息。

在VBscript脚本中，使用变量并不需要了解变量在计算机内存中的地址，只要通过变量名引用变量就可以查看或更改变量的值。

4．声明变量

语句格式：DIM myvar1, myvar2, myvar3

在VBscript脚本中，使用一个变量之前不需要专门声明它。

通过直接在脚本中使用变量名的方式叫隐式声明变量。

隐式声明变量不是一个好习惯，先声明变量再使用是编程的良好习惯。

VBScript中提供了Option Explicit语句来强制显式声明变量，这样如果你在编写长而复杂的程序时，如果你敲错了应该变量的名字，将会产生错误，可以帮助你调试脚本。例如。

5．变量命名规则

变量命名必须遵循VBScript的标准命名规则。变量命名必须遵循：

（1）第一个字符必须是字母。

（2）不能包含嵌入的句点。

（3）长度不能超过255个字符。

（4）在被声明的作用域内必须唯一。

（5）不能使用VBScript中的保留字作为变量名。

在VBScript中给变量命名不区分大小写。给变量命名时，为便于记忆与使用最好能做到“顾名知义”。

6．注释VBScript脚本

Rem comment

' comment

例如：

Dim MyStr1,MyStr2

MyStr1 = "Hello": Rem 语句和注释用冒号隔开。

MyStr2 = "Goodbye"' 这同样是注释不需要冒号。

Rem 在没有代码的行上加注释不必用冒号。

REM I am a VBScript comment.

' I am also a VBScript comment.

7．VBScript脚本中的续行符

在VBScript脚本中当一行写得很长时，程序的可读性会变得很差，如果从语法上没法换行，而我们又想换行时可使用续行符，续行符是空格紧跟一个下划线（“ _”）。请注意：一定不要忘记前面的空格。

请注意：一定不要忘记前面的空格。

八．VBScript 数据类型

1．VBScript中的算术运算符

用于执行数学计算的运算符。

VBScript中提供了7个算术运算符，其中加（+）、减（-）、乘（*）、除（/）和取负（-）几个运算符的含义与数学中的基本相同。

\（整除操作符）

在VBScript中，整数除法先对操作数进行四舍五入运算使操作数变为整数，然后进行除法运算，整数除法运算后的结果是一个整数，1.5\2=1，而1.4\2=0。

mod（取模操作符）

将两个操作数相除，返回相除后的余数，例如表达式5 mod 3的运算结果为2。38.57 mod 14.21的运算（先四舍五入再取余）结果为11。

2．连接运算符

（1）+（加操作符）

加操作符还可以对字符串类型的操作数进行运算，然后将两个字符串相连起来作为运算结果。例如，"How are "+"you! "的运算结果为"How are you! "。

（2）&（连接运算符）

用于字符串的连接，即将两个字符串变量连接起来，生成一个新的字符串。+运算符也能进行字符串的连接，但只能将两个字符串连接。&运算符能强制性地将两个表达式（不论是什么类型）做字符串连接，用+运算符连接其它类型数据时会出现错误。

3．比较操作符

比较操作符将操作数进行比较，然后返回一个逻辑值，表明这个比较操作的结果是否为真，比较操作符的操作数可以是数值类型或者字符串类型的数据。比较操作符共有6种。分别是。

=、> 、 < 、 >= 、 <= 、 <>

除了数值类型之外，字符串类型也可以进行比较，在比较字符串的过程中，VBScript把字符串中的每个字母转换成相应的ASCII码值，然后从第一个字符开始比较两个字符串中相应的字符，比较它们的ASCII码值。

4．比较操作符示例

例如，"hello"="Hello"的返回结果为False，因为左操作数的第一个字符为h，右操作数的第一个字符为H，h的ASCII码值为104，H的ASCII码值为72，从第一个字符开始就不相等了，所以表达式的值为False。

而如果表达式为"came">="come"，首先，比较两个操作数的第一个字符，都是c，这样，不能直接判定两个操作数的大小，然后再比较两个操作数的第二个字符，左操作数为a，右操作数为o，a的ASCII码值为97，o的ASCII码值为111，当然97<111，所以对于这个表达式来说，它的返回结果为False。

5．逻辑运算符

and（与操作符）

result = expression1 And expression2

当且仅当两个表达式均为 True，则 result 为 True。如果任一表达式为 False，则 result 为 False。

or（或操作符）

result = expression1 Or expression2

如果两个表达式中至少有一个为True，则result为True。

not（非操作符）

非操作符只有一个操作数，当操作数为True时，返回结果为False，当操作数为False时，返回结果为True。例如表达式not(2>3)逻辑运算结果为True，因为2>3的结果为False，而表达式not(2<3)的逻辑运算结果为False，因为2<3的结果为True。

6．运算符优先级

运算时，总是先执行括号中的运算符，然后再执行括号外的运算符。

首先计算算术运算符，然后计算比较运算符，最后计算逻辑运算符。所有比较运算符的优先级相同，即按照从左到右的顺序计算比较运算符。

九．标量变量和数组变量

多数情况下，只需为声明的变量赋一个值。只包含一个值的变量被称为标量变量。有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量（即具有相同名子不同下标值的一组变量），称为数组变量。

1．声明固定数组

数组变量和标量变量是以相同的方式声明的，唯一的区别是声明数组变量时变量名后面带有括号()。与前面讨论的变量不同，数组在使用之前必须声明。

例如：Dim A(10)

注意：VBScript中数组的下标从0开始。上例声明了一个包含11个元素的一维数组。

2．声明动态数组

目前讨论过的只限于固定大小的数组。一旦你声明了一个固定大小的数组，你将不能改变数组中的元素个数。要改变一个固定数组的大小，你必须删除它再重新创建。VBScript中另外有一种数组叫动态数组。动态数组是运行时可以改变大小的数组。

当声明一个动态数组时，你不需要指定数组的大小与维数，只需在数组名后加一对空括号。但在第一次给一个动态数组分配数值之前，必须用Redim语句指定它的大小与维数。例如

十．流程控制语句

1．条件控制语句

（1）只有一个条件语句形式：举例

If 条件表达式 then

语句块

End If

（2）条件为 True 和 False 时分别运行的语句形式：举例

If条件表达式then

语句块1

else

语句块2

End If

（3）If判断结构嵌套使用：举例

If条件表达式0 then

If条件表达式1 then

语句块1

else

语句块2

End If

else

语句块3

End If

（4）elseIf结构：举例

If条件表达式1 then

语句块1

elseIf条件表达式2 then

语句块2

elseIf条件表达式3 then

语句块3

……

elseIf条件表达式n then

语句块n

else

语句块n+1

End If

（5）使用 Select Case 进行判断：举例

Select Case 测试表达式

Case 表达式列表1

[语句块1]

[Case 表达式列表达2

[语句块2]]

……

[Case Else表达式列表n

[语句块n]]

End Select

2．循环控制语句

（1）Do...Loop 循环例1

可以使用 Do...Loop 语句多次（次数不定）运行语句块。当条件为 True 时或条件变为 True 之前，重复执行语句块。

Do...Loop 语句形式：

第一种语法形式是先判断循环条件

Do [{While | Until} condition]

[statements]

[Exit Do]

[statements]

Loop

Do...Loop 循环例2 例3

第二种语法形式是先执行一次循环，再判断循环条件

[statements]

[Exit Do]

[statements]

Loop [{While | Until} condition]

（2）While...Wend循环

While...Wend 语句是当指定的条件为 True 时，执行一系列的语句。语法形式为：

While condition

[statements]

Wend

（3）For...Next循环举例

For...Next语句是以指定次数重复执行一组语句。

语句一般形式是：

For counter = start To end [Step step]

[statements]

[Exit For]

[statements]

For...Next循环嵌套举例

可以将一个For...Next循环放置在另一个For...Next循环中，组成嵌套循环。每个循环中的counter要使用不同的变量名。

（4）For Each...Next循环举例

For Each...Next 循环与 For...Next 循环类似。For Each...Next不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。

For Each...Next 语句的一般形式如下：

For Each element In group

[statements]

[Exit For]

[statements]

Next [element]

（5）On Error 语句

语法形式：On Error Resume Next

当一个错误发生时，这条语句就执行紧靠发生错误语句后面的语句，或者执行紧靠调用进程后面的语句。

Sub cmdSubmit_OnClick

On Error Resume Next

Myvar="aaa"+30

'显示引起错误的描述

If Err <> 0 Then

Msgbox "An error occurred. " & Err.Description

Err.Clear

End if

End Sub

十一．过程与函数据

1．Sub过程例1 例2 例3

声明Sub过程的名称、参数以及构成其主体的代码。

Sub name [(arglist)]

[statements]

[Exit Sub]

[statements]

End Sub

注意：Sub过程默认为公用，即它们对于脚本中的所有其他过程都是可见的。Sub过程中局部变量的值在调用过程中不被保留。

注意：不能在任何其他过程（例如，Function）中定义Sub过程。

Call语句

将控制权传递给Sub或Function过程。其语句的一般形式如下：

[Call] name [argumentlist]

可选项关键字。如果指定此关键字，则必须用括号把argumentlist括起来。例如：

Call MyProc(0)

你可以调用同一个过程任意多次。

2．Function 过程例1 例2 例3 例4

声明Function过程的名称、参数以及构成其主体的代码，其一般语句形式是：

Function name [( arglist)]

[statements]

[name = expression]

[Exit Function]

[statements]

[name = expression]

End Function

与Sub过程基本相同，与Sub过程的不同之处是：函数有返回值，过程则没有。要从函数返回一个值，只需在函数内将值赋给函数名。在函数的任意位置都可以出现任意个这样的赋值。如果没有给name赋值，则过程将返回一个默认值：数值函数返回0，字符串函数返回零长度字符串("")。

3．输入、输出函数

以下所讲的输入、输出函数只能在客户端使用，不能在服务端使用。

（1）InputBox函数

语法形式是：

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。例如

Dim Input

Input = InputBox("输入姓名")

MsgBox ("输入的姓名是：" & Input)

（2）MsgBox函数例1

在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

MsgBox(prompt[,buttons][,title][,helpfile,context])

Dim MyVar

MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")

'依据点击的按钮情况返回 1 或 2。

4．字符串函数

在VBscript中，系统提供了大量的字符串函数来处理有关字符串的事情。

（1）Left函数

语法形式：Left(string,length)

返回包含字符串中从左边算起指定数量的字符。

（2）Right函数

语法形式：Right(string,length)

返回包含从字符串右边取出的指定数量的字符。

（3）Mid函数

语法形式：Mid(string,start[,length])

返回包含字符串中指定数量的字符。

（4）Space函数

语法形式：Space(number)

返回特定数目的空格。

（5）Ltrim、Rtrim、Trim函数

语法形式：LTrim(string)、RTrim(string)、Trim(string)

返回包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim)或前导和尾随空白(Trim)。

（6）InStr函数

语法形式：

InStr([start,]string1,string2[,compare])

返回一指定字符串在另一字符串中最先出现的位置。

（7） LCase函数

语法形式：LCase(string)

返回转成小写的String。

（8）UCase函数

语法形式：UCase(string)

返回转成大写的String。

（9）Len函数

语法形式：Len(string|varname)

返回包含字符串内字符的数目，或是存储一变量所需的字节数。

（10）Chr函数

语法形式：Chr(charcode)

返回ASCII码表与charcode对应的字符。

（11）Asc函数

语法形式：Asc(string)

返回一个代表字符串中首字母的字符ASCII码。

（12）Split函数

语法形式：

Split(expression[,delimiter[,count[,start]]])

返回下标从0开始的一维数组，其中包含指定数目的子字符串。

（13）Replace函数

返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。

语法形式：

Replace(expression,find,replacewith[,compare[,count[,start]]])

（14）StrComp函数

语法形式：

StrComp(string1, string2[, compare])

返回一个表明字符串比较结果的值。

（15）String函数

语法形式：

String(number,character)

返回Variant(String)，其中包含指定长度重复字符的字符串。

（16）Filter函数

Filter函数功能是过滤一个字符串数组，返回符合条件的子集合数组。

语法形式：

Filter(InputStrings,Value[,Include[,Compare]])

（17）StrReverse函数

语法形式：StrReverse(string1)

返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

VBScript语言 基础知识

VBScript语言基础知识