web程序設(shè)計(jì)課件CH3vb

1、Web 程序設(shè)計(jì) 第 3 章,VBScript腳本語(yǔ)言,2,目標(biāo),VBScript的數(shù)據(jù)類型 變量和常量，運(yùn)算符 用戶交互函數(shù)和過程的使用 流程控制結(jié)構(gòu) 創(chuàng)建VBScript過程 使用VBScript內(nèi)置函數(shù) 重點(diǎn)： 流程控制，子過程和函數(shù)過程,3,3.1 腳本語(yǔ)言概念,腳本（script）語(yǔ)言的概念源于Unix系統(tǒng)，在Unix系統(tǒng)中，將主要以行命令組成的命令集稱為Shell腳本程序。 常用腳本語(yǔ)言有：JavaScript、VbScript、和用于編寫CGI腳本的Perl，Shell Script 等。 腳本語(yǔ)言分為客戶端腳本語(yǔ)言和服務(wù)器端腳本語(yǔ)言，前者在客戶端執(zhí)行，后者在服務(wù)器端執(zhí)行。 客戶

2、端默認(rèn)腳本語(yǔ)言為JavaScript，服務(wù)器端默認(rèn)的腳本語(yǔ)言為VbScript。 使用客戶端腳本可以：為用戶提供交互、動(dòng)態(tài)修改內(nèi)容、檢驗(yàn)數(shù)據(jù)、集成,4,VBScript語(yǔ)言,VBScript語(yǔ)言是一種與Visual Basic相類似的程序設(shè)計(jì)語(yǔ)言，與Visual Basic語(yǔ)法基本相同，但功能上限制比較多； VBScript與JavaScript一樣，是嵌入于HTML中的，可以設(shè)計(jì)出生動(dòng)活潑、互動(dòng)的Web pages和Web-based應(yīng)用程序 ； VBScript可以在客戶端和服務(wù)器端執(zhí)行； VBScript是面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，在VBScript的服務(wù)器端程序中，ASP對(duì)象很重要。,5

3、,3.2 在網(wǎng)頁(yè)中嵌入VBScript代碼的方法, 動(dòng)態(tài)網(wǎng)頁(yè)示例 script代碼塊，默認(rèn)由客戶瀏覽器執(zhí)行 - ,圖3-1 動(dòng)態(tài)網(wǎng)頁(yè)瀏覽結(jié)果,6,在網(wǎng)頁(yè)中嵌入VBScript代碼的方法,說明： （1）標(biāo)記的作用是嵌入VBScript代碼。該標(biāo)記的一般格式如下： VBScript代碼序列 標(biāo)記可以出現(xiàn)在HTML文檔的任何地方（body或head部分之中），但最好將所有的一般目的的腳本代碼放在head部分中，使所有腳本代碼集中放置。這樣可以確保在body部分調(diào)用代碼之前所有腳本代碼都被讀取并解釋。 一般將標(biāo)記中的代碼塊放在HTML的注釋符號(hào)“”之間。 （2）網(wǎng)頁(yè)代碼中的標(biāo)記“”的作用是嵌入ASP代

4、碼，可以根據(jù)需要在其中編寫VBScript腳本程序。注意：“”之間的代碼將由服務(wù)器解釋執(zhí)行。,7,3.3 VBScript語(yǔ)言的寫書規(guī)則,（1）程序代碼中不區(qū)分字母的大小寫； （2）一行可以寫多條語(yǔ)句，語(yǔ)句之間用“:”分隔； （3）一條語(yǔ)句也可以寫在若干行上，但需在每行末尾加上續(xù)行標(biāo)記空格和下劃線“ _”； （4）一行的長(zhǎng)度不得超過255個(gè)字符； （5）在代碼中可合理地使用注釋，注意以“”開頭，可以自占一行，也可以直接出現(xiàn)在語(yǔ)句的后面。,8,3.4 數(shù)據(jù)類型,可變型數(shù)據(jù)類型Variant 由各種子數(shù)據(jù)類型構(gòu)成 可存儲(chǔ)任何子類型的值 支持自動(dòng)轉(zhuǎn)換各種子類型,9,3.5 變量和常量,一、變量 定義

