第06讲 VBScript脚本

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第,3,章,VBScript,脚本语言基础,3. 1,脚本语言概述,3. 2 VBScript,脚本语言,3. 3 VBScript,常用函数,3. 4 VBScript,编程实例,3. 1,脚本语言概述,3. 1. 1,服务器端脚本和客户端脚本,目前比较流行的脚本语言有两种：,VBScript,和,JavaScript,。,其中,VBScript,基于,Microsoft,公司的,Visual Basic,语言；而,JavaScript,基于,SUN,公司的,Java,语言对,LiveScript,重新设计而来的。,使用,VBScript,和,JavaScript,，,既可以编写服务器端脚本，也可以编写客户端脚本。,3. 1,脚本语言概述,3. 1. 2 VBScript,和,JavaScript,VBScript,和,JavaScript,都是脚本语言。,目前可以解释,VBScript,脚本的浏览器只有,Microsoft Internet Explorer,，而,Netscape,Navigater,将忽略,VBScript,脚本。在,Active Sever Pages,中的缺省语言是,VBScript,。,3. 1,脚本语言概述,服务器端脚本和客户端脚本的主要区别,:,服务器端脚本在,Web,服务器上执行，由服务器根据脚本的执行结果生成相应的,HTML,页面并发送到客户端浏览器中并显示。,客户端脚本由浏览器进行解释执行。,客户端脚本,一般形式如下：,属性的意义：,LANGUAGE,：指定使用哪一种脚本语言，不同的浏览器支持的脚本语言是不一样的,。,EVENT,：指定与此段脚本相关联的事件。,FOR,：指定与事件相关联的对象。,客户端脚本编程实例,说明：使用客户端脚本程序时，脚本代码应写在,之间，并显示指定所使用的脚本语言名称。脚本代码可位于,HTML,文件的任意位置。,服务器端脚本,服务器端脚本实例,1,服务器端脚本,3. 2 VBScript,脚本语言,3. 2. 1,将单行语句分成多行,使用续行符“,-”,（由一个空格和一个下划线组成），将长的语句分成多行书写。,3. 2 VBScript,脚本语言,3. 2. 2,在代码中加注释,注释语句可以有两种表现形式，一种是通过使用,Rem,语句，,Rem,后的任何文本都会认为是对程序的注释，不会被处理。另一种是采用西文单引号“,”,，即以撇号作为注释的开始，注释可以和语句在同一行并写在语句的后面，也可以单独占一行。,3. 2 VBScript,脚本语言,3. 2. 3,使用不同进制的数字,在,VBScript,中，除了可以用默认的十进制来表示数字外，还允许使用十六进制或八进制来表示数字。,3. 2 VBScript,脚本语言,3. 2. 4,数据类型,在,VBScript,中，只有一种数据类型，即,Variant,类型，但变量可以根据所赋值的不同而代表不同类型的数据。,在,Variant,类型中包含了多种子数据类型 。,数据类型及其子类型,Byte,（字节）,、,String,（字符串）、,Integer,（整型）、,Long,（长整型）、,Single,（单精度浮点数）、,Double,（双精度浮点数）、,Currency,（货币）、,Boolean,（布尔型）、,Date/Time,（日期,/,时间）、,Empty,（空类型）、,Null,（空值）、,Object,（,对象）,、,Error,（错误）。,3. 2 VBScript,脚本语言,3. 2. 5,常量,1,文字常量,（,1,）字符串常量,:,“,学习语言”,（,2,）数值常量,:,120,（,3,）日期时间型常量,: #6-1-2005#,2,符号常量,:,由,Const,定义,如：,Const PI=3.1415926,3. 2 VBScript,脚本语言,3. 2. 6,变量,1,变量命名约定,2,声明变量,3,变量的作用域,变量的作用域指的是变量的有效范围，因为变量被声明后不是在任何地方都可以被使用，每个变量都有它的使用范围，在作用域内可以使用变量，在作用域外则变量不可见。,变量命名规则,变量的名字必须以字母开头。,名字中不能含有除字母，数字，下划线以外的其他字符。,名字不能超过,255,个字符。,名字不能和,VBScript,中的关键字同名。,变量名在被声明的作用域内必须惟一。,声明变量,（,1,）隐式声明方式。,使用一个变量前并不需要声明，而可以直接在脚本代码中使用，系统会自动地在内存中开辟存储区域登记变量名。,（,2,）显式声明方式。,使用变量声明语句,Dim,、,Public,和,Private,语句。显式声明可以在定义变量的时候为变量在内存中预留空间，登记变量名。,dim,变量名,dim,变量名,1,变量名,2,(3),强制变量声明：,Option Explicit,放在第,1,行,如果有,则,放在地,1,行,3. 2 VBScript,脚本语言,3. 2. 7,数组,1,静态数组,静态数组可分为一维数组、二维数组或多维数组。数组的维数和大小由数组名之后紧跟的括号中的数字的个数和数值的大小来决定。静态数组的大小在运行时不可改变。它是在编译时开辟内存区的。,2,动态数组,动态数组是运行时大小可变的数组。当程序没有运行时，动态数组不占内存，在程序运行时才开辟内存区。,使用数组之前要先进行定义，然后才能使用。通常用,Dim,语句来定义数组。,Dim A(10),数组下标的下界一律从,0,开始。,一个数组中可以含有各种子类型的数据元素。,动态数组的使用,定义一般分两步：首先用,Dim,语句声明一个括号内不包含下标的数组，然后在使用数组之前,用,ReDim,语句根据实际需要重新定义下标值。也可以用,ReDim,语句直接定义数组。运行时大小可变。,使用,ReDim,后，原数组中的内容被清除,。如果既要改变数组大小又要保留数组的内容，须在,ReDim,后加入,Preserve,关键字。,3. 2 VBScript,脚本语言,3. 2. 8,运算,1,算术运算,:,+,，,-,，*，,/,mod,2,连接运算,:, +,3,关系运算,:,=,、,、,=,、,4,逻辑运算,:,Not,、,And,、,Or,、,Xor,(,异或,),、,Eqv,(,等价,),、,Imp(,隐含,),5,运算符的优先顺序,算术,连接,关系,逻辑,常用的运算符,3. 3 VBScript,常用函数,3. 3. 1,MsgBox,函数,函数的一般格式如下所示：,MsgBox(prompt, buttons , title ,helpfile, context),MsgBox,函数用于弹出一个带有提示消息和按钮的对话框，在把消息提示给浏览者后，也会返回浏览者单击按钮的编码值。,MsgBox,函数完整形式描述如下：,MsgBox,提示消息，按钮，标题,帮助文件,帮助文件上下文编号,MsgBox,函数,提示消息：用于设置在对话框上显示的提示消息，最大长度可以有,1024,个字符。如果需要包含多个行，可以使用回车符,(Chr(13),、换行符,(Chr(10),或回车换行符的组合,(Chr(13) & Chr(10),分隔各行。,按钮：用来指定显示按钮的数量和类型，设置的值与对应的描述见表,3.6,。当对话框需要同时具有多个描述的特征的时候，可以把对应的值进行相加运算，例如我需要“显示放弃、重试和忽略按钮”并且“显示临界信息图标”，则数值应该设置为,18,（,2+16,）；,3. 3 VBScript,常用函数,3. 3. 2,InputBox,函数,函数的一般格式如下所示：,InputBox(prompt, title , default ,xpos, ,ypos, ,helpfile, context),InputBox,函数用于弹出一个带有提示消息和文本框的对话框，用于提示用户和返回用户输入到文本框中的信息。,InputBox,函数完整形式描述如下：,InputBox,提示消息,标题,文本框默认字符串,水平位置,垂直位置,帮助文件,帮助文件上下文编号,属性说明如下：,InputBox,函数,提示消息：用于设置在对话框上显示的提示消息，具体说明可以参照,MsgBox,函数的提示消息说明；,标题：设置对话框标题栏显示的字符串；,文本框默认字符串：显示在文本框中的字符串，如果省略，显示为空；,水平位置：用于指定对话框的左边缘与屏幕左边缘的水平距离，如果为空，则水平居中；,垂直位置：用于指定对话框的左边缘与屏幕上边缘的垂直距离，如果为空，则垂直居中；,和,MsgBox,函数一样，除了第一个属性是必须的外，其他属性都是可选属性。,3. 3 VBScript,常用函数,3. 3. 3,数学函数,求平方根函数,（,Sqr,）求绝对值函数（,Abs,）,指数函数,（,Exp,）对数函数（,Log,）符号函数（,Sgn,）三角函数,3. 3 VBScript,常用函数,3. 3. 4,字符串函数,3. 3 VBScript,常用函数,3. 3. 5,日期和时间函数,3. 3 VBScript,常用函数,3. 3. 6,数据类型转换函数,3. 3 VBScript,常用函数,3. 3. 7,数据类型判别函数,3. 2 VBScript,脚本语言,3. 2. 9,控制结构,1,选择结构,（,1,）单行结构,（,2,）块结构,2,多分支结构,3,循环结构,（,1,）,For,循环,（,2,）,Do,循环,（,3,）,While,循环,条件控制语句,（,1,）简单条件控制语句。其语法如下：,If,条件表达式,Then,语句体,1 Else,语句体,2,（,2,）嵌套条件控制语句。语法格式如下：,If,条件表达式,1 Then,语句体,1,Else If,条件表达式,2 Then,语句体,2,Else,语句体,n,End If,多分支结构,可以用多分支结构来替代块结构的条件语句，多分支结构比块结构的条件语句容易阅读。多分支结构的语法如下：,Select Case,测试表达式,Case,表达式,1,语句体,1,Case,表达式,2,语句体,2,Case Else,语句,体,n,End Select,循环控制语句,1,For,循环,（,1,）,ForNext,语句。,For,循环变量,=,初值,To,终值,Step,步长,循环体,Exit For,Next ,循环变量,（,2,）,For EachNext,语句,For Each,元素,In,集合,语句体,Next ,元素,Do,循环,第一种：,Do ,While|Until,循环条件,循环体,Exit Do,Loop,第二种：,Do,循环体,Exit Do,Loop ,While|Until,循环条件,While,循环,While,循环条件,循环体,Wend,While,循环是先判断循环条件，根据循环条件的值来决定是否执行循环体。如果循环条件为真或不为,0,时执行循环体，直到循环条件不满足时退出,While,循环。,3. 2 VBScript,脚本语言,3. 2. 10,过程,1,Sub,过程,2,函数,过程,VBScript,的过程有如下几个特点：,过程只能有单一入口，但可以有多个出口。,在浏览器的任何一个网页中都可以定义过程，习惯上将过程定义在,和,中。,可以用浏览器所特有的事件来调用。,通过过程可以将重复使用的代码单独定义，提高代码利用率。,使得查错和改错工作变得简单。,可以向过程中传递任何有效的参数。,子过程,Sub,过程是没有返回值的过程，一般格式如下：,PrivatePublicSub,过程名,(,参数列表,),语句块,Exit Sub,语句块,End Sub,用,Call,语句调用子过程的语法如下：,Call,子过程名,(,参数列表,),函数,PrivatePublic, Function,函数名,(,参数列表,),语句块,函数名,=,表达式,Exit Function,语句块,End Function,可以用,Call,语句来调用函数,。,Exit,语句,1,、如果需要中断一个子过程，则需要在子过程中使用,Exit Sub,语句，如果想要中断一个函数，则需要在函数中使用,Exit Function,语句,。,2,、退出,Do,循环时用,Exit Do,语句,；,退出,For,循环,时用,Exit For,语句,说明：使用,Exit Sub,或,Exit Function,语句的主要,目的是为了进行出错处理。,VBScript,常用事件,输入一个日期，然后判断出这个日期是星期几，并把这个结果输出。（提示：使用,weekday,（日期）函数可以返回星期编码，礼拜天返回,1,，礼拜一返回,2,，,礼拜六返回,7,），程序如下：,dim,dat,wnum,dat,=,inputbox,(“,输入时间,”,&Chr(13)&“,格式为：月,-,日,-,年,),wnum,=,weekday(dat,),select case,wnum,技能与实训,case 1,msgbox,礼拜天,case 2,msgbox,礼拜一,case 3,msgbox,礼拜二,case 4,msgbox,礼拜三,case 5,msgbox,礼拜四,case 6,msgbox,礼拜五,case 7,msgbox,礼拜六,end select,思考与练习,1.,填空题,(1) VBScript,脚本就是以,_,开始，以,_,结束的语句块。,(3),写出下列常用函数的作用,Left(String,num,),：,_,。,Date(),：,_,。,Cdate(expression,),：,_,。,IsNUll(myvar,),：,_,。,(4),在,VBScript,脚本语言中，只有一种数据类型，即,_,。,(5),在,VBScript,脚本语言中，用,_,语句来显式声明变量。,(6),在,VBScript,脚本语言中，,#2005-1-13 10:35:20 AM#,是,_,类型的常量。,(7),计算表达式的值：,24 Mod 5= _,。,(8),表达式,(34) and (45),的结果为,_,，表达式,cdef, ,cdma,的结果为,_,。,(9),求函数值：,left(,淄博职业学院信息工程系, 4)= _,。,2.,选择题,(1),以下关于,VBScript,叙述错误的是,( ),。,A. VBScript,和,VB,是一样的,B. VBScript,是,ASP,的默认脚本语言,C. VBScript,可以直接由,IE,执行,D. VBScript,不区分大小写,(2),在进行字符串连接操作时，最好使用,( ),运算符号。,A. Add B. & C. + D. *,(3),以下不是,VBSscript,中定义变量的关键字是,( ),。,A. DimB. PrivateC. PublicD. Integer,(4),以下不是,VBSscript,中定义数组的关键字是,( ),。,A. DimB. PrivateC. PublicD. Integer,(5),以下不是,VBScript,算术运算符的是,( ),。,A. + B. /C. modD. =,(7),以下常量表示日期的是,( ),。,A. 2005 B. 2005-10-9,C. 2005.10.9D. #2005-10-9#,(8),Len(String,),函数返回的是,( ),。,A.,字符串的长度,B. string,右边的,num,个字符,C.,将,string,转换成字符串型,D.,创建含有,len,个字符的字符串,3.,判断题,(1) VBScript,完全能够取代,HTML,。,( ),(2) VBScript,只有一种,Variant,数据类型。,( ),(4) Dim A(9),定义了具有,9,个数组元素的数组。,( ),(5) “+”,和“,&”,都可以作为字符串连接符。,( ),(6),MsgBox,函数必须包含“提示信息”参数。,( ),3. 4 VBScript,编程实例,本节根据前面所讲的内容，结合具体的实例，讲述如何利用客户端脚本实现相关应用。,为,表单中定义的按钮名称,OnClick,为鼠标的点击事件,指明脚本语言为,VBScript,一个简单页面,这段代码作了许多事情。 当,Internet Explorer,读取页面时，找到,标记，识别出,VBScript,代码并保存代码。单击按钮时，,Internet Explorer,使按钮与代码连接，并运行该过程。,标记中的,Sub,过程是一个事件过程。过程名包含两部分：一部分为按钮名，即,Button1,（从,标记中的,NAME,属性获取），另一部分为事件名，即,OnClick,。两部分由下划线,(_),连接。单击按钮时，,Internet Explorer,查找并运行相应的事件过程，即,Button1_OnClick,。,Internet Explorer,在,Internet Explorer Scripting,对象模型文档中定义了可用于窗体控件的事件,它们可以在,Microsoft(R,) Web,站点上找到,(),。, ,一个简单首页, ,一个简单首页, ,此段为,VB,脚本程序,一般位于,之间。,按钮的名称不可与,HTML,的关键字相同。否则会产生错误,使用,IsNumeric,函数确定文本框中的字符串是否是一个数字,实例,1,：简单的客户端验证程序,客户端验证程序,Sub button1_OnClick,Dim,TheForm,Set,TheForm,= Document.Form1,If IsNumeric(TheForm.Text1.Value) Then,If TheForm.Text1.Value 10 Then,MsgBox,请输入一个,1,到,10,之间的数字。,Else,MsgBox,谢谢。,TheForm.Submit,数据输入正确，传递到服务器。,End If,Else,MsgBox,请输入一个数字。,End If,End Sub,验证,请输入一个,1,到,10,之间的数字：,说明：,这是一个简单的客户端验证的范例。,HTML,代码的描述是一个文本框和一个按钮。,要使用文本框的,Value,属性，代码必须引用文本框的名称。,每次引用文本框时都应写出全称，即,Document.ValidForm.Text1,。,但是，,当多次引用窗体控件时，可以按照以下步骤操作：首先声明一个变量，然后使用,Set,语句将窗体,Document.ValidForm,赋给变量,TheForm,，这样就能使用,TheForm.Text1,引用文本框。常规的赋值语句（例如,Dim,）在这里无效，必须使用,Set,来给对象变量赋值。,请注意以上范例直接检测输入值是否是一个数字，使用,IsNumeric,函数确定文本框中的字符串是否是一个数字。虽然,VBScript,能够自动转换字符串和数字，但检测用户输入值的数据子类型，并且在必要时使用转换函数始终是一个好的习惯。在用文本框的,Value,属性进行加法运算时，应将它显式地转换为数字，这是因为加号,(+),操作符不但可进行加法操作，而且可进行字符串连接操作。,本范例使用的是,普通按钮控件,。如果使用,Submit,控件,，,所有数据都会被立即传送到服务器，将无法真正完成对输入数据进行检查的任务,。避免使用,Submit,控件，可以使你检查数据。,说明：,在数据输入正确时,代码调用窗体对象的,Submit,方法,将数据传递到服务器。除非在数据被传递到服务器之前判断其正误,否则服务器将处理数据,而不论其正确与否。,如果使用了,Submit,类型的提交按钮,数据无论如何都会被提交给服务器,。此时的操作方法参看“,002,验证输入数据,(,VBScript).txt,”,文件可以解决此问题,002,验证输入数据,(,VBScript).txt,验证,Function,ValidForm_onSubmit,(),Dim,TheForm,Set,TheForm,=,Document.ValidForm,If IsNumeric(TheForm.Text1.Value) Then,If TheForm.Text1.Value 10 Then,MsgBox,请输入一个,1,到,10,之间的数字。,TheForm.Text1.focus() ,使焦点转到,Text1,中。,TheForm.Text1.select ,使,Text1,中的文本处于被选中状态。,ValidForm_onSubmit,= false,Else,MsgBox,数据将被提交到服务器。,End If,Else,MsgBox,请输入一个数字。,TheForm.Text1.focus() ,使焦点转到,Text1,中。,TheForm.Text1.select ,使,Text1,中的文本处于被选中状态。,ValidForm_onSubmit,= false,End If,End Function,请输入一个,1,到,10,之间的数字：,关闭窗口,显示鼠标指针位置,显示鼠标指针位置,sub,MousePoint,(),dim str1,str1=X= &,window.event.x,& Y= &,window.event.y,window.status,=str1,end sub,颜色选择器,颜色选择器,红色,绿色,蓝色,