《Web數(shù)據(jù)庫(kù)技術(shù)應(yīng)用教程（第二版）》課件第7章

本章主要介紹了腳本語(yǔ)言VBScript的基本知識(shí)及其使用，通過(guò)本章的學(xué)習(xí)讀者應(yīng)掌握以下內(nèi)容：了解VBScript的語(yǔ)言類(lèi)型掌握VBScript語(yǔ)言語(yǔ)法及其使用掌握VBScript語(yǔ)言擴(kuò)充本講主要內(nèi)容

7.1VBScript簡(jiǎn)介

目前比較流行的腳本語(yǔ)言有兩種：VBScript和JavaScript。其中VBScript基于Microsoft公司的VisualBasic語(yǔ)言；而JavaScript基于SUN公司的Java語(yǔ)言。使用VBScript和JavaScript，既可以編寫(xiě)服務(wù)器端腳本，也可以編寫(xiě)客戶(hù)端腳本。1、VBScript語(yǔ)言的特點(diǎn)

2、VBScript和VisualBasic的主要區(qū)別7.2.1VBScript中的變量1．VBScrip中的變量類(lèi)型2．變量的命名規(guī)則3．變量的聲明操作符varname[,varname]...4．變量的賦值

5．變量的作用域與存活期7.2.2VBScript中的常量1．常量的定義2．常量的聲明可以使用Const語(yǔ)句在VBScript中創(chuàng)建用戶(hù)自定義常量，并給它們賦值。

Const語(yǔ)句格式如下：[Public|Private]Constconstname=expression說(shuō)明：（1）constname：常量的名稱(chēng)，根據(jù)標(biāo)準(zhǔn)的變量命名約定。expression：文字或其他常量，或包括除is外的所有算術(shù)運(yùn)算符和邏輯運(yùn)算符的任意組合。（2）Public：可選項(xiàng)。該關(guān)鍵字用于在Script級(jí)中聲明可用于所有腳本中所有過(guò)程的常量。不允許在過(guò)程中使用。（3）Private：可選項(xiàng)。該關(guān)鍵字用于在腳本級(jí)中聲明只可用在聲明所在的腳本中的常量。不允許在過(guò)程中使用。7.2.3VBScript中的數(shù)組1．?dāng)?shù)組的聲明操作符varname[([subscripts])][，varname[([subscripts])]]...2．?dāng)?shù)組的引用和賦值數(shù)組的引用采用下標(biāo)的形式，從0開(kāi)始。數(shù)組的賦值是直接將數(shù)據(jù)賦給數(shù)組的元素，可以是數(shù)值類(lèi)型，也可以是字符類(lèi)型，但對(duì)同一個(gè)數(shù)組內(nèi)部數(shù)據(jù)應(yīng)該是類(lèi)型相同的。3．多維數(shù)組和動(dòng)態(tài)數(shù)組的聲明

1）多位數(shù)組的聲明

2）動(dòng)態(tài)數(shù)組的聲明7.3.1算術(shù)運(yùn)算符1．加運(yùn)算符+2．減運(yùn)算符－3．乘運(yùn)算符*4．除運(yùn)算符/和\5．取余運(yùn)算符mod6．求冪運(yùn)算^7．賦值運(yùn)算符=7.3.2關(guān)系運(yùn)算符

關(guān)系運(yùn)算符又叫比較運(yùn)算符，VBScript中含有普通語(yǔ)言所具有的一般關(guān)系運(yùn)算符：<（小于）、>（大于）、<=（小于等于）、>=（大于等于）、=（等于）、<>（不等于）。

在VBScript中還有一個(gè)特殊的運(yùn)算符is（對(duì)象引用比較），用于比較兩個(gè)對(duì)象引用變量。其語(yǔ)法形式為：

result=object1isobject27.3.3邏輯運(yùn)算符1．邏輯非Not2．邏輯與And3．邏輯或Or4．邏輯異或Xor5．邏輯等價(jià)Eqv7.3.4連接運(yùn)算符

連接運(yùn)算符用于將兩個(gè)字符串相連，它包括兩個(gè)運(yùn)算符：+和&。

加運(yùn)算符用于字符串類(lèi)型的操作數(shù)，其作用是將兩個(gè)字符串相連。

&的作用就是將兩個(gè)表達(dá)式按字符串相連。語(yǔ)法格式如下：

result=expression1&expression27.3.5運(yùn)算優(yōu)先級(jí)表7-5運(yùn)算符的優(yōu)先順序優(yōu)先順序運(yùn)算符1^2-3*、/、\4Mod5+、-6&7=、<>、<>、<=、>=、Is8Or9Xor10Eqv11Imp7.4.1選擇結(jié)構(gòu)【例7.1】可以使用If...Then...Else語(yǔ)句定義兩個(gè)可執(zhí)行語(yǔ)句塊，條件為T(mén)rue時(shí)運(yùn)行某一語(yǔ)句塊，條件為False時(shí)運(yùn)行另一語(yǔ)句塊。SubAlertUser(value) Ifvalue=0Then AlertLabel.ForeColor=vbRed AlertLabel.Font.Bold=True AlertLabel.Font.Italic=True Else AlertLabel.Forecolor=vbBlack AlertLabel.Font.Bold=False AlertLabel.Font.Italic=False EndIfEndSub1．If...Then...Else條件語(yǔ)句