5、程序執(zhí)行時(shí)可以改變的量 語(yǔ)法 命名規(guī)則,Dim x Dim a, b, Left, Right,(1) 變量名只能由字母、數(shù)字和下劃線組成。 (2) 變量名的第一個(gè)字符必須是字母。 (3) 變量名中間不能有空格。 (4) 變量名中不能包含小數(shù)點(diǎn)。 (5) 變量名的字符數(shù)目不得超過255個(gè)字符。 (6) 不能用VB的關(guān)鍵字作變量名。 (7) 變量名不能與過程名和符號(hào)常量名相同。 (8) 變量名在同一個(gè)作用域內(nèi)必須是惟一的。,10,3.5 變量和常量,二、常量 定義程序執(zhí)行時(shí)保持不變的數(shù)據(jù) 分類 直接常量 符號(hào)常量（內(nèi)部常量、用戶聲明常量）,Const mystring=這是一個(gè)常量 Const

6、myage=100 Const CutoffDate =#3-16-2003 13:20:15#,11,例1 求圓的周長(zhǎng)。 常量 const Pi = 3.14 定義圓周率為常量 dim r,length r = 3 length = 2* Pi*r MsgBox “圓的半徑為：” & r & vbCrLf & “圓的周長(zhǎng)為：” & length ,12,3.5 變量和常量,三、數(shù)組 定義一組相同類型的變量的集合 分類 靜態(tài)數(shù)組 動(dòng)態(tài)數(shù)組,Dim 數(shù)組名(最大下標(biāo)) Dim array1(2) Dim array2(2,3),Dim 數(shù)組名( ) Dim myarray( ) Redim pr

7、eserve 數(shù)組名(新的最大下標(biāo)值) Dim datanum() Redim datanum(10),13,3.5 變量和常量,三、數(shù)組 示例, 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)

