资源预览内容
第1页 / 共32页
第2页 / 共32页
第3页 / 共32页
第4页 / 共32页
第5页 / 共32页
第6页 / 共32页
第7页 / 共32页
第8页 / 共32页
第9页 / 共32页
第10页 / 共32页
亲,该文档总共32页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
Web数据库技术应用教程 (第二版),王承君 主编 中国水利水电出版社,本章主要介绍了脚本语言VBScript的基本知识及其使用,通过本章的学习读者应掌握以下内容: 了解VBScript的语言类型 掌握VBScript语言语法及其使用 掌握VBScript语言扩充,本讲主要内容,7.1 VBScript简介,目前比较流行的脚本语言有两种:VBScript和JavaScript。其中VBScript基于Microsoft公司的Visual Basic语言;而JavaScript基于SUN公司的Java语言。使用VBScript和JavaScript,既可以编写服务器端脚本,也可以编写客户端脚本。,1、VBScript语言的特点,2、VBScript和Visual Basic的主要区别,7.2.1 VBScript中的变量,1VBScrip 中的变量类型,2变量的命名规则,3变量的声明,操作符varname ,varname .,4变量的赋值,5变量的作用域与存活期,7.2.2 VBScript中的常量,1常量的定义 2常量的声明 可以使用Const 语句在 VBScript 中创建用户自定义常量,并给它们赋值。 Const语句格式如下: Public | Private Const constname = expression,说明:(1)constname:常量的名称,根据标准的变量命名约定。expression:文字或其他常量,或包括除is外的所有算术运算符和逻辑运算符的任意组合。 (2)Public:可选项。该关键字用于在Script级中声明可用于所有脚本中所有过程的常量。不允许在过程中使用。 (3)Private:可选项。该关键字用于在脚本级中声明只可用在声明所在的脚本中的常量。不允许在过程中使用。,7.2.3 VBScript中的数组,1数组的声明 操作符varname(subscripts),varname(subscripts) .,2数组的引用和赋值 数组的引用采用下标的形式,从0开始。 数组的赋值是直接将数据赋给数组的元素,可以是数值类型,也可以是字符类型,但对同一个数组内部数据应该是类型相同的。,3多维数组和动态数组的声明 1)多位数组的声明 2)动态数组的声明,7.3.1 算术运算符,1加运算符+ 2减运算符 3乘运算符* 4除运算符/和 5取余运算符mod 6求幂运算 7赋值运算符=,7.3.2 关系运算符,关系运算符又叫比较运算符,VBScript中含有普通语言所具有的一般关系运算符:(大于)、=(大于等于)、=(等于)、(不等于)。,在VBScript 中还有一个特殊的运算符is(对象引用比较),用于比较两个对象引用变量。其语法形式为: result = object1 is object2,7.3.3 逻辑运算符,1逻辑非Not 2逻辑与And 3逻辑或Or 4逻辑异或Xor 5逻辑等价Eqv,7.3.4 连接运算符,连接运算符用于将两个字符串相连,它包括两个运算符:+和&。,加运算符用于字符串类型的操作数,其作用是将两个字符串相连。,&的作用就是将两个表达式按字符串相连。语法格式如下: result = expression1 & expression2,7.3.5 运算优先级,表7-5 运算符的优先顺序,7.4.1 选择结构,【例7.1】 可以使用If.Then.Else 语句定义两个可执行语句块,条件为True时运行某一语句块,条件为 False 时运行另一语句块。 Sub AlertUser(value) If value = 0 Then AlertLabel.ForeColor = vbRed AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True Else AlertLabel.Forecolor = vbBlack AlertLabel.Font.Bold = False AlertLabel.Font.Italic = False End If End Sub,1If.Then.Else 条件语句 If.Then.Else 语句基本结构分两种情况,一种是采用单行结构,语法结构如下: if(条件表达式) then 语句组1 else 语句组2,7.4.1 选择结构,1If.Then.Else 条件语句 另一种是采用多行(或块)结构。其结构如下: if(条件表达式) then 语句块1 else 语句块2 endif,【例7.2】 对多个条件进行判断。 Sub ReportValue(value) If value = 0 Then MsgBox value ElseIf value = 1 Then MsgBox value ElseIf value = 2 Then MsgBox value Else MsgBox “数值超出范围!“ End If,7.4.1 选择结构,2Select Case语句 其基本结构如下: Select Case 表达式 Case 标签1 语句块1 Case标签2 语句块2 Case Else 标签n 语句块n End Select,【例7.3】 下面例子举例说明如何使用 Select Case 语句。 Dim Color, MyVar Sub ChangeBackground (Color) MyVar = lcase (Color) Select Case MyVar Case “red“ document.bgColor = “red“ Case “green“ document.bgColor = “green“ Case “blue“ document.bgColor = “blue“ Case Else MsgBox “选择另一种颜色“ End Select End Sub,7.4.2 循环结构,1For.Next语句 For.Next语句用以指定次数重复执行一组语句。其基本结构如下: For counter = start To end Step stepsize 循环体 Next,【例7.4】 在下面的示例中,计数器变量j每次加2。循环结束后,total的值为10、12、14、16、18和20的总和。 Sub TwosTotal() Dim j, total For j = 10 To 20 Step 2 total = total + j Next MsgBox “总和为 “ & total & “。“ End Sub,【例7.5】 在下面的示例中,计数器变量 myNum 每次减 2。循环结束后,total 的值为 20、18、16、14、12、10、8、6、4 和 2 的总和。 Sub NewTotal() Dim myNum, total For myNum = 20 To 2 Step -2 total = total + myNum Next MsgBox “总和为 “ & total & “。“ End Sub,7.4.2 循环结构,2For Each.Next语句 其基本结构为: For Each element In group 语句组 Next element,7.4.2 循环结构,3Do.Loop语句 语法格式为: Do While | Until条件表达式 循环体 Loop 或: Do 循环体 Loop While | Until条件表达式,7.4.2 循环结构,4While.Wend 其语法格式如下: While 条件表达式 循环体 Wend,例: Dim Counter Counter = 0 初始化变量 While Counter 20 测试计数器的值 Counter = Counter + 1 增加计数器 Wend 计数器大于19时终止循环,7.4.3 过程与函数,1SUB过程 语法格式: Public Default| Private Sub name (参数表) 语句组 Exit Sub 语句组 End Sub,2Function 过程 语法格式: Public Default| Private Function name (参数表) 语句组 name = expression Exit Function 语句组 name = expression End Function,7.4.4 错误处理,1错误的种类 程序中出现的错误可以分为两类:一类是程序本身出现的错误,如语法错误、逻辑错误等,这种错误必须改正才能使程序正确运行。 另一类错误是执行中的错误,这种错误在程序执行中发生,而且这类错误有些是无法估计出来的。,2捕获错误 VBScript可利用On Error Resume Next和On Error Goto 0语句来捕获错误。,7.4.4 错误处理,3使用Err对象,(1)Err对象的属性 1)Number属性。 语法格式:object.Number = Errornumber 2)Description 属性。 语法格式:object.Description = stringexpression 3)HelpContext属性。 语法格式:object.HelpContext = contextID,7.4.4 错误处理,4)HelpFile 属性。 语法格式:object.HelpFile = contextID,【例7.11】Err对象的HelpFile属性使用示例。 On Error Resume Next Dim Msg Err.Clear Err.Raise 6 产生“溢出“错误。 Err.Helpfile = “yourHelp.hlp“ Err.HelpContext = yourContextID If Err.Number 0 Then Msg = “按下 F1 键或 Help 查看“ & Err.Helpfile & “与下列 HelpContext “ & _ “ 有关的主题: “ & Err.HelpContext MsgBox Msg, , “错误: “ & Err.Description, Err.Helpfile, Err.HelpContext End If,5)Source 属性。 语法格式:object.Source = stringexpression,7.4.4 错误处理,(2)Err对象的方法 1)Raise方法。Raise 方法生成运行时错误。 语法格式: object.Raise(number,source,description,helpfile,helpcontext) 2)Clear方法。Clear方法清除Err对象的所有属性设置。 语法格式: object.Clear,7.5.1 字符串函数,1Asc 函数 语法格式:Asc(string) 2Chr函数 语法格式:Chr(charcode) 3InStr函数 语法格式:InStr(start,string1,string2,compare),7.5.1 字符串函数,4InStrRev函数 语法格式:InStrRev(string1, string2, start, compare),5LCase函数与UCase函数 语法格式: Lcase(string) Ucase(string),6Left与Right函数 语法格式: Left(string,length) Right(string,length),7.5.1 字符串函数,7Mid函数 语法格式:Mid(string,start,len
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号