web程序设计课件CH3vbscript

A S P2目标qVBScript的数据类型 q变量和常量，运算符q用户交互函数和过程的使用q流程控制结构q创建VBScript过程q使用VBScript内置函数重点：流程控制，子过程和函数过程33.1 脚本语言概念q 脚本（script）语言的概念源于Unix系统，在Unix系统中，将主要以行命令组成的命令集称为Shell脚本程序。q 常用脚本语言有：JavaScript、VbScript、和用于编写CGI脚本的Perl，Shell Script 等。q 脚本语言分为客户端脚本语言和服务器端脚本语言，前者在客户端执行，后者在服务器端执行。q 客户端默认脚本语言为JavaScript，服务器端默认的脚本语言为VbScript。q 使用客户端脚本可以：为用户提供交互、动态修改内容、检验数据、集成4VBScript语言qVBScript语言是一种与Visual Basic相类似的程序设计语言，与Visual Basic语法基本相同，但功能上限制比较多；qVBScript与JavaScript一样，是嵌入于HTML中的，可以设计出生动活泼、互动的Web pages和Web-based应用程序；qVBScript可以在客户端和服务器端执行；qVBScript是面向对象的程序设计语言，在VBScript的服务器端程序中，ASP对象很重要。53.2 在网页中嵌入VBScript代码的方法 动态网页示例 script代码块，默认由客户浏览器执行 !-document.write 欢迎您学习VBscript&-图图3-1 动态网页浏览结果动态网页浏览结果 6在网页中嵌入在网页中嵌入VBScript代码的方法代码的方法 说明：说明：（1）标记的作用是嵌入VBScript代码。该标记的一般格式如下：VBScript代码序列 标记可以出现在HTML文档的任何地方（body或head部分之中），但最好将所有的一般目的的脚本代码放在head部分中，使所有脚本代码集中放置。这样可以确保在body部分调用代码之前所有脚本代码都被读取并解释。一般将标记中的代码块放在HTML的注释符号“”之间。（2）网页代码中的标记“”的作用是嵌入ASP代码，可以根据需要在其中编写VBScript脚本程序。注意：“”之间的代码将由服务器解释执行。73.3 VBScript语言的写书规则（1）程序代码中不区分字母的大小写；（2）一行可以写多条语句，语句之间用“:”分隔；（3）一条语句也可以写在若干行上，但需在每行末尾加上续行标记空格和下划线“_”；（4）一行的长度不得超过255个字符；（5）在代码中可合理地使用注释，注意以“”开头，可以自占一行，也可以直接出现在语句的后面。83.4 数据类型可变型数据类型Variant q由各种子数据类型构成q可存储任何子类型的值q支持自动转换各种子类型93.5 变量和常量一、变量1.定义程序执行时可以改变的量2.语法3.命名规则Dim x Dim a,b,Left,Right (1)变量名只能由字母、数字和下划线组成。(2)变量名的第一个字符必须是字母。(3)变量名中间不能有空格。(4)变量名中不能包含小数点。(5)变量名的字符数目不得超过255个字符。(6)不能用VB的关键字作变量名。(7)变量名不能与过程名和符号常量名相同。(8)变量名在同一个作用域内必须是惟一的。103.5 变量和常量二、常量1.定义程序执行时保持不变的数据2.分类q 直接常量q 符号常量（内部常量、用户声明常量）Const mystring=这是一个常量 Const myage=100Const CutoffDate=#3-16-2003 13:20:15#11例例1 求圆的周长。常量 const Pi=3.14 定义圆周率为常量 dim r,length r=3 length=2*Pi*r MsgBox“圆的半径为：”&r&vbCrLf&“圆的周长为：”&length123.5 变量和常量三、数组1.定义一组相同类型的变量的集合2.分类q 静态数组q 动态数组Dim 数组名数组名(最大下标最大下标)Dim array1(2)Dim array2(2,3)Dim 数组名数组名()Dim myarray()Redim preserve 数组名数组名(新的最大下标值新的最大下标值)Dim datanum()Redim datanum(10)133.5 变量和常量三、数组3.示例 Dim A(10)A(0)=256 A(1)=324 A(10)=55 Document.write(A(0)Document.write(“”)Document.write(A(9)Document.write(“”)Document.write(A(10)Dim A()Redim A(25)A(0)=256 A(1)=324 Redim Preserve A(30)A(30)=30 Document.write(A(0)Document.write(“”)Document.write(A(1)Document.write(“”)Document.write(A(30)用于向当前网页输出内容，其内容可以是纯文用于向当前网页输出内容，其内容可以是纯文本，也可以是文本与本，也可以是文本与HTML标记的组合标记的组合 14例例2 动态数组示例。153.6 运算符一、算术运算符：+、-、*、/、（整除）、Mod（取余）、（乘方）二、字符串运算符q“&”与“+”的区别 三、比较运算符:=、=“计算机计算机”&1234&1234 结果为结果为”计算机计算机1234”1234”“2222”&1234 ”&1234 结果为结果为”221234”221234”22+1234 22+1234 结果为结果为12561256“计算机计算机”+1234 +1234 出错出错163.6 运算符运算符含义示例描述And与A And B当A和B同时为True时，结果为True，否则为FalseOr或A Or B 只要A或B之一为True，结果为True，否则为FalseNot非Not A 若A为True，则结果为False；若A为False，则结果为TrueXor异或A Xor B 若A和B取值相同时，结果为False，否则结果为TrueImp蕴涵A Imp B A为True且B为False时，结果为False，否则结果为TrueEqv等价A Eqv B A和B同时为True或同时为False时，结果为True，否则结果为False四、逻辑运算符173.7 用户交互函数和过程一、InputBox函数1.作用产生一个输入框，等待用户输入文本或选择一个按钮，当用户单击确定按钮或按回车键，函数返回文本框中输入的内容。2.语法 InputBox(“提示提示”,“标题标题”,“缺省值缺省值”，“x坐标位置坐标位置”，“y坐标位置坐标位置”)useraccount=InputBox(请输入您的账号,账号输入框,”A31007”)183.7 用户交互函数和过程二、MsgBox函数和MsgBox过程1.作用产生一个信息框，等待用户选择一个按钮。MsgBox函数会返回一个值指示用户选择的按钮，若不需返回值，则可用MsgBox过程。2.语法 3.“图标名称”和“按钮名称”的含义MsgBox函数：函数：MsgBox(“显示内容显示内容”,图标名称图标名称|按钮名称按钮名称,“标题标题”)MsgBox过程：过程：MsgBox“显示内容显示内容”,图标名称图标名称|按钮名称按钮名称,“标题标题”193.7 用户交互函数和过程三、例例4 利用利用InputBox函数提供一个输入框输入姓名，然函数提供一个输入框输入姓名，然后用后用MsgBox显示输入的姓名。显示输入的姓名。用户交互函数的应用 dim strnamestrname=InputBox(请输入您的姓名,姓名输入框“Msgbox 您的姓名是&strname,显示姓名20四、四、例例5 判断输入帐号判断输入帐号用户交互函数的应用 dim account,i Do account=InputBox(请输入账号,输入账号对话框)i=Msgbox(你的账号是：&account&vbCrLf&是否重输？,vbYesNo+VbExclamation,显示账号)Loop until i=vbNo 213.8 流程控制结构一、选择结构1.If语句q 单分支结构的If语句q 双分支结构的If语句q 多分支结构的If语句2.Select Case语句语法：语法：I f 表 达 式表 达 式 T h e n 语句块语句块End If或：或：If 表达式表达式 Then 语句语句 22例例6 改变网页背景颜色改变网页背景颜色 单分支结构的If语句 If time=#0:0:0#and time=#12:0:0#Then document.write End If上午和下午网页的背景颜色不同233.8 流程控制结构一、选择结构1.If语句q 单分支结构的If语句q 双分支结构的If语句q 多分支结构的If语句2.Select Case语句语法：语法：I f 表 达 式表 达 式 T h e n 语句块语句块ElseElse 语句块语句块End If24例例7 判断是否输入姓名。判断是否输入姓名。双分支结构的If语句dim name,messagename=InputBox(请输入您的姓名：)If name=Then message=您未输入您的姓名！Else message=您的姓名是：&name&。End IFMsgBox message253.8 流程控制结构一、选择结构1.If语句q 单分支结构的If语句q 双分支结构的If语句q 多分支结构的If语句2.Select Case语句语法：语法：If If 表达式表达式1 Then1 Then语句块语句块1 1ElseIf ElseIf 表达式表达式2 Then2 Then语句块语句块2 2 ElseElse语句块语句块n nEnd If 26q例例8 当用户浏览网页时，能根据浏览时间的不同显示不同的问候语：273.8 流程控制结构一、选择结构1.If语句q 单分支结构的If语句q 双分支结构的If语句q 多分支结构的If语句2.Select Case语句语法：语法：Select Case Select Case 表达式表达式 Case Case 值值1 1 语句块语句块1 1Case Case 值值2 2 语句块语句块2 2Case ElseCase Else 语句块语句块n nEnd SelectEnd Select28q 例例9 根据成绩显示不同的字句。Select Case语句 option explicitdim score,messagescore=InputBox(“请输入成绩：”)等待用户输入成绩Select Case True case Score 60 message=非常遗憾，您没有通过考试！case Score 70 message=您通过了考试，不过成绩一般噢！case Score 90 message=您通过了考试，成绩还不错！case Else message=恭喜您，取得了好成绩！End SelectMsgBox message 293.8 流程控制结构二、循环结构1.计数循环语句ForNext q 适用用于循环次数确定的循环结构q 语法 q 功能执行循环体中的程序代码指定次数，在循环中使用循环变量，该变量值随每一次循环增加步长，步长缺省为1。For 循环变量循环变量=初始值初始值 to终止值终止值 Step 步长步长程序代码程序代码Next 30例例10 实现求1到100的和。for i=1 to 100 sum=sum+i next例例11 输出九九乘法表。313.8 流程控制结构二、循环结构2.数组循环语句For EachNext q 适用常用于数组或对象集合 q 语法 q 功能用“变量名”代替数组中的每一个元素或对象集合中的每一项，对于数组中的每一个元素或对象集合中的每一项重复执行循环体中的程序代码。For Each 变量名变量名 In 数组名或对象集合数组名或对象集合 程序代码程序代码Next 32q 例例13 用For EachNext循环输出数组中各元素的值。dim score,i,message score=Array(97,83,68,90,70,54)创建一个有6个元素的成绩数组 用循环输出每个成绩 For Each i In score 此时数组只需写数组名，不必须加括号 message=message&i&chr(13)&chr(10)next MsgBox message 333.8 流程控制结构二、循环结构3.条件式循环语句DoLoopq 适用常用于循环次数未知的循环结构 q 分类 1.当型DoLoop 2.直到型 DoLoop 34当型DoLoopqDoLoop Whileq 执行循环代码并对循环条件进行求值,重复执行直到循环条件为 FalseqDo WhileLoopq 只有在循环条件为 True 时才执行循环代码，重复执行直到循环条件为 False如果想在条件表达式为如果想在条件表达式为 True（而不是（而不是False）时）时才执行循环语句，可使用才执行循环语句，可使用 While 关键字。关键字。35当型DoLoop对比流程图循环条件循环条件代码代码假假真真循环条件循环条件代码代码真真假假DoLoop WhileDo While Loop注意都是在循环条件为假时退出注意都是在循环条件为假时退出36直到型DoLoopqDoLoop Untilq执行循环代码并对循环条件进行求值执行循环代码并对循环条件进行求值,重复执重复执行直到循环条件为行直到循环条件为 True。注意代码至少会执。注意代码至少会执行一次行一次qDo UntilLoopq只有在循环条件为只有在循环条件为 False 时才执行循环代码，时才执行循环代码，重复执行直到循环条件为重复执行直到循环条件为 True。循环结构中。循环结构中的代码可能一次都不执行的代码可能一次都不执行37直到型DoLoop对比流程图循环条件循环条件代码代码假假真真循环条件循环条件代码代码真真假假DoLoop UntilDo Until Loop注意都是在循环条件为真时退出注意都是在循环条件为真时退出38q 例例14 用Do Loop循环语句求1到100的平方和。DoLoop循环n=1s=0Do while n=100s=s+n2n=n+1LoopMsgbox 1的平方到100的平方的累加和为：&s393.8 流程控制结构二、循环结构4.WhileWend循环 q 适用常用于循环次数未知的循环结构 q 语法 q 功能先判断表达式的值，若值为True，则执行循环体中的程序代码，否则退出循环，执行Wend后的语句。While 表达式表达式程序代码程序代码Wend40q 例例15 用WhileWend循环语句求1到100的平方和。WhileWend循环n=1s=0While n=100s=s+n2n=n+1WendMsgbox 1的平方到100的平方的累加和为：&s413.9 VBScript过程q定义：过程是完成某种特定功能的一组独立的程序代码 q分类：子过程和函数过程q区别：函数过程可以在执行结束的时候返回一个值给调用它的程序，而子过程不返回值。423.9 VBScript过程一、子过程1.例例16 子过程的定义。子过程子过程 msgbox msgbox 现在执行子过程外的语句现在执行子过程外的语句 Sub a Sub a msgbox msgbox 现在执行子过程内的语句现在执行子过程内的语句 End Sub End Sub433.9 VBScript过程一、子过程2.调用子过程q 语法方式一：Call Call 子过程名子过程名（参数（参数1 1，参数，参数2 2，）方式二：子过程名子过程名 参数参数1 1，参数，参数2 2，443.9 VBScript过程一、子过程2.调用子过程例例17 无参数子过程的定义及调用。无参数子过程的定义及调用无参数子过程的定义及调用 a a msgbox msgbox 现在执行子过程外的语句现在执行子过程外的语句 Sub a Sub a msgbox msgbox 现在执行子过程内的语句现在执行子过程内的语句 End Sub End Sub453.9 VBScript过程一、子过程2.调用子过程q 例例18 有参数子过程的定义及调用。有参数子过程的定义及调用有参数子过程的定义及调用 dim a,b,c dim a,b,c a=15 a=15 b=20 b=20 c=4 c=4 maxnum a,b,c maxnum a,b,c 调用子过程调用子过程 Sub maxnum(x,y,z)Sub maxnum(x,y,z)定义子过程定义子过程 dim maxdim max if xy then if xy then max=x max=x else else max=y max=y end if end if if zmax then max=z if zmax then max=z msgbox“msgbox“最大的数为：最大的数为：”&max&max End Sub End Sub 463.9 VBScript过程一、子过程3.终止执行子过程（Exit Sub）q 例例19 子过程的中止。子过程的中止子过程的中止 b b Sub b Sub b document.write“document.write“子过程被中止前子过程被中止前”exit subexit sub document.write document.write 子过程被中止后子过程被中止后 该语句不会执行到该语句不会执行到 End SubEnd Sub473.9 VBScript过程二、函数过程1.定义函数过程q 语法2.调用函数过程直接引用函数过程名Function 函数过程名函数过程名（参数（参数1，参数，参数2，）程序代码程序代码函数过程名函数过程名=返回值返回值 End Function 483.9 VBScript过程二、函数过程3.例例20 函数过程的定义及调用。dim a,b,c dim a,b,c a=15 a=15 b=20 b=20 c=4 c=4 msgbox(“msgbox(“最大数是：最大数是：”&maxnum(a,b,c)&maxnum(a,b,c)Function maxnum(x,y,z)Function maxnum(x,y,z)dim max dim max if xy then if xy then max=x max=x else else max=y max=y end if end if if zmax then max=z if zmax then max=z maxnum=max maxnum=max End Function End Function493.9 VBScript过程三、变量的作用域1.定义指变量的有效范围，变量的作用域由它声明或出现的位置决定2.分类q 局部变量q 全局变量 3.例例21 变量作用域示例：局部变量是在过程内部局部变量是在过程内部声明或出现的变量，其声明或出现的变量，其作用域仅局限于定义它作用域仅局限于定义它的过程，只在该过程内的过程，只在该过程内有效，离开相应过程，有效，离开相应过程，变量会失效而变为空。变量会失效而变为空。全局变量是在过程外全局变量是在过程外部声明或出现的变量，部声明或出现的变量，其作用域为当前整个其作用域为当前整个ASP网页，在当前网网页，在当前网页的各个脚本程序块页的各个脚本程序块内有效。内有效。503.10 VBScript的内置函数q一.字符串函数 q二.数学函数 q三.转换函数 q四.日期和时间函数 q五.检验函数 q六.数组相关的函数 513.10 内置函数一.字符串函数函数名语法功能LenLen(str)求字符串str的长度TrimTrim(str)去掉字符串str两边的空格LcaseLcase(str)将大写字母转化为小写字母UcaseUcase(str)将小写字母转化为大写字母LeftLeft(str,n)从字符串str的左边取n个字符RightRight(str,n)从字符串str的右边取n个字符MidMid(str,n1,n2)从字符串str左边第n1个位置开始向右取n2个字符StrcompStrcomp(str1,str2)比较字符串str1和str2的大小。str1大于str2，返回1；str1小于str2，返回-1；相同，返回0。InstrInstr(n,str1,str2,m)在str1字符串中从n位置开始搜索str2字符串，返回str2在str1中出现的位置，未找到返回0。m=1，不区分大小写；m=0或省略m，区分大小写SplitSplit(str,char)将str字符串根据分隔符char拆分成字符串数组，省略char用空格作为分隔符JionJion(a,char)将字符串数组a用分隔符char连接成一个字符串，省略char用空格作为分隔符523.10 字符串函数举例x=一二三四五六七八九十/一个汉字长度为1document.write len(x)&for i=16 to 87/显示各区汉字x=for j=1 to 94x=x&chr(160+i)*256+160+j)/在Unicode码中(双字节),一个汉字只占一个字符位if j mod 20=0 then x=x&nextdocument.write x&next533.10 内置函数二.数学函数函数名语法功能AbsAbs(n)求n的绝对值SqrSqr(n)求n的平方根CosCos(n)求n的余弦SinSin(n)求n的正弦LogLog(n)求n以e为底的自然对数ExpExp(n)求e的n次幂SgnSgn(n)求n的符号RndRnd(n)产生一个01之间的随机数IntInt(n)取n的整数部分，返回不大于n的最大整数FixFix(n)取n的整数部分，小数部分不四舍五入HexHex(n)将八进制数转换成十进制数OctOct(n)将十进制数转换成八进制数54产生随机数例例22 产生五个产生五个1100之间的随机整数。之间的随机整数。Rnd函数产生5个1-100的随机整数 for i=1 to 5 for i=1 to 5 randomize randomize document.write Int(Rnd document.write Int(Rnd*100+1)&100+1)&next next553.10 内置函数三.转换函数函数名语法功能AscAsc(c)将字符c转换成ASCII码值Chr$Chr$(n)将ASCII码值n转换成字符CstrCstr(exp)将exp转换为String类型CdateCdate(exp)将exp转换为Date类型CintCint(exp)将exp转换为Int型ClngClng(exp)将exp转换为Long类型CsngCsng(exp)将exp转换为Single类型CdblCdbl(exp)将exp转换为Double类型CboolCbool(exp)将exp转换为Boolean类型563.10 内置函数四.日期和时间函数函数名语法功能DateDate()返回系统日期TimeTime()返回系统时间NowNow()返回系统日期和时间DayDay(date)返回给定日期是几号MonthMonth(date)返回给定日期的月份YearYear(date)返回给定日期的年份HourHour(time)返回给定时间的小时部分MinuteMinute(time)返回给定时间的分钟SecondSecond(time)返回给定时间的秒钟MonthNameMonthName(month)返回月份名称WeekdayWeekday(date)返回给定日期的星期代号WeekdaynameWeekdayname(weekday)返回星期名称DatediffDatediff(interval,date1,date2)返回两个日期或时间的间隔DateAddDateAdd(interval,number,date)对日期添加或减去指定时间间隔57利用日期时间函数求日期或时间例例23 日期时间函数示例。时期时间函数 document.write 现在是：&now()&document.write 今天的日期是：&date()&document.write 现在的时间是：&time()&document.write 今天是：&year(date)&年&month(date)&月&day(date)&日&document.write 现在是&hour(now)&时&minute(now)&分&second(now)&秒&document.write 今天的星期代号是：&weekday(date)&document.write 今天是：&weekdayname(weekday(date)&document.write 到五一节还有&datediff(d,date,#2006-5-1#)&天&583.10 内置函数五.检验函数 函数名语法功能IsNumericIsNumeric(var)检查var的值，若是数字，则返回trueIsDateIsDate(var)检查var的值，若是日期，则返回trueIsArrayIsArray(var)检查var的值，若是数组，则返回trueIsObjectIsObject(var)检查var的值，若是对象，则返回trueIsEmptyIsEmpty(var)检查var的值，若是empty，则返回trueIsNullIsNull(var)检查var的值，若是Null，则返回true59例例24 用IsNumeric函数判断一个变量中的数据是否由数字组成。IsNumeric函数检验变量中的值是否数字 dim myvar myvar=53 mycheck=IsNumeric(myvar)MsgBox mycheck 显示True myvar=459.95 mycheck=IsNumeric(myvar)MsgBox mycheck 显示True myvar=45Help mycheck=IsNumeric(myvar)MsgBox mycheck 显示False603.10 内置函数六.数组相关的函数函数名语法功能UboundUbound(a,d)返回数组a的指定维d的可用最大下标LboundLbound(a,d)返回数组a的指定维d的可用最小下标ArrayArray(arglist)返回一个数组，数组元素为arglist中的值61例例25 数组相关函数示例。数组相关函数示例。数组相关函数创建一个数组并输出数组中的元素 dim myweek,myday myweek=Array(Mon,Tue,Wed,Thu,Fri,Sat,Sun)For i=Lbound(myweek)to Ubound(myweek)document.write myweek(&i&)=&myweek(i)&Next62q JavaScript 有六种数据类型。q主要的类型有 number、string、object 以及 Boolean 类型,其他两种类型为 null 和 undefined。q 变量命名：JavaScript 是一种区分大小写的语言，因此将一个变量命名为 computer 和将其命名为 Computer是不一样的。q变量命名规则：q 1.第一个字符必须是一个字母（大小写均可）、或一个下划线(_)或一个美元符($)。q 2.后续的字符可以是字母、数字、下划线或美元符。q 3.变量名称不能是保留字。补充：了解JavaScript63qJavaScript所提供的语句分为以下几大类：q1、变量声明，赋值语句：var。语法如下：var 变量名称=初始值 例：var computer=32/定义computer是一个变量，且有初值为32。q2、函数定义语句：function，return。语法如下：function 函数名称（函数所带的参数）函数执行部分 64q 3、选择语句qif.else语句完成了程序流程块中分支功能：如果其中的条件成立，则程序执行紧接着条件的语句或语句块；否则程序执行else中的语句或语句块。if(条件)执行语句1 else 执行语句2 654、循环语句：for,while,break,continue。for语句的语法如下：for(初始化部分；条件部分；更新部分)执行部分.66q while语句所控制的循环不断的测试条件，如果条件始终成立，则一直循环，直到条件不再成立。语法如下：while(条件)执行语句.q break语句结束当前的各种循环，并执行循环的下一条语句。q continue语句结束当前的循环，并马上开始下一个循环。67q5、对象操作语句：this，newqnew语句是一种对象构造器，可以用new语句来定义一个新对象。语法是这样的：q新对象名称 new 真正的对象名 譬如说，我们可以这样定义一个新的日期对象：var curr new Date()，然后，变量curr就具有了Date对象的属性。qthis运算符总是指向当前的对象。q6.注释语句：/，/*.*/。/这是单行注释 /*这可以多行注释.*/68客户端脚本用于表单提交HTML 表单用户输入并提交JavaScript 数据检验数据是否有效？有效数据将数据提交给服务器是是否否69嵌入JavaScript脚本方法指定脚本语言指定脚本语言HTML注释注释()70 添加 HTML 按钮控件单击单击“问候问候”71总结qVbscript脚本语言的基本数据类型q变量和常量的定义与使用q四种运算符qInputBox函数与MsgBox函数q选择结构与循环结构q子过程与函数qVbScript各类内置函数72作业q输入一个年份，判断是否闰年（使用msgbox和inputbox）q任意输入一个数，判断是否素数。q输入n,求n!q购票系统：160cm以上全票，140-159cm半票，139cm以下儿童票。（要求用select case完成）q编vbscript程序，在上午(6:0012:00)，中午（12：0014：00），下午（14：0018：00），晚上（18：00次日上午6：00）分别进入网页时显示不同欢迎信息和背景颜色。q将以上作业链接到你所做的网站中。