8、 Document.write(“”) Document.write(A(1) Document.write(“”) Document.write(A(30) ,用于向當(dāng)前網(wǎng)頁(yè)輸出內(nèi)容，其內(nèi)容可以是純文本，也可以是文本與HTML標(biāo)記的組合,14,例2 動(dòng)態(tài)數(shù)組示例。,15,3.6 運(yùn)算符,一、算術(shù)運(yùn)算符：+、-、*、/、（整除）、Mod（取余）、（乘方） 二、字符串運(yùn)算符 “&”與“+”的區(qū)別 三、比較運(yùn)算符: = 、 、 、 =,“計(jì)算機(jī)” & 1234 結(jié)果為”計(jì)算機(jī)1234” “22” & 1234 結(jié)果為”221234” 22 + 1234 結(jié)果為1256 “計(jì)算機(jī)” + 1234 出

9、錯(cuò),16,3.6 運(yùn)算符,四、邏輯運(yùn)算符,17,3.7 用戶交互函數(shù)和過程,一、InputBox函數(shù) 作用產(chǎn)生一個(gè)輸入框，等待用戶輸入文本或選擇一個(gè)按鈕，當(dāng)用戶單擊確定按鈕或按回車鍵，函數(shù)返回文本框中輸入的內(nèi)容。 語(yǔ)法,InputBox(“提示”,“標(biāo)題” ,“缺省值” ，“x坐標(biāo)位置” ，“y坐標(biāo)位置”) useraccount= InputBox(請(qǐng)輸入您的賬號(hào),賬號(hào)輸入框,”A31007”),18,3.7 用戶交互函數(shù)和過程,二、MsgBox函數(shù)和MsgBox過程 作用產(chǎn)生一個(gè)信息框，等待用戶選擇一個(gè)按鈕。MsgBox函數(shù)會(huì)返回一個(gè)值指示用戶選擇的按鈕，若不需返回值，則可用MsgBox過

10、程。 語(yǔ)法 “圖標(biāo)名稱”和“按鈕名稱”的含義,MsgBox函數(shù)： MsgBox(“顯示內(nèi)容”,圖標(biāo)名稱|按鈕名稱,“標(biāo)題”) MsgBox過程： MsgBox “顯示內(nèi)容”,圖標(biāo)名稱|按鈕名稱,“標(biāo)題”,19,3.7 用戶交互函數(shù)和過程,三、例4 利用InputBox函數(shù)提供一個(gè)輸入框輸入姓名，然后用MsgBox顯示輸入的姓名。 用戶交互函數(shù)的應(yīng)用 dim strname strname=InputBox(請(qǐng)輸入您的姓名,姓名輸入框“ Msgbox 您的姓名是 & strname,顯示姓名 ,20,四、例5 判斷輸入帳號(hào) 用戶交互函數(shù)的應(yīng)用 dim account,i Do account=I

11、nputBox(請(qǐng)輸入賬號(hào),輸入賬號(hào)對(duì)話框) i=Msgbox(你的賬號(hào)是：& account &vbCrLf &是否重輸？,vbYesNo+VbExclamation,顯示賬號(hào)) Loop until i=vbNo ,21,3.8 流程控制結(jié)構(gòu),一、選擇結(jié)構(gòu) If語(yǔ)句 單分支結(jié)構(gòu)的If語(yǔ)句 雙分支結(jié)構(gòu)的If語(yǔ)句 多分支結(jié)構(gòu)的If語(yǔ)句 Select Case語(yǔ)句,語(yǔ)法： If 表達(dá)式 Then 語(yǔ)句塊 End If 或： If 表達(dá)式 Then 語(yǔ)句,22,例6 改變網(wǎng)頁(yè)背景顏色 單分支結(jié)構(gòu)的If語(yǔ)句 If time=#0:0:0# and time End If 上午和下午網(wǎng)頁(yè)的背景顏色不同

12、 ,23,3.8 流程控制結(jié)構(gòu),一、選擇結(jié)構(gòu) If語(yǔ)句 單分支結(jié)構(gòu)的If語(yǔ)句 雙分支結(jié)構(gòu)的If語(yǔ)句 多分支結(jié)構(gòu)的If語(yǔ)句 Select Case語(yǔ)句,語(yǔ)法： If 表達(dá)式 Then 語(yǔ)句塊 Else 語(yǔ)句塊 End If,24,例7 判斷是否輸入姓名。 雙分支結(jié)構(gòu)的If語(yǔ)句 dim name, message name = InputBox(請(qǐng)輸入您的姓名：) If name= Then message = 您未輸入您的姓名！ Else message = 您的姓名是： & name & 。 End IF MsgBox message ,25,3.8 流程控制結(jié)構(gòu),一、選擇結(jié)構(gòu) If語(yǔ)句 單分

13、支結(jié)構(gòu)的If語(yǔ)句 雙分支結(jié)構(gòu)的If語(yǔ)句 多分支結(jié)構(gòu)的If語(yǔ)句 Select Case語(yǔ)句,語(yǔ)法： If 表達(dá)式1 Then 語(yǔ)句塊1 ElseIf 表達(dá)式2 Then 語(yǔ)句塊2 Else 語(yǔ)句塊n End If,26,例8 當(dāng)用戶瀏覽網(wǎng)頁(yè)時(shí)，能根據(jù)瀏覽時(shí)間的不同顯示不同的問候語(yǔ)：,27,3.8 流程控制結(jié)構(gòu),一、選擇結(jié)構(gòu) If語(yǔ)句 單分支結(jié)構(gòu)的If語(yǔ)句 雙分支結(jié)構(gòu)的If語(yǔ)句 多分支結(jié)構(gòu)的If語(yǔ)句 Select Case語(yǔ)句,語(yǔ)法： Select Case 表達(dá)式 Case 值1 語(yǔ)句塊1 Case 值2 語(yǔ)句塊2 Case Else 語(yǔ)句塊n End Select,28,例9 根據(jù)成績(jī)顯示不同

14、的字句。, Select Case語(yǔ)句 option explicit dim score, message score = InputBox(“請(qǐng)輸入成績(jī)：”) 等待用戶輸入成績(jī) Select Case True case Score ,29,3.8 流程控制結(jié)構(gòu),二、循環(huán)結(jié)構(gòu) 計(jì)數(shù)循環(huán)語(yǔ)句ForNext 適用用于循環(huán)次數(shù)確定的循環(huán)結(jié)構(gòu) 語(yǔ)法 功能執(zhí)行循環(huán)體中的程序代碼指定次數(shù)，在循環(huán)中使用循環(huán)變量，該變量值隨每一次循環(huán)增加步長(zhǎng)，步長(zhǎng)缺省為1。,For 循環(huán)變量=初始值 to終止值 Step 步長(zhǎng) 程序代碼 Next,30,例10 實(shí)現(xiàn)求1到100的和。 for i=1 to 100 sum

15、=sum+i next 例11 輸出九九乘法表。,31,3.8 流程控制結(jié)構(gòu),二、循環(huán)結(jié)構(gòu) 數(shù)組循環(huán)語(yǔ)句For EachNext 適用常用于數(shù)組或?qū)ο蠹?語(yǔ)法 功能用“變量名”代替數(shù)組中的每一個(gè)元素或?qū)ο蠹现械拿恳豁?xiàng)，對(duì)于數(shù)組中的每一個(gè)元素或?qū)ο蠹现械拿恳豁?xiàng)重復(fù)執(zhí)行循環(huán)體中的程序代碼。,For Each 變量名 In 數(shù)組名或?qū)ο蠹?程序代碼 Next,32,例13 用For EachNext循環(huán)輸出數(shù)組中各元素的值。 dim score,i,message score=Array(97, 83, 68, 90, 70,54) 創(chuàng)建一個(gè)有6個(gè)元素的成績(jī)數(shù)組 用循環(huán)輸出每個(gè)成績(jī) For

