第3章VBScript脚本语言程序 本章介绍了常量与变量的定义，基本的数据类型，VBSeript的程序控语句，如条件语 句、箭环语句第，数组，子函数，VBSCript内建函数。 3.1常量与变量 31.1常量 常量是一个具有名字的固定值，在整个运行期间是不可改变的。任何试图改变常量的债的 行为都将触发，个估谈，VBScript中己经横定义了一生常量，也可以透过Cnst语句自定义 常量。西法如下： Const connane value 其中，connane为常量名，value为常量的值。 31.2变量 变量是其值可变的量。例如，可以建一个名为Cout的变量存储用户等录网站的次数。 在VBScn1pt中只有一个基本数据类型，即Variant,.因此所有变量的数据类型都是 Variant。.变量的使用·殷分为以下几步： 第一步：声明变量，在使用一个变量之前，首先要声明这个变量。BScript里，使用Dm, Public,.Private米声明变量，如i Dim a Dim c,d,e 第二步：给变量赋值。因为VBScript中只有Variant类型。所以变量定义完后，可以板赋 予在刊VBScript数据类型的值.例如： a-21 满示示例3-1： chead> VBScript代钙示例-VBScript炎量声明和赋值 dim name name="www.tjrtvu.edu.n" document.write(name) </html≥ 在演示示例3-1中，dim name为交量的声明.name-www.tjrtvu.edu.cn"是为变 量做做，document..write(name)为输出语句
本章介绍了常量与变量的定义，基本的数据类型，VBScript 的程序控制语句，如条件语 句、循环语句等，数组，子函数，VBSCript 内建函数。 3．1 常量与变量 常量是一个具有名字的固定值，在整个运行期间是不可改变的。任何试图改变常量的值的 行为都将触发一个错误。VBScript 中已经预定义了一些常量，也可以通过 Const 语句自定义 常量。语法如下： Const conname = value 其中，conname 为常量名，value 为常量的值。 变量是其值可变的量。例如，可以创建一个名为 Count 的变量存储用户登录网站的次数。 在 VBScript 中只有一个基本数据类型，即 Variant，因此所有变量的数据类型都是 Variant。变量的使用一般分为以下几步： 第一步：声明变量。在使用一个变量之前，首先要声明这个变量。VBScript 里，使用 Dim, Public, Private 来声明变量。例如： Dim a Dim c,d,e 第二步：给变量赋值。因为 VBScript 中只有 Variant 类型，所以变量定义完后，可以被赋 予任何 VBScript 数据类型的值。例如： a =21 演示示例 3-1： VBScript 代码示例 - VBScript 变量声明和赋值 dim name name="www.tjrtvu.edu.n" document.write(name) 在演示示例 3-1 中，dim name 为变量的声明，name=”www.tjrtvu.edu.cn”是为变 量赋值，document.write(name)为输出语句
3.1.3 VBSeript变量命名规则 第一个字符必须是字母， 不德包含句号()字符。 长度不能超过255个字符。 在被声明的作用域内必须唯一。 初级练习3-1：判断下列的变量命名是否正确？ 1.Ab22.a.23.2-14._ab 3.2数据类型 VBScript的数据类型包括：数值型、字符串型、日期时间型、布尔型。针对这些数据类 型，VBScript有一套完整的运算符。 3.21数值型数据 VBSerip的数值型数据的表示与数学习惯相同.例如下面的数植型数据表示都是正确的： 2007、0、+200、.890、12.12345 数值运算的运算符包括： 运算符符号 运算符描述 求幂，算数的指数次方 负号 乘 除 两个数相除并返同以整数形式表示的 结果 Md 两个数位相除并返问其余数 加 读 表31 表3-1运算符的顺序也是其运算优先级别的顺序，由高到低排列。 滴示示例3-2 Response write 54/32 输出结果为：9，因为先“”，后“/”。其运算过程是： 54/32
• 第一个字符必须是字母。 • 不能包含句号(.)字符。 • 长度不能超过 255 个字符。 • 在被声明的作用域内必须唯一。 初级练习 3-1：判断下列的变量命名是否正确？ 1．Ab_2 2．a.2 3．2-1 4．_ab 3．2 数据类型 VBScript 的数据类型包括：数值型、字符串型、日期时间型、布尔型。针对这些数据类 型，VBScript 有一套完整的运算符。 VBScript 的数值型数据的表示与数学习惯相同。例如下面的数值型数据表示都是正确的： 2007、0、+200、-890、12.12345 数值运算的运算符包括： 运算符符号 运算符描述 ^ 求幂，计算数的指数次方 - 负号 * 乘 / 除 \ 两个数相除并返回以整数形式表示的 结果 Mod 两个数值相除并返回其余数 + 加 - 减 表 3-1 表 3-1 运算符的顺序也是其运算优先级别的顺序，由高到低排列。 演示示例 3-2 Response.write 54/3^2 输出结果为：9，因为先“^”，后“/”。其运算过程是： 54/3^2
=546 =9 韧级练习32：计算下列表达式的值， Response.write 200 mod 4114 Response.write 24112)/4 Response write (-2)2 Response write (24-18(2(1+2)) 套考答案： 0 0.5 1 3.22字符申型数据 字符串是由一连串的字符组成的，在VBScript中，一个字符串的前后必须用一指起来。 例如以下都是VBScrip的字符串： "adodb recordsel" "select from user11" 1222+3 “计算机应用研究 字符申数器拭然必须用双引号括起米，但是字符申在输出时是没有双引号的 簧示示例3-3： Response.write "select*from userl1" 输出：s买lect◆from user1l 字符书运算的运算符如表3-2所示： 运算符符号 运算符描运 字符串连接 表3.2 除了宁符串的连拔运算之外，还可以把字符串与日期。字符串与数值串接起来。 滴示示例34： S1="It is" D=#8242003# S2=S1&D字符申与日期的串接 Response.write S2输出：tis2003/824 $3-"123"45·字符串与数慎的串接 Response.write S3输出：12345 S4-333&444·数值与数值的中按 Rspn图write S4靠出：333444 除了数符号之外，+符号也可用来进行“字符半”与“字符串”的串接运算
=54/6 =9 初级练习 3-2：计算下列表达式的值。 Response.write 200 mod 41\4 Response.write -24/(1*12)/4 Response.write (-2)^2 Response.write (24-18)/(2*(1+2)) 参考答案： 0 0．5 4 1 字符串是由一连串的字符组成的。在 VBScript 中，一个字符串的前后必须用””括起来。 例如以下都是 VBScript 的字符串： "adodb.recordset" "select * from user11" "1222+3" "计算机应用研究" 字符串数据虽然必须用双引号括起来，但是字符串在输出时是没有双引号的。 演示示例 3-3： Response.write "select * from user11" 输出：select * from user11 字符串运算的运算符如表 3-2 所示： 运算符符号 运算符描述 & 字符串连接 表 3-2 除了字符串的连接运算之外，还可以把字符串与日期，字符串与数值串接起来。 演示示例 3-4： S1="It is" D=#8/24/2003# S2=S1&D ‘字符串与日期的串接 Response.write S2 ‘输出：It is 2003/8/24 S3="123"&45 ‘字符串与数值的串接 Response.write S3 ‘输出：12345 S4=333&444 ‘数值与数值的串接 Response.write S4 ‘输出：333444 除了&符号之外，+符号也可用来进行“字符串”与“字符串”的串接运算
横示示例35： Response.write'pecr'+"wang'‘输出：peter wang 值得注意的是，当+符号用在数值与量慎之间时。就是算术运算。 疯示示例36： Response.write30+10输出：40 Response.write *30"+*10" 输出：3010 3.2.3日期时问型数据 在VSrp中，表示日期与时间时：必须用括起米，标准的时何表示是： 时：分：秒# 簧示示例37 Response.write #9:30# 输出；93000 Response.write #7:50PM# 输出：195000 Response.write #19:50# 输出：19：50：00 标准的日期表示是： yyyy/mm/dda 滴示示例38： Response.write #1997/12/30# Response write Dec 30,19970 Response.write #12/30/1997# “这三种写法都输出：1997-12-30 3.2.4布尔型数据 布尔型数据是指“真”或“假”的逻辑值，其中，“真”要用TrUe表示。“假”要用Fax 表示。布尔数据常用来代表一个条件式的成立与否。 藏示示例3央 Response write 3>1 ·询间VBSerip:“31吗？” VBScript回答：“真的”，所以输出：Trae Response.write 356 0间VBSeripe:“36吗？” VBScript回答：“假的”，所以输出：Fasc 值得注意的是，除了上述的数据类型之外，VBScrip还有~种被称为Emp购（空数据》 的数据。对于任何一个变量来说。其初始值都是Empy,而当被腻值成某一一数据（数值、字 符串、日期、时间成布尔数值)以后，就不再等于Emp内y了。 横示示例3-10： Response.write Y-empty变量Y中没有任何数据。输出结果：true Response write Y ·没有任何数据输出。Empy不作为输出结果。 Y-"abe" Response write Y 输出：hc
演示示例 3-5： Response.write "peter"+"wang" ‘输出：peter wang 值得注意的是，当+符号用在数值与数值之间时，就是算术运算。 演示示例 3-6： Response.write 30+10 ‘输出：40 Response.write "30"+"10" 输出：3010 在 VBScript 中，表示日期与时间时必须用##括起来。标准的时间表示是： #时:分:秒# 演示示例 3-7: Response.write #9:30# ‘输出： 9:30:00 Response.write #7:50PM# ‘输出：19:50:00 Response.write #19:50# ‘输出：19:50:00 标准的日期表示是： #yyyy/mm/dd# 演示示例 3-8: Response.write #1997/12/30# Response.write #Dec 30,1997# Response.write #12/30/1997# ‘这三种写法都输出: 1997-12-30 布尔型数据是指“真”或“假”的逻辑值，其中，“真”要用 True 表示，“假”要用 False 表示。布尔数据常用来代表一个条件式的成立与否。 演示示例 3-9: Response.write 3>1 ‘询问 VBScript:“3>1 吗？” ‘VBScript 回答：“真的”，所以输出：True Response.write 3>6 ‘询问 VBScript:“3>6 吗？” ‘VBScript 回答：“假的”，所以输出：False 值得注意的是，除了上述的数据类型之外，VBScript 还有一种被称为 Empty（空数据） 的数据。对于任何一个变量来说，其初始值都是 Empty，而当被赋值成某一数据（数值、字 符串、日期、时间或布尔数值）以后，就不再等于 Empty 了。 演示示例 3-10： Response.write Y=empty ‘变量 Y 中没有任何数据。输出结果：true Response.write Y ‘没有任何数据输出。Empty 不作为输出结果。 Y=”abc” Response.write Y ‘输出：abc
3.3 VBScript语句类型 3.3.1赋值语句 由赋值号“一”构成的语句称为赋慎语句。赋值语句的作用是将右边的“数据”值赋值给 左边的“一”号左边的变量，在赋值语句中，“一”号右边可以是常量、变量、表达式或任何经 由计算机执行之后所产生的语句。而“=”号左边必须是变量，否则将是错误的。在表述上： “=”被称为“赋值号”，不叫“等号”。 演示示例3-11： X-400 ·将常量400赋值给X,X等于400 Y=X 将变量X赋值给Y,Y等于40 Z-YIX “将Y+X表达式赋值给Z,Z等于00 T-Time “将系统时问赋值给T 3.3.2输人输出语句 1,ASP的输出语句 在编写ASP程序时，必须使用Response.Write语句来输出数据： 演示示例3-121 T=Time R图wme"系统时间是：”输出字符半“现在时问是：“ Respon深.write T ·输出变量T的值 这里青要提腿的是【pnse.wrie是把数据输出到上网机器的河览器上，而不是将数燕输 出到Sr端的屏幕上。河览器在收到数据时就会将数据显示在河览器窗口上，数据的流程 如图31所示。 Response. 输出 河览器 浏览窗口 write 图3-1 以response..wite”为例。当爱据输出到测览器时，爱据内容不会有任 何改变，还是“这是斜体字>"，但由于这一半数据中含有标识，所以经浏览器解释 后显示在测览窗口上就变成了“这是斜体字”。如图32所示， Response.write 河竟器 到览窗口 p这是斜体< 输出 本这是图体本 这是即塔学 图3-2 2.ASP的输入语句 就象ASP的输出是下载到浏览器一样，ASP的输入也是米白米自浏览器。浏览器提供输 入数据给ASP程序的方法有两种，其一是利用浏觉器的网址来输入数据，其二是利用表单来
3．3 VBScript 语句类型 由赋值号“=”构成的语句称为赋值语句。赋值语句的作用是将右边的“数据”值赋值给 左边的“=”号左边的变量。在赋值语句中，“=”号右边可以是常量、变量、表达式或任何经 由计算机执行之后所产生的语句。而“=”号左边必须是变量，否则将是错误的。在表述上， “=”被称为“赋值号”，不叫“等号”。 演示示例 3-11： X=400 ‘将常量 400 赋值给 X，X 等于 400 Y=X ‘将变量 X 赋值给 Y，Y 等于 400 Z=Y+X ‘将 Y+X 表达式赋值给 Z，Z 等于 800 T=Time ‘将系统时间赋值给 T 1．ASP 的输出语句 在编写 ASP 程序时，必须使用 Response.Write 语句来输出数据。 演示示例 3-12： T=Time Response.write "系统时间是：" ‘输出字符串“现在时间是：“ Response.write T ‘输出变量 T 的值 这里需要提醒的是 response.write 是把数据输出到上网机器的浏览器上，而不是将数据输 出到 Server 端的屏幕上。浏览器在收到数据时就会将数据显示在浏览器窗口上。数据的流程 如图 3-1 所示。 图 3-1 以 response.write "这是斜体字"为例。当数据输出到浏览器时，数据内容不会有任 何改变，还是“这是斜体字”，但由于这一串数据中含有标识，所以经浏览器解释 后显示在浏览窗口上就变成了“这是斜体字”。如图 3-2 所示。 图 3-2 2．ASP 的输入语句 就象 ASP 的输出是下载到浏览器一样，ASP 的输入也是来自来自浏览器。浏览器提供输 入数据给 ASP 程序的方法有两种，其一是利用浏览器的网址来输入数据，其二是利用表单来
拾入数据。 (1)利用浏览器的网址来输入数据 利用浏览誉的网址输入数据时，在网址后面附带输入的数据 演示示例313： 如图33所示，在电址栏输入hlp/127.0.0.1/313.name-潘红艳&avori1 -english,则 显小： 无料辆文精-arn群mle 夏冲U南同在有德工月》两大的 ⊙·⊙·国园0P*☆限本球体⊙公号回·□般 地生)的年1rag13-德1-心 ←丝关时浮直华此中 香江把京注悠，年志欢的半科是和向 图33 网址后面附带的“？name-潘红艳&favorite-=englis动”数茶的含义如图3-4所示： htp:/127.0.0.1/3-13.asp？nme=潘红艳&favorite--english 程艳收数累分 运接收的再个数邦。个名为配， 们文升名限 作为潘红色.另一个名为nuie组 为nsh.丙个数抓之问用所开， 图34 当从地址栏输入数据时，用什么语句接收这两个数常呢？在ASP巾，一般用rque对象 来接收数据。如下格式： Datal=request("name") 读取namc参数值。并且将共赋值给daal Data2=request(favorie") “读取favorite参数值。并且将其砝值给daa2 完整的313即代码如下： chtml chead> ctitle>无标燧文档hitle c/head c% datal=request("name") data2-request("favorite") response.write datal response.Tite"欢迎您，您其众的学科是" response.write data2 %>
输入数据。 （1）利用浏览器的网址来输入数据 利用浏览器的网址输入数据时，在网址后面附带输入的数据。 演示示例 3-13： 如图 3-3 所示，在地址栏输入 http://127.0.0.1/3-13.asp?name=潘红艳&favorite=english，则 显示： 图 3-3 网址后面附带的“?name=潘红艳&favorite=english”数据的含义如图 3-4 所示： 图 3-4 当从地址栏输入数据时，用什么语句接收这两个数据呢？在 ASP 中，一般用 request 对象 来接收数据。如下格式： Data1=request(“name”) ‘读取 name 参数值。并且将其赋值给 data1 Data2=request(“favorie”) ‘读取 favorite 参数值。并且将其赋值给 data2 完整的 3-13.asp 代码如下： 无标题文档
(2)利用表单输入数据 利用表单输入数据时，要将所需输入的数据设计成表单，然后使用Rcg过对象来读取输 入的数据。 滴示示例314： 】tdtr 相的夏W⊙内0 ⊙-⊙日0P*☆球e⊙3，学回·@组 址ew年ln4 Tatichibne:线 女丝相行=有 用生服 在中效调，输入中的真车注名所在的价物的名字 月产名： 它 4认光两， 所润教， 图35 代码详解将在第五章介绍。 3.3.3使程序转向的语句 1.条件语句 VBScript的条件语句有两个，一个是简单的条件语句，另一个是对称的条件语句。其格 式如下： If条件表达式hem语句1 End if 其流程图如图3-6所示： true 条件 再句 false 语句2 图36条件语句格式1 或者 If条件表达式then语句1 Else 语句2 End if
（2）利用表单输入数据 利用表单输入数据时，要将所需输入的数据设计成表单，然后使用 Request 对象来读取输 入的数据。 演示示例 3-14： 图 3-5 代码详解将在第五章介绍。 1．条件语句 VBScript 的条件语句有两个，一个是简单的条件语句，另一个是对称的条件语句。其格 式如下： If 条件表达式 then 语句 1 End if 其流程图如图 3-6 所示： 图 3-6 条件语句格式 1 或者 If 条件表达式 then 语句 1 Else 语句 2 End if
其流壮图如图37所示： true f条件 句1 false 请2 图37条件语句格式2 滴示示例3-151 if Y>20 then response.write“语句1 end if response wrile“语句2" 以上程序在执行时，先判断Y>20判别式，如果成立（即为true),则执行response.write语 句I”,然后顺序执行ICs即onse.write“语句2”：否则如果不成立，则洗过response..write“语句1”， 直接执行response.write“语句2”"。 测示示例3-16： if Y>20 then response.wrile“话句1 else response.write“语句2" end if 以上程序在执行时，先判断Y20判别式，如果成立（即为rue,则执行repn%,wrile“语 句I”:否则如果不成立，则执行response.write“语句2”。 几点注煮： 1、关于比较运算符： 构成条件式的运算符有：“-”（等于）、“一*（大于）、“1)的值为ale,表达式(322)amd (21e30)的值为ue,表达式(20e1)or(12<1)的值为lx. 如表33所示，包含逻辑运算符的表达式的运算结果例举汇总如下。 表达式 运算结果 not true false not false true true and true true true and false false false and true false false and false false
其流程图如图 3-7 所示： 图 3-7 条件语句格式 2 演示示例 3-15： if Y>20 then response.write “语句 1” end if response.write “语句 2” 以上程序在执行时，先判断 Y>20 判别式，如果成立（即为 true），则执行 response.write “语 句 1”，然后顺序执行 response.write “语句 2”；否则如果不成立，则跳过 response.write “语句 1”， 直接执行 response.write “语句 2”。 演示示例 3-16： if Y>20 then response.write “语句 1” else response.write “语句 2” end if 以上程序在执行时，先判断 Y>20 判别式，如果成立（即为 true），则执行 response.write “语 句 1”；否则如果不成立，则执行 response.write “语句 2”。 几点注意： 1、关于比较运算符： 构成条件式的运算符有：“=”（等于）、“>”（大于）、“=”（大于等于）、“”（不等于）、not（非）、and（与）、or（或）。条件表达式的值为逻辑值。 not、and 及 or 称为逻辑运算符，例如：表达式 not(32>1)的值为 false，表达式(32>2) and (211) or (12<1)的值为 false。 如表 3-3 所示，包含逻辑运算符的表达式的运算结果例举汇总如下。 表达式 运算结果 not true false not false true true and true true true and false false false and true false false and false false
true or true true true or false true False or true true False or false false 表3.3 疯示示例317：写一个ASP网页，此网页判断系统月份，如果月份在311之间，则在 网页上显示“天气好，要出去玩要”，否则显示“天气冷，要断幢凳！。此ASP源码如下： vMon=Month(Date) Date函数返回当前系统日期，Monh函数返回所给日期的月份数。 if vMon >3 or vMon 2、关于条件语句的嵌套：1f.Them.…Else语句的一种变形允许从多个条件中选择，即添 加一个或多个elself子句以扩充if.heme语句的功能，可以挖制基于多种可能的程序流 程。 演示示例子18：写一个ASP网页，此网页判断系统日期，如果日期等于6，则页面显示“总 算熬到星期五了，”，如果日期在16之同（不包折1和6），则页面显示“明天要上班，想想 就烦。”，否则显示“哈哈，周末电！”。此ASP源码如下； script type-"text/vbscript"> vDay-Weekday(Dale) Dae函数返问当的系统日期 Weekday函数返回代表一具期中某天的整数。缺省以星期天为第一天，返回值为l。 if vDay=6 then document.writel总算熬到星期五了。) elseif vDay 1 and vDay 2。多分支语句 Select Case结构提供了If...Then..Elself结构的一个变通形式，可以从多个语句块中选 择执行其中的一个。Select Case语句提供的功能与E.Then.Else语句类似，但是可以使代 码更加简练易读。其语法格式如下：
true or true true true or false true False or true true False or false false 表 3-3 演示示例 3-17：写一个 ASP 网页，此网页判断系统月份，如果月份在 3~11 之间，则在 网页上显示“天气好，要出去玩耍”，否则显示“天气冷，要睡懒觉！”。此 ASP 源码如下： vMon=Month(Date) 'Date 函数返回当前系统日期， Month 函数返回所给日期的月份数。 if vMon >= 3 or vMon 2、关于条件语句的嵌套：If...Then...Else 语句的一种变形允许从多个条件中选择，即添 加一个或多个 elseIf 子句以扩充 if...then...else 语句的功能，可以控制基于多种可能的程序流 程。 演示示例 3-18：写一个 ASP 网页，此网页判断系统日期，如果日期等于 6，则页面显示“总 算熬到星期五了。”，如果日期在 1~6 之间（不包括 1 和 6），则页面显示“明天要上班，想想 就烦。”，否则显示“哈哈，周末啦！”。此 ASP 源码如下： vDay=Weekday(Date) 'Date 函数返回当前系统日期 'Weekday 函数返回代表一星期中某天的整数。缺省以星期天为第一天，返回值为 1。 if vDay = 6 then document.write("总算熬到星期五了。") elseif vDay > 1 and vDay 2．多分支语句 Select Case 结构提供了 If...Then...ElseIf 结构的一个变通形式，可以从多个语句块中选 择执行其中的一个。Select Case 语句提供的功能与 If...Then...Else 语句类似，但是可以使代 码更加简练易读。其语法格式如下：
Select case数据或表达式 Cac条件值1 语句块1 Casc条件值2 语句块2 Case条件值n 语句块n Case else 语句块叶I End select 其程序执行领程图如图38所示。 Select Case 数据成运算式 系但 块1 当句睫2 计句块知 适块时1 End seloet 图3-8 Select Casc结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与 结构中每个Ce的值比较。如果匹配，则执行与该Cg关玩的语句块. 演示示例319：编写一个ASP网页，此网页判新系统日期，当Dy值为1时页面显示“今 天是星期天”，当vDy值为2时页面显示“今天是星期一”，当vD网值为3时页面显示“今 天是星期二”，当vDy值为4时页面显示“今天是星期三”，当VDy值为5时页面显示“今 天是星期四”，当vDy值为6时贞面品示“今天是星期五”，杏划壶示“今天是生期六”.比 ASP源码如下： vDay=Weckday(Date) Date函数返回当前系统日期 kdy函数返回代表一星期中某天的整数。缺省以星期天为弟一天，返回值为1。 Select Case vDay Case 1 document writel"今天是星期天。") C%2 document.writel"今天是星期一.)
Select case 数据或表达式 Case 条件值 1 语句块 1 Case 条件值 2 语句块 2 …… Case 条件值 n 语句块 n Case else 语句块 n+1 End select 其程序执行流程图如图 3-8 所示。 图 3-8 Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与 结构中每个 Case 的值比较。如果匹配，则执行与该 Case 关联的语句块。 演示示例 3-19： 编写一个 ASP 网页，此网页判断系统日期，当 vDay 值为 1 时页面显示“今 天是星期天”，当 vDay 值为 2 时页面显示“今天是星期一”，当 vDay 值为 3 时页面显示“今 天是星期二”，当 vDay 值为 4 时页面显示“今天是星期三”，当 vDay 值为 5 时页面显示“今 天是星期四”，当 vDay 值为 6 时页面显示“今天是星期五”，否则显示“今天是星期六”。此 ASP 源码如下： vDay=Weekday(Date) 'Date 函数返回当前系统日期 'Weekday 函数返回代表一星期中某天的整数。缺省以星期天为第一天，返回值为 1。 Select Case vDay Case 1 document.write("今天是星期天。") Case 2 document.write("今天是星期一。")