If...Then...Else語(yǔ)句基本結(jié)構(gòu)分兩種情況，一種是采用單行結(jié)構(gòu)，語(yǔ)法結(jié)構(gòu)如下：

if（條件表達(dá)式）then語(yǔ)句組1else語(yǔ)句組27.4.1選擇結(jié)構(gòu)1．If...Then...Else條件語(yǔ)句

另一種是采用多行（或塊）結(jié)構(gòu)。其結(jié)構(gòu)如下：

if（條件表達(dá)式）then

語(yǔ)句塊1 else

語(yǔ)句塊2 endif【例7.2】對(duì)多個(gè)條件進(jìn)行判斷。

SubReportValue(value) Ifvalue=0ThenMsgBoxvalue ElseIfvalue=1ThenMsgBoxvalue ElseIfvalue=2Then MsgBoxvalue Else MsgBox"數(shù)值超出范圍！" EndIf7.4.1選擇結(jié)構(gòu)2．SelectCase語(yǔ)句其基本結(jié)構(gòu)如下：SelectCase表達(dá)式Case標(biāo)簽1

語(yǔ)句塊1Case標(biāo)簽2

語(yǔ)句塊2

…CaseElse標(biāo)簽n

語(yǔ)句塊nEndSelect【例7.3】下面例子舉例說(shuō)明如何使用SelectCase語(yǔ)句。DimColor,MyVarSubChangeBackground(Color)MyVar=lcase(Color)

SelectCaseMyVarCase"red"document.bgColor="red"Case"green"document.bgColor="green"Case"blue"document.bgColor="blue"CaseElseMsgBox"選擇另一種顏色"EndSelectEndSub7.4.2循環(huán)結(jié)構(gòu)1．For...Next語(yǔ)句

For...Next語(yǔ)句用以指定次數(shù)重復(fù)執(zhí)行一組語(yǔ)句。其基本結(jié)構(gòu)如下：

Forcounter=startToend[Stepstepsize]

循環(huán)體

Next【例7.4】在下面的示例中，計(jì)數(shù)器變量j每次加2。循環(huán)結(jié)束后，total的值為10、12、14、16、18和20的總和。SubTwosTotal()Dimj,totalForj=10To20Step2total=total+jNextMsgBox"總和為"&total&"。"EndSub【例7.5】在下面的示例中，計(jì)數(shù)器變量myNum每次減2。循環(huán)結(jié)束后，total的值為20、18、16、14、12、10、8、6、4和2的總和。SubNewTotal()DimmyNum,totalFormyNum=20To2Step-2total=total+myNumNextMsgBox"總和為"&total&"。"EndSub7.4.2循環(huán)結(jié)構(gòu)2．ForEach...Next語(yǔ)句其基本結(jié)構(gòu)為：

ForEachelementIngroup

語(yǔ)句組

Next[element]7.4.2循環(huán)結(jié)構(gòu)3．Do...Loop語(yǔ)句語(yǔ)法格式為：

Do[{While|Until}條件表達(dá)式]

循環(huán)體

Loop

或：

Do

循環(huán)體

Loop[{While|Until}條件表達(dá)式]7.4.2循環(huán)結(jié)構(gòu)4．While...Wend

其語(yǔ)法格式如下：

While條件表達(dá)式 循環(huán)體

Wend例：

DimCounterCounter=0 '初始化變量

WhileCounter<20 '測(cè)試計(jì)數(shù)器的值

Counter=Counter+1 '增加計(jì)數(shù)器

Wend '計(jì)數(shù)器大于19時(shí)終止循環(huán)7.4.3過(guò)程與函數(shù)1．SUB過(guò)程語(yǔ)法格式：

[Public[Default]|Private]Subname[(參數(shù)表)]

語(yǔ)句組

[ExitSub]

語(yǔ)句組

EndSub2．Function過(guò)程語(yǔ)法格式：

[Public[Default]|Private]Functionname[(參數(shù)表)]

語(yǔ)句組

[name=expression][ExitFunction]

語(yǔ)句組

[name=expression]EndFunction7.4.4錯(cuò)誤處理1．錯(cuò)誤的種類(lèi)程序中出現(xiàn)的錯(cuò)誤可以分為兩類(lèi)：一類(lèi)是程序本身出現(xiàn)的錯(cuò)誤，如語(yǔ)法錯(cuò)誤、邏輯錯(cuò)誤等，這種錯(cuò)誤必須改正才能使程序正確運(yùn)行。另一類(lèi)錯(cuò)誤是執(zhí)行中的錯(cuò)誤，這種錯(cuò)誤在程序執(zhí)行中發(fā)生，而且這類(lèi)錯(cuò)誤有些是無(wú)法估計(jì)出來(lái)的。2．捕獲錯(cuò)誤