16、Each i In score 此時(shí)數(shù)組只需寫數(shù)組名，不必須加括號(hào) message=message & i & chr(13) & chr(10) next MsgBox message ,33,3.8 流程控制結(jié)構(gòu),二、循環(huán)結(jié)構(gòu) 條件式循環(huán)語(yǔ)句DoLoop 適用常用于循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu) 分類 當(dāng)型DoLoop 直到型 DoLoop,34,當(dāng)型DoLoop,DoLoop While 執(zhí)行循環(huán)代碼并對(duì)循環(huán)條件進(jìn)行求值, 重復(fù)執(zhí)行直到循環(huán)條件為 False Do WhileLoop 只有在循環(huán)條件為 True 時(shí)才執(zhí)行循環(huán)代碼，重復(fù)執(zhí)行直到循環(huán)條件為 False,如果想在條件表達(dá)式為 True

17、（而不是False）時(shí)才執(zhí)行循環(huán)語(yǔ)句，可使用 While 關(guān)鍵字。,35,當(dāng)型DoLoop,對(duì)比流程圖,循環(huán)條件,代碼,假,真,循環(huán)條件,代碼,真,假,DoLoop While,Do While Loop,注意都是在循環(huán)條件為假時(shí)退出,36,直到型DoLoop,DoLoop Until 執(zhí)行循環(huán)代碼并對(duì)循環(huán)條件進(jìn)行求值, 重復(fù)執(zhí)行直到循環(huán)條件為 True。注意代碼至少會(huì)執(zhí)行一次 Do UntilLoop 只有在循環(huán)條件為 False 時(shí)才執(zhí)行循環(huán)代碼，重復(fù)執(zhí)行直到循環(huán)條件為 True。循環(huán)結(jié)構(gòu)中的代碼可能一次都不執(zhí)行,37,直到型DoLoop,對(duì)比流程圖,DoLoop Until,Do Unt

