1、3.1 脚本语言概述3.1.1 脚本语言3.1.2 定义网页中的脚本类型脚 本 语 言 概 述脚 本 语 言 概 述VBScript与JavaScript的比较比比 较较 内内 容容VBScriptVBScriptJavaScriptJavaScript可否编写客户机脚本可以可以可否编写服务器脚本可以可以用 途主要用于编写服务器脚本主要用于编写客户机脚本平 台 要 求服务器脚本必须运行于IIS；客户机脚本必须运行于IE(其他浏览器可能不支持)需要检查服务器平台是否支持服务器脚本；几乎所有的浏览器都支持JavaScript的客户机脚本是否区分大小写不区分区分脚 本 语 言 概 述显式定义网页客户
2、机脚本1.可以通过和标记来定义网页的客户机脚本类型为VBScript。脚 本 语 言 概 述案例3-1 按钮单击响应(效果)案例3-1 按钮单击响应(代码)显式定义网页客户机脚本说明：VBScript代码应写在标记和标记之间。在一个网页文件中，可以添加多处VBScript脚本代码。可以把脚本代码定义成一个过程或函数，只有当这段代码被调用时才会被执行。可以把多条VBScript脚本语句放在同一行，并用冒号“：”隔开；或将一条语句分两行或多行书写，行尾加一个续行符“_”。脚 本 语 言 概 述显式定义网页客户机脚本2.将ASP网页的服务器脚本类型定义为VBScript的方法有两种。一是可以用标记来
3、定义，命令格式为：脚 本 语 言 概 述案例3-2 提交表单(代码)显式定义网页客户机脚本这样格式的代码称为ASP处理指令，必须放在网页文件的第一行。是ASP服务器脚本的定界符，在服务器端执行的脚本程序要放在这对符号里面。用定界的服务器端脚本可以根据需要放在网页文件的任何位置，脚本代码运行生成HTML标记在浏览器端显示。包含服务器端脚本的网页文件扩展名为“.asp”脚 本 语 言 概 述显式定义网页客户机脚本 二是可以用和标记来定义服务器脚本类型为VBScript，增加参数runat并令其值为server，命令格式为：脚 本 语 言 概 述案例3-2 提交表单2(代码)显式定义网页客户机脚本3
4、-2-2.asp a=request.Form(name )response.write response.write a&,你好呀你好呀脚 本 语 言 概 述3.2 VBScript编程基础3.2.1 VBScript的输入和输出3.2.2 VBScript的数据类型3.2.3 VBScript的常量3.2.5 VBScript的数组变量3.2.6 VBScript的运算符和表达式VBScript的输入和输出 VBScript提供了3种从外界获取数据和输出数据的方式：在客户端脚本中使用输入函数Inputbox()和输出函数Msgbox()；在客户端使用浏览器对象获得数据或输出数据；在服务器端
5、脚本中使用Request、Response等内置对象来获得数据或输出数据。VBScript 编 程 基 础VBScript的输入和输出 InputBox函数的功能是在对话框中显示提示，等待用户输人文本或单击按钮，并返回文本框内容。这个函数的基本格式如下：InputBox(提示,标题,缺省输入,X坐标,Y坐标)VBScript 编 程 基 础VBScript的输入和输出 MsgBox函数的功能是弹出对话框并在对话框中显示消息，等待用户单击按钮后返回一个值指示用户单击的按钮。这个函数的主要格式如下:MsgBox(提示 ,按钮组合值 ,标题)VBScript 编 程 基 础VBScript的输入和输
6、出dim s1,s2,ss,anss1=Inputbox(请输入第一个字符串:,Inputbox函数举例,字符串连接)s2=Inputbox(请输入第二个字符串:,Inputbox函数举例)ans=Msgbox(可以连接了吗？,33)if ans=1 then ss=s1+s2 Msgbox 两个字符串连接的结果是：&vbCrLf _&ss,64,Msgbox函数举例end ifVBScript 编 程 基 础案例3-3 输入/输出函数示例(效果)VBScript的数据类型nVBScript只有一种数据类型，即Variant(变体)类型。n根据使用的方式，它可以包含不同类别的信息。nVaria
7、nt可以包含简单的数字、字符串和布尔型信息，也可以包含复杂的日期型、浮点型和对象型信息。nVariant包含的数值信息类型称为子类型。n数据在各个子类型之间是可以相互转换的。VBScript 编 程 基 础VBScript的常量 常量有两种，一种是具体直观的数据，如5，“abc”，#6-1-2008#等；另一种叫做符号常量，即用具有一定含义的名称符号来代替具体直观的数据。Const mystring=你好吗？Const pi=3.1415926 Const today=#2008-2-7#VBScript 编 程 基 础VBScript的常量 VBScript还定义了许多保留常量，这些常量是不
8、能被用来定义的。VBScript 编 程 基 础常常 量量 值值含含 义义True布尔真值False布尔假值Null空值，可用来指示变量不包含有效数据Empty没有初始化的变量值vbCr回车vbCrLf回车/换行vbTab制表符VBScript的变量 VBScript变量的命名应遵循一定的规则（也是常量命名应遵循的规则）：n变量名可以由字母、数字、下划线组成；n第一个字符必须是字母；n长度不能超过255个字符；n不能用保留的关键字命名；n在被声明的作用域内必须唯一。VBScript 编 程 基 础案例3-4 变量(效果)VBScript的变量n变量可使用的范围叫做变量的作用域。如果在过程中声明
9、变量，则只有该过程中的代码可以访问或更改变量值，此时变量具有局部作用域，称为局部变量，或过程级变量。如果在过程之外声明变量，则该变量可以被其后脚本中所有语句和过程所识别和使用，具有脚本级作用域，称为脚本级变量。n变量存在的时间称为存活期。脚本级变量的存活期从被声明时开始，直到脚本运行结束。过程级的局部变量存活期仅仅是该过程运行的时间，该过程结束后，变量也随之消失。在执行过程时，局部变量是理想的临时存储空间。可以在不同过程中使用同名的局部变量，因为每个局部变量只被声明它的过程所识别。VBScript 编 程 基 础VBScript的变量 VBScript中声明变量的方法有：用Dim声明变量，语法
10、格式为：Dim 变量名1,变量名2,用private声明变量，语法格式为：Private 变量名1,变量名2,用Public声明变量，语法格式为：Public 变量名1,变量名2,VBScript 编 程 基 础VBScript的变量n这条语句规定了网页中的变量必须显式定义后才能使用。Option Explicitn编写客户端脚本时，该语句只在其所在的标记和标记之间有效，必须放在所有语句的前面。VBScript 编 程 基 础VBScript的数组变量n数组下标是从0开始的。声明数组时括号中的数字表明该数组可用的最大下标。n数组中数据是Variant类型，所以同一数组中的不同元素可以是不同子类
11、型的数据。n在脚本运行时大小发生变化的数组，是动态数组。在使用之前必须先用Redim语句确定数组的大小。n重新调整动态数组的大小时，如果使用关键字Preserve，将保留相应数组元素原来的内容。VBScript 编 程 基 础案例3-5 数组变量(效果)VBScript的运算符和表达式VBScript 编 程 基 础运算符运算符含义含义示例示例结果结果运算符运算符含含 义义示示 例例结果结果+加3+47整除求商531-减3-4-1乘方3481*乘3*412MOD取余数5MOD32/除3/40.75算术运算符：算术运算符：VBScript的运算符和表达式VBScript 编 程 基 础关系运算符
12、：关系运算符：运算符运算符含含 义义示示 例例=等于66=88的结果为False不等于6688的结果为True小于66大于6688的结果为False=小于等于66=大于等于66=88的结果为FalseVBScript的运算符和表达式VBScript 编 程 基 础逻辑运算符：逻辑运算符：运算符运算符第一个值第一个值第二个值第二个值示示 例例结结 果果与运算ANDTrueTrue32 AND 54TrueTrueFalse32 AND 54FalseFalseTrue34FalseFalseFalse32 AND 52 OR 54TrueTrueFalse32 OR 54TrueFalseTru
13、e34TrueFalseFalse32 OR 52FalseFalse-NOT 3连接运算符-比较运算符-逻辑运算符；n各数学运算符的优先级与数学中的规定一致；n所有的关系运算符优先级别相同，按从左至右的顺序执行。VBScript 编 程 基 础3.3 VBScript的基本语句3.3.1 分支语句3.3.2 循环语句3.3.3 VBScript的过程和函数3.3.4 注释语句3.3.5 容错语句分支语句1.If Then语句 单一分支：If 条件 Then 语句组 End If当Then后面只有一条语句时，这种格式可简写为:If 条件 Then 语句VBScript 基基 本本 语语 句句分
14、支语句 a=inputbox(shuru)用户输入一个成绩 if a60 then 判断如果该成绩小于60 msgbox no pass 条件成立，输出“不及格”endif 条件语句结束VBScript 基基 本本 语语 句句案例3-6 成绩判定(效果)分支语句两重分支 If 条件 Then 语句组1 Else 语句组2 End IfVBScript 基基 本本 语语 句句分支语句 a=inputbox(请输入你的成绩)用户输入一个成绩 if a60 then 判断如果该成绩小于60 Msgbox 遗憾啊，不及格 条件成立，输出“不及格”else 否则 Msgbox“及格了，继续努力”条件不成
15、立，输出“及格”end ifVBScript 基基 本本 语语 句句案例3-6 成绩判定2(效果)分支语句 多重分支If 条件1 Then 语句组1Elseif 条件2 Then 语句组2Elseif 条件3 Then 语句组3Else 语句组n+1End IfVBScript 基基 本本 语语 句句分支语句a=inputbox(请输入你的成绩)用户输入一个成绩if a60 then 判断如果该成绩小于60grade=E 条件成立，等级为Eelseif a70 thengrade=Delseif a80 thengrade=Celseif a70 thengrade=Belse grade=A
16、endifmsgbox 你的成绩等级为：&gradeVBScript 基基 本本 语语 句句案例3-7 成绩等级(效果)分支语句2.Select Case语句Select Case 表达式 Case 值1 语句组1 Case 值2 语句组2 Case 值3 语句组3 Case Else 语句组n+1End SelectVBScript 基基 本本 语语 句句分支语句t=int(a/10)成绩除以10取整Select Case t Case 9,10 90多分或100分为A等 grade=A Case 8 grade=B Case 7 grade=C Case 6 grade=D Case el
17、se grade=EEnd SelectVBScript 基基 本本 语语 句句案例3-7 成绩判定2(效果)循环语句n在VBScript中，循环语句可分为三类：一类是条件式循环，另一类是指定循环次数的循环，还有一种是针对数组和集合操作的循环。n具体的语句格式有以下几种：Do While Loop：当条件为True时执行循环。Do Until Loop:当条件为True时结束循环。Do Loop While:先执行循环，再进行条件判断。Do Loop Until:先执行循环，再进行条件判断。While Wend：如果条件为True则执行循环。For Next：指定循环次数的循环。For Eac
18、h In Next：对于集合或数组中每个元素重复执行某操作的循环。VBScript 基基 本本 语语 句句循环语句1.条件式循环条件式循环!-ans=Inputbox(请输入“快乐”的英文)do while Ucase(ans)HAPPY msg=不正确&vbcrlf&请重新输入“快乐”的英文 ans=Inputbox(msg)loopMsgbox 真棒！你答对了！-VBScript 基基 本本 语语 句句案例3-8 英文单词小测验(效果)循环语句用WhileWend改写：!-ans=Inputbox(请输入“快乐”的英文)While Ucase(ans)HAPPY msg=不正确&vbcrl
19、f&请重新输入“快乐”的英文 ans=Inputbox(msg)WendMsgbox 真棒！你答对了！-VBScript 基基 本本 语语 句句循环语句用Do Until LoopVBScript 基基 本本 语语 句句循环语句 以上三种格式都是先判断再循环，循环体可能被执行一次或多次，也可能一次也不执行。不同的是Do While和While-Wend是当条件为“真”时执行循环，Do Until是当条件为“假”时执行循环而当条件为“真”时结束循环。VBScript 基基 本本 语语 句句循环语句info=info=请输入一个数字请输入一个数字 dodoans=inputbox(info)ans
20、=inputbox(info)if ans=then if ans=then msgbox msgbox 不猜了，结束吧不猜了，结束吧 exit do exit do elseif ans666 then elseif ans666 then msgbox msgbox 你输入的数太大了你输入的数太大了 elseif ans666 then elseif ans666 then msgbox msgbox 你输入的数太小了你输入的数太小了 end if end if info=info=朋友朋友,你还没有猜对你还没有猜对!&vbcrlf&!&vbcrlf&请重新输入一个数字请重新输入一个数字
21、loop while ans666loop while ans666if ans thenif ans then msgbox msgbox 恭喜你猜对了恭喜你猜对了!end ifend ifVBScript 基基 本本 语语 句句案例3-9 猜数字游戏(效果)循环语句用用doloop untildoloop until改写改写:dodoans=inputbox(info)ans=inputbox(info)if ans=then if ans=then msgbox msgbox 不猜了，结束吧不猜了，结束吧 exit do exit do elseif ans666 then elseif
22、 ans666 then msgbox msgbox 你输入的数太大了你输入的数太大了 elseif ans666 then elseif ansn2 then t=n1 n1=n2 n2=t end if for i=n1 to n2 s=s+i next msgbox s=&send subVBScript 基基 本本 语语 句句案例3-10 简单累加器(效果)循环语句3.数组循环数组循环For Each In Next For Each语句只适用于数组和集合的元素进行循环操作。该语句的具体格式如下：For Each 变量 In 集合名或数组名 循环体 Next 该语句的主要功能是对集合或
23、数组中的每个元素依次执行循环体的操作，在循环中变量会依次取得集合或数组中元素的值(而非数组元素的下标)。使用时只写明数组或集合的名称，而不写下标。VBScript 基基 本本 语语 句句循环语句sub b1_OnClick dim t,msg for each t in document.form1 msg=msg&t.value&vbcrlf next msgbox msgend subVBScript 基基 本本 语语 句句案例3-11 提取表单各项内容并输出(效果)循环语句Option ExplicitDim s(),iReDim s(3)For i=0 to Ubound(s)s(i)
24、=i+1NextFor Each i In s document.Write i&Next注：Ubound()函数的参数是一个数组名，其作用是返回该数组的元素个数VBScript 基基 本本 语语 句句案例3-12 数组循环与计数循环的比较(效果)VBScript的过程和函数 VBScript中的过程与函数两者概念类似，它们都是具有一定功能的代码块。但过程只是完成一定的任务，没有返回值；而函数可以有返回值。VBScript 基基 本本 语语 句句VBScript的过程和函数n定义过程的格式如下：Sub过程名称(参数1，参数2，参数n)程序代码End Subn过程只有被调用时才会执行。脚本代码中
25、调用过程有两种方法:Call过程名(参数1，参数2，参数n)过程名 参数1，参数2，参数n这两种调用的效果是一样的。在不使用Call语句进行过程调用时，要去掉参数列表的括号。VBScript 基基 本本 语语 句句VBScript的过程和函数n一般过程执行到End Sub语句时才会结束，但也可以用Exit Sub语句提早结束过程。n过程调用语句可以在过程定义之前，也可以在过程定义之后。可以在一个过程的执行中调用另外一个过程。但不要在一个过程定义中嵌套定义过程。VBScript 基基 本本 语语 句句VBScript的过程和函数Option ExplicitDim num,s,inum=inpu
26、tbox(请输入一个数)Sub calc(n)s=1 For i=1 to n s=s*i Next Msgbox n&的阶乘是&sEnd SubCall calc(num)VBScript 基基 本本 语语 句句案例3-13 计算阶乘(效果)VBScript的过程和函数n定义函数的格式如下：Function 函数名(参数1，参数2，参数n)程序代码 函数名=返回值End Functionn一般函数的调用格式如下：变量名称=函数名(参数1，参数2，参数n)VBScript 基基 本本 语语 句句案例3-14 计算阶乘之二(代码)VBScript的过程和函数Sub calc()num=form1
27、.num.value s=p(num)form1.result.value=sEnd SubFunction p(n)s=1 For i=1 to n s=s*i Next p=sEnd FunctionVBScript 基基 本本 语语 句句VBScript的过程和函数nVBScript的过程还可以侦测到用户对浏览器所做的操作，也就是说不论用户在浏览器上移动鼠标或是点击了某处，都可以编写过程来响应。这时，先由编程者定义一个过程名，然后在对象的标记中增加“事件=过程名”这一句，意思是当对象的某个事件发生时就去执行过程。常用的事件有：OnClick、OnBlur、OnFocus、Onselect
28、、OnChange、OnMouseOver、OnMouseDown、OnMouseMove等。VBScript 基基 本本 语语 句句案例3-14 计算阶乘之二(效果)VBScript的过程和函数n另一种事件响应的形式是，定义过程时，将过程名命名为“对象名称_事件名称”。例如：Sub B1_onclick()End sub 这样，当名字为“B1”的按钮被点击时也会执行该过程。此时按钮B1的标记中就不用添加“事件=函数名”一项了。VBScript 基基 本本 语语 句句注释语句 VBScript有专门的注释语句，格式为：Rem 注释内容 注释语句可以单独占一行，也可以放在某行代码的后面。但是在同
29、一行内，续行符后面不能有注释。Rem注释语句可以用在服务器脚本和客户机脚本上。除此之外，VBScript还支持一种简便的添加注释的方式，将注释内容以一个撇号“”开头。它与注释语句Rem作用是一样的，VBScript 基基 本本 语语 句句容错语句 在前述计算阶乘的案例3-14中，用户输入数据时如果输入的是字母而不是数字，会显示程序错误。VBScript提供了一条语句可以把错误挡下来，而不让它返回浏览器造成分页错误：On Error Resume NextVBScript 基基 本本 语语 句句容错语句Sub b1_onclick()On Error Resume Next Dim num,n,
30、s n=form1.num.value s=1 For i=1 to n If err.number=0 Then 如果number0,说明有错误发生 s=s*i Else Msgbox 输入错误！输入错误！,48 Exit For End If Next form1.result.value=sEnd SubVBScript 基基 本本 语语 句句案例3-15 错误处理(效果)3.4 VBScript主要函数3.4.1 字符串处理函数3.4.2 转换函数3.4.3 日期和时间函数3.4.4 数学函数3.4.5 检验函数字符串处理函数VBScript 主主 要要 函函 数数函函 数数 名名 称
31、称功功 能能Asc(S)返回与字符串S的第一个字母对应的ANSI字符代码Chr(x)把x作为ASCII码，返回对应的字符Lcase(S)将字符串S中字母都转化为小写形式Ucase(S)将字符串S中字母都转化为大写形式Instr(S1,S2)返回字符串S2在字符串S1中第一次出现的位置。如果在字符串S1中没有找到字符串S2，则返回0。Len(S)返回字符串S的长度Left(S,t)返回指定数目(长度)t的从字符串S的左边算起的字符Right(S,t)返回指定数目(长度)t的从字符串S的右边算起的字符字符串处理函数VBScript 主主 要要 函函 数数函函 数数 名名 称称功功 能能Mid(S,
32、t1,t2)取子串，从字符串S指定的起始位置t1返回指定数目t2的字符Ltrim(S)删除字符串S左边的空格Rtrim(S)删除字符串S右边的空格Trim(S)去掉字符串S前后的空格Strcomp(S1,S2)返回字符串结果的值。如果字符串S1小于字符串S2，返回-1；如果字符串S1等于字符串S2，返回0；如果字符串S1大于字符串S2，返回1。Replace(S,S1,S2)用字符串S2替换原字符串S中的子字符串S1String(n,S)生成由字符串S重复而得的长度为n的字符串Strreverse(S)字符串翻转字符串处理函数Dim mag,start,lengthstart=1msg=欢迎来
33、到我的酷宝贝小站 length=Len(msg)Sub change()window.Status=Mid(msg,start,length-start+1)+Left(msg,start)start=start+1If startlength Then start=1window.SetTimeOut change(),200End SubCall change()VBScript 主主 要要 函函 数数案例3-16 状态栏滚动文字(效果)转换函数 转换函数用于将某种类型的数据转换成其他类型的数据。VBScript中常用的转换函数有如下几种：1.Cbool函数：功能：将数值型、日期型等数据转
34、换为布尔型数据。例如，Cbool(#2008-2-7#)的结果为True，Cbool(0)的结果为False。VBScript 主主 要要 函函 数数转换函数2.Cdat函数功能：以1899年为标准将数值型数据和数字型文本的整数部分转换成一个日期型数据,小数部分转换成时间型数据。例如，Cdate(1234567.89)和Cdate(“1234567.89”)的结果为5280-2-15 21:21:36。对于形如“29-3-7”的文本，Cdate(“29-3-7”)转换结果为2029-3-7，转换规则是029之间的年份，前面被加上“20”，30以上的年份，前面被加上“19”。特殊的，Cdate(
35、true)结果为1899-12-29，Cdate(false)结果为0:00:00。VBScript 主主 要要 函函 数数转换函数3.Cdbl 函数功能：把布尔型、日期时间型或数值型数据转换成一个双精度数。如果要转换的数据是日期时间型，此函数与Cdate函数作用相反。例如，Cdbl(#2008-2-7 21:21:36#)结果为39485.89。4.Cint 函数功能：将布尔型、日期时间型或数值型数据转换成一个整数，如果有小数部分，则四舍五入。例如，Cint(#1900-2-7 21:21:36#)结果为40，Cint(true)结果为-1。VBScript 主主 要要 函函 数数转换函数5
36、.Clng 函数功能：把布尔型、日期时间型或数值型数据转换成一个长整型数，如果有小数部分，则四舍五入。例如，clng(#2008-2-7 21:21:36#)结果为39486。6.Csng 函数功能：把布尔型、日期时间型或数值型数据转换成一个单精度数。例如，csng(#2008-2-7 21:21:36#)结果为39485.89。7.Cstr 函数功能：将数据转换成一个字符串。例如，mid(cstr(1234567.89),1,3)结果为“123”。VBScript 主主 要要 函函 数数转换函数8.Cbyte 函数功能：将数据转换成Byte数据类型。Byte类型数据容纳的范围是0到255的正
37、数，如果所转换的数据超出了这个范围，将得到一个溢出错误。9.Ccur 函数功能：将数值转化成Currency数据类型，这种数据类型最多可以处理小数点右侧4位小数，因此常用于货币计算。VBScript 主主 要要 函函 数数日期和时间函数VBScript 主主 要要 函函 数数VBScriptVBScript常见的日期和时间函数常见的日期和时间函数:函函 数数 名名 称称功功 能能Now()返回当前系统的日期和时间Date()返回当前系统的日期Year(日期)返回日期中的年份Month(日期)返回日期中的月份Day(日期)返回日期中的日Weekday(日期)返回日期的星期数Time()返回当前系
38、统的时间Hour(时间)返回时间的小时数Minute(时间)返回时间的分钟数Second(时间)返回时间的秒数日期和时间函数VBScript 主主 要要 函函 数数document.Write 你好，朋友。y=Year(date)m=Month(date)d=Day(date)h=Hour(time)minu=Minute(time)sec=Second(time)document.Write 今天是&y&年&m&月&d&日 document.Write 你刚才打开页面的时间是&h&_ 时&minu&分&sec&秒案例3-17 显示时间与日期(效果)数学函数(1).Abs(x)：取x的绝对值。
39、(2).Exp(x)：求以e为底的指数，即e的x次方。(3).Log(x)：求x的自然对数，即x的以e为底的对数。(4).Sgn(x)：求x的符号值。(5).Sin(x)和Cos(x)：分别是求x的正弦值和余弦值。(6).Tan(x)和Atn(x)：分别是求x的正切值和余切值。(7).Sqr(x)：求x的平方根，要求x是大于等于0的数。(8).Rnd()：随机产生一个0到1之间的数。(9).Round(x,t)：把x按照四舍五入保留t位小数。(10).Int(x)：取整函数，结果为不大于x的最大整数。(11).Fix(x)：取整函数，舍去x的小数部分。VBScript 主主 要要 函函 数数数
40、学函数Dim num,n,ss=0Do num=Int(Rnd()*10)产生一个09的随机整数 Do n=Cint(Inputbox(猜一个数吧：)把输入的内容转换为普通整数 If nnum Then Msgbox 太大了 Elseif nnum Then Msgbox 太小了 End If Loop Until n=num 重复让用户输入数字，直到猜对为止VBScript 主主 要要 函函 数数(转下一页)数学函数 flag=Msgbox(正确！再玩一次吗？,4)s=s+1Loop While flag=6 如果用户选择“是”按钮则重复新一轮游戏document.Write 您一共猜对了&
41、s&个数VBScript 主主 要要 函函 数数(接上一页)案例3-18 猜数游戏(效果)检验函数 因为VBScript的变量都是Variant类型的，因此不能通过变量的类型确定数据的类型。VBScript 主主 要要 函函 数数检验函数常用的检验函数有以下几种：IsArray：测试是否为数组。例如，定义一个数组 Dim arrstu(3)，那么IsArray(arrstu)结果为True。IsDate:测试是否为日期时间型数据。例如，IsDate(#21:21:36#)结果为True。IsEmpty：测试是否为Empty。例如，定义一个变量temp而暂不给它赋值，此时IsEmpty(temp
42、)的结果为True。IsNull：测试是否为Null。只有当给一个变量赋值为Null后，对该变量的测试结果才为True。IsNumeric：测试是否是一个数值，而不论数据是否在双引号之内。例如，IsNumeric(3.14)的结果为True。IsObject：测试是否为一个对象。VBScript 主主 要要 函函 数数检验函数Sub b1_onclick Dim t t=form1.num1.value If Not Isnumeric(t)Then Msgbox 输入错误!请重新输入。End IfEnd SubVBScript 主主 要要 函函 数数案例3-19：验证表单数据填写正确与否(效果)