VBScript可利用OnErrorResumeNext和OnErrorGoto0語(yǔ)句來(lái)捕獲錯(cuò)誤。7.4.4錯(cuò)誤處理3．使用Err對(duì)象

（1）Err對(duì)象的屬性

1）Number屬性。語(yǔ)法格式：object.Number[=Errornumber]2）Description屬性。

語(yǔ)法格式：object.Description[=stringexpression]3）HelpContext屬性。

語(yǔ)法格式：object.HelpContext[=contextID]7.4.4錯(cuò)誤處理4）HelpFile屬性。語(yǔ)法格式：object.HelpFile[=contextID]

【例7.11】Err對(duì)象的HelpFile屬性使用示例。OnErrorResumeNextDimMsgErr.ClearErr.Raise6'產(chǎn)生"溢出"錯(cuò)誤。Err.Helpfile="yourHelp.hlp"Err.HelpContext=yourContextIDIfErr.Number<>0ThenMsg="按下F1鍵或Help查看"&Err.Helpfile&"與下列HelpContext"&_"有關(guān)的主題:"&Err.HelpContextMsgBoxMsg,,"錯(cuò)誤:"&Err.Description,Err.Helpfile,Err.HelpContextEndIf5）Source屬性。語(yǔ)法格式：object.Source[=stringexpression]7.4.4錯(cuò)誤處理（2）Err對(duì)象的方法

1）Raise方法。Raise方法生成運(yùn)行時(shí)錯(cuò)誤。語(yǔ)法格式：

object.Raise(number,source,description,helpfile,helpcontext)2）Clear方法。Clear方法清除Err對(duì)象的所有屬性設(shè)置。語(yǔ)法格式：object.Clear7.5.1字符串函數(shù)1．Asc函數(shù)語(yǔ)法格式：Asc(string)2．Chr函數(shù)語(yǔ)法格式：Chr(charcode)3．InStr函數(shù)語(yǔ)法格式：InStr([start,]string1,string2[,compare])

7.5.1字符串函數(shù)4．InStrRev函數(shù)語(yǔ)法格式：InStrRev(string1,string2[,start[,compare]])5．LCase函數(shù)與UCase函數(shù)語(yǔ)法格式： Lcase(string) Ucase(string)

6．Left與Right函數(shù)語(yǔ)法格式： Left(string,length) Right(string,length)7.5.1字符串函數(shù)7．Mid函數(shù)語(yǔ)法格式：Mid(string,start[,length])8．Len函數(shù)語(yǔ)法格式：Len(string|varname)9．Replace函數(shù)語(yǔ)法格式：Replace(expression,find,replacewith[,compare[,count[,start]]])

7.5.2轉(zhuǎn)換函數(shù)1．CStr函數(shù)語(yǔ)法格式：CStr(expression)2．CBool函數(shù)語(yǔ)法格式：Cbool(expression)3．Cdate函數(shù)語(yǔ)法格式：Cdate(date)【例7.16】下面的示例使用CDate函數(shù)將字符串轉(zhuǎn)換成日期類(lèi)型。MyDate="October01,2001" '定義日期MyShortDate=CDate(MyDate) '轉(zhuǎn)換為日期數(shù)據(jù)類(lèi)型01-10-01MyTime="4:35:47PM" '定義時(shí)間MyShortTime=CDate(MyTime) '轉(zhuǎn)換為日期數(shù)據(jù)類(lèi)型16:35:477.5.3數(shù)學(xué)函數(shù)1．Abs函數(shù)語(yǔ)法格式：Abs(number)2．Rnd函數(shù)語(yǔ)法格式：Rnd[(number)]3．Round函數(shù)語(yǔ)法格式：Round(expression[,numdecimalplaces])4．Sgn函數(shù)語(yǔ)法格式：Sgn(number)7.5.4日期和時(shí)間函數(shù)1．Date函數(shù)和Time函數(shù)語(yǔ)法格式： Date Time2．Day函數(shù)、Month函數(shù)和Year函數(shù)語(yǔ)法格式： Day(date) Month(date) Year(date)3．WeekDay函數(shù)語(yǔ)法格式： Weekday(date,[firstdayofweek])4．Hour、Minute和Second函數(shù)語(yǔ)法格式： Hour(time) Minute(time) Second(time)7.5.5布爾函數(shù)1．IsArray函數(shù)語(yǔ)法格式：IsArray(varname)2．IsDate函數(shù)語(yǔ)法格式：IsDate(expression)3．Isempty函數(shù)語(yǔ)法格式：IsEmpty(expression)4．IsNull函數(shù)語(yǔ)法格式