18、il Loop,注意都是在循環(huán)條件為真時(shí)退出,38,例14 用Do Loop循環(huán)語(yǔ)句求1到100的平方和。 DoLoop循環(huán) n=1 s=0 Do while n ,39,3.8 流程控制結(jié)構(gòu),二、循環(huán)結(jié)構(gòu) WhileWend循環(huán) 適用常用于循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu) 語(yǔ)法 功能先判斷表達(dá)式的值，若值為True，則執(zhí)行循環(huán)體中的程序代碼，否則退出循環(huán)，執(zhí)行Wend后的語(yǔ)句。,While 表達(dá)式 程序代碼 Wend,40,例15 用WhileWend循環(huán)語(yǔ)句求1到100的平方和。 WhileWend循環(huán) n=1 s=0 While n ,41,3.9 VBScript過程,定義：過程是完成某種特定功

19、能的一組獨(dú)立的程序代碼 分類：子過程和函數(shù)過程 區(qū)別：函數(shù)過程可以在執(zhí)行結(jié)束的時(shí)候返回一個(gè)值給調(diào)用它的程序，而子過程不返回值。,42,3.9 VBScript過程,一、子過程 例16 子過程的定義。, 子過程 msgbox 現(xiàn)在執(zhí)行子過程外的語(yǔ)句 Sub a msgbox 現(xiàn)在執(zhí)行子過程內(nèi)的語(yǔ)句 End Sub ,43,3.9 VBScript過程,一、子過程 調(diào)用子過程 語(yǔ)法,方式一： Call 子過程名（參數(shù)1，參數(shù)2，） 方式二： 子過程名參數(shù)1，參數(shù)2， ,44,3.9 VBScript過程,一、子過程 調(diào)用子過程 例17 無(wú)參數(shù)子過程的定義及調(diào)用。, 無(wú)參數(shù)子過程的定義及調(diào)用 a m

20、sgbox 現(xiàn)在執(zhí)行子過程外的語(yǔ)句 Sub a msgbox 現(xiàn)在執(zhí)行子過程內(nèi)的語(yǔ)句 End Sub ,45,3.9 VBScript過程,一、子過程 調(diào)用子過程 例18 有參數(shù) 子過程的 定義及調(diào)用。, 有參數(shù)子過程的定義及調(diào)用 dim a,b,c a=15 b=20 c=4 maxnum a,b,c 調(diào)用子過程 Sub maxnum(x,y,z) 定義子過程 dim max if xy then max=x else max=y end if if zmax then max=z msgbox “最大的數(shù)為：” & max End Sub ,46,3.9 VBScript過程,一、子過程

21、終止執(zhí)行子過程（Exit Sub） 例19 子過程的中止。, 子過程的中止 b Sub b document.write “子過程被中止前” exit sub document.write 子過程被中止后 該語(yǔ)句不會(huì)執(zhí)行到 End Sub ,47,3.9 VBScript過程,二、函數(shù)過程 定義函數(shù)過程 語(yǔ)法 調(diào)用函數(shù)過程直接引用函數(shù)過程名,Function 函數(shù)過程名（參數(shù)1，參數(shù)2，） 程序代碼 函數(shù)過程名=返回值 End Function,48,3.9 VBScript過程,二、函數(shù)過程 例20 函數(shù)過程 的定義及調(diào)用。, dim a,b,c a=15 b=20 c=4 msgbox(“

22、最大數(shù)是：” & maxnum(a,b,c) Function maxnum(x,y,z) dim max if xy then max=x else max=y end if if zmax then max=z maxnum=max End Function ,49,3.9 VBScript過程,三、變量的作用域 定義指變量的有效范圍 ，變量的作用域由它聲明或出現(xiàn)的位置決定 分類 局部變量 全局變量 例21 變量作用域示例：,局部變量是在過程內(nèi)部聲明或出現(xiàn)的變量，其作用域僅局限于定義它的過程，只在該過程內(nèi)有效，離開相應(yīng)過程，變量會(huì)失效而變?yōu)榭铡?全局變量是在過程外部聲明或出現(xiàn)的變量，其作用

