《《Web数据库技术应用教程（第二版）》-王承君-电子教案-5446-缺第12章 第7章》由会员分享，可在线阅读，更多相关《《Web数据库技术应用教程（第二版）》-王承君-电子教案-5446-缺第12章 第7章（32页珍藏版）》请在金锄头文库上搜索。
1、Web数据库技术应用教程 （第二版）,王承君 主编 中国水利水电出版社,本章主要介绍了脚本语言VBScript的基本知识及其使用，通过本章的学习读者应掌握以下内容： 了解VBScript的语言类型 掌握VBScript语言语法及其使用 掌握VBScript语言扩充,本讲主要内容,7.1 VBScript简介,目前比较流行的脚本语言有两种：VBScript和JavaScript。其中VBScript基于Microsoft公司的Visual Basic语言；而JavaScript基于SUN公司的Java语言。使用VBScript和JavaScript，既可以编写服务器端脚本，也可以编写客户端脚本。
2、,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：常量的名称，根据标准的变
3、量命名约定。expression：文字或其他常量，或包括除is外的所有算术运算符和逻辑运算符的任意组合。 （2）Public：可选项。该关键字用于在Script级中声明可用于所有脚本中所有过程的常量。不允许在过程中使用。 （3）Private：可选项。该关键字用于在脚本级中声明只可用在声明所在的脚本中的常量。不允许在过程中使用。,7.2.3 VBScript中的数组,1数组的声明 操作符varname(subscripts)，varname(subscripts) .,2数组的引用和赋值 数组的引用采用下标的形式，从0开始。 数组的赋值是直接将数据赋给数组的元素，可以是数值类型，也可以是字符类
4、型，但对同一个数组内部数据应该是类型相同的。,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
5、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
6、 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
7、 语句组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语句 其基本结构如下：
8、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
9、= “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
10、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 gro
11、up 语句组 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过程 语法格式： Publ
12、ic 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错误的种类 程序中出现的错误可以分为两类：一类是程序本身出现的错误，如语法错误、逻辑错误等，这种错误必须改正才能使程序正确运行。 另一类错误是执行中的错误，这种错误在程序执行中发生，而且这
13、类错误有些是无法估计出来的。,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 属性。 语法格式：o
14、bject.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
15、 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 字符串
16、函数,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