23、域?yàn)楫?dāng)前整個(gè)ASP網(wǎng)頁(yè)，在當(dāng)前網(wǎng)頁(yè)的各個(gè)腳本程序塊內(nèi)有效。,50,3.10 VBScript的內(nèi)置函數(shù),一. 字符串函數(shù) 二. 數(shù)學(xué)函數(shù) 三. 轉(zhuǎn)換函數(shù) 四.日期和時(shí)間函數(shù) 五.檢驗(yàn)函數(shù) 六.數(shù)組相關(guān)的函數(shù),51,3.10 內(nèi)置函數(shù)一. 字符串函數(shù),52,3.10 字符串函數(shù)舉例, x=一二三四五六七八九十/一個(gè)漢字長(zhǎng)度為1 document.write len(x) & for i=16 to 87/顯示各區(qū)漢字 x= for j=1 to 94 x=x & & chr(160+i)*256 +160+j) /在Unicode碼中(雙字節(jié)),一個(gè)漢字只占一個(gè)字符位 if j mod 20 =

24、0 then x=x & next document.write x & next ,53,3.10 內(nèi)置函數(shù)二. 數(shù)學(xué)函數(shù),54,產(chǎn)生隨機(jī)數(shù),例22 產(chǎn)生五個(gè)1100之間的隨機(jī)整數(shù)。 Rnd函數(shù) 產(chǎn)生5個(gè)1-100的隨機(jī)整數(shù) for i=1 to 5 randomize document.write Int(Rnd*100+1) & next ,55,3.10 內(nèi)置函數(shù)三. 轉(zhuǎn)換函數(shù),56,3.10 內(nèi)置函數(shù)四.日期和時(shí)間函數(shù),57,利用日期時(shí)間函數(shù)求日期或時(shí)間,例23 日期時(shí)間函數(shù)示例。 時(shí)期時(shí)間函數(shù) document.write 現(xiàn)在是： & now() & document.write

25、 今天的日期是： & date() & document.write 現(xiàn)在的時(shí)間是： & time() & document.write 今天是： & year(date)& 年 & month(date) & 月 & day(date) & 日 & document.write 現(xiàn)在是 & hour(now) & 時(shí) & minute(now) & 分 & second(now) & 秒 & document.write 今天的星期代號(hào)是： & weekday(date) & document.write 今天是： & weekdayname(weekday(date) & document

26、.write 到五一節(jié)還有 & datediff(d,date,#2006-5-1#) & 天 & ,58,3.10 內(nèi)置函數(shù)五.檢驗(yàn)函數(shù),59,例24 用IsNumeric函數(shù)判斷一個(gè)變量中的數(shù)據(jù)是否由數(shù)字組成。 IsNumeric函數(shù) 檢驗(yàn)變量中的值是否數(shù)字 dim myvar myvar=53 mycheck=IsNumeric(myvar) MsgBox mycheck 顯示True myvar=459.95 mycheck=IsNumeric(myvar) MsgBox mycheck 顯示True myvar=45Help mycheck=IsNumeric(myvar) MsgB

27、ox mycheck 顯示False ,60,3.10 內(nèi)置函數(shù)六.數(shù)組相關(guān)的函數(shù),61,例25 數(shù)組相關(guān)函數(shù)示例。 數(shù)組相關(guān)函數(shù) 創(chuàng)建一個(gè)數(shù)組并輸出數(shù)組中的元素 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) & Next ,62,JavaScript 有六種數(shù)據(jù)類型。 主要的類型有 number、string、object 以及 Boole

28、an 類型,其他兩種類型為 null 和 undefined。 變量命名：JavaScript 是一種區(qū)分大小寫的語(yǔ)言，因此將一個(gè)變量命名為 computer 和將其命名為 Computer是不一樣的。 變量命名規(guī)則： 1.第一個(gè)字符必須是一個(gè)字母（大小寫均可）、或一個(gè)下劃線(_)或一個(gè)美元符 ($)。 2.后續(xù)的字符可以是字母、數(shù)字、下劃線或美元符。 3.變量名稱不能是保留字。,補(bǔ)充：了解JavaScript,63,JavaScript所提供的語(yǔ)句分為以下幾大類： 1、變量聲明，賦值語(yǔ)句：var。 語(yǔ)法如下： var 變量名稱 =初始值 例：var computer = 32 /定義computer是一個(gè)變量，且有初值為32。 2、函數(shù)定義語(yǔ)句：function，return。 語(yǔ)法如下： functio