《ASP網(wǎng)絡(luò)程序設(shè)計》實(shí)驗(yàn)指導(dǎo)書

1、網(wǎng)站建設(shè)與維護(hù)&網(wǎng)絡(luò)程序設(shè)計實(shí)驗(yàn)指導(dǎo)書韓俊波 張勇實(shí)驗(yàn)一 ASP編程環(huán)境設(shè)置一、實(shí)驗(yàn)?zāi)康募耙? 了解并掌握 Windows 2000/NT服務(wù)器上IIS（Internet服務(wù)管理器）的安裝與配置；2 了解并掌握虛擬目錄的設(shè)置方法；3 了解并掌握ASP文件上傳、下載和運(yùn)行方法。4 掌握Dreamweaver MX站點(diǎn)環(huán)境的設(shè)置。二、實(shí)驗(yàn)內(nèi)容5 按教材所介紹的方法，在自己的個人計算機(jī)上不同的Windows系統(tǒng)安裝IIS或PWS。 6 編寫一個簡單的ASP網(wǎng)頁程序，實(shí)現(xiàn)在瀏覽器IE中輸出“這是我的第一個ASP程序！”。三、實(shí)驗(yàn)步驟（一）IIS的安裝與配置ASP必須運(yùn)行在服務(wù)器上，因此實(shí)驗(yàn)的第一項(xiàng)工

2、作是構(gòu)建服務(wù)器運(yùn)行環(huán)境。本實(shí)驗(yàn)指導(dǎo)以Windows 2000操作系統(tǒng)下的IIS 5.0進(jìn)行操作說明。1安裝IIS開始控制面板添加刪除程序添加/刪除Windows組件Windows組件向?qū)?，則出現(xiàn)如下對話框：若沒選取IIS信息服務(wù)（IIS），則選擇，并點(diǎn)按“下一步”按鈕，按屏幕提示安裝。2檢驗(yàn)安裝在IE瀏覽器的地址欄輸入：http:/localhost 或，觀察其結(jié)果。37 配置IIS 5.0開始控制面板管理工具 Internet服務(wù)管理器，則出現(xiàn)如下對話框：對“默認(rèn)網(wǎng)站”單擊鼠標(biāo)右鍵，出現(xiàn)彈出菜單，選擇“屬性”，則屏幕顯示：可根據(jù)需要修改默認(rèn)網(wǎng)站的屬性，一般多為“

3、主目錄”和“文檔”。主目錄中主要包括網(wǎng)站在本地機(jī)器中的實(shí)際路徑以及相關(guān)權(quán)限；文檔則設(shè)置網(wǎng)站啟用的默認(rèn)文檔。（二）虛擬目錄的設(shè)置要從主目錄以外的其他目錄中進(jìn)行發(fā)布，就必須創(chuàng)建虛擬目錄。“虛擬目錄”不包含在主目錄中，但在顯示給客戶瀏覽器時就象位于主目錄中一樣。虛擬目錄有一個“別名”，供Web瀏覽器用于訪問此目錄。別名通常要比目錄的路徑名短，便于用戶輸入。使用別名更安全，因?yàn)橛脩舨恢牢募欠裾娴拇嬖谟诜?wù)器上，所以便無法使用這些信息來修改文件。本實(shí)驗(yàn)以對實(shí)際路徑（例如：d:asptemp）創(chuàng)建虛擬目錄來說明其操作過程。1在硬盤上創(chuàng)建一個實(shí)際目錄：d:asptemp2為d:asptemp創(chuàng)建虛擬目錄

4、在“Internet信息服務(wù)”窗口，在“默認(rèn)網(wǎng)站”單擊鼠標(biāo)右鍵，選擇“新建”“虛擬目錄”，按提示操作分別設(shè)置虛擬目錄別名（例如：asp）、實(shí)際的目錄路徑（例：d:asptemp）以及虛擬目錄的權(quán)限。3運(yùn)行虛擬目錄下文件假設(shè)實(shí)際目錄下有文件：1.asp，則訪問該文件： http:/localhost/asp/1.asp 在虛擬目錄ASP屬性中的“文檔”，添加一個啟用默認(rèn)文檔：1.asp；則訪問該文件：http:/localhost/asp（三）在Dreamweaver 2004 MX下設(shè)置管理站點(diǎn)本課程實(shí)驗(yàn)的開發(fā)工具為Dreamweaver 2004 MX，為了能方便的在此軟件中創(chuàng)建、調(diào)試和運(yùn)行

5、程序，需要在DW中給網(wǎng)頁程序設(shè)置管理站點(diǎn)。假設(shè)要實(shí)驗(yàn)的應(yīng)用程序存儲在實(shí)際路徑d:asptemp中，它的虛擬目錄名為asp，在DW中的管理站點(diǎn)名設(shè)為“ASP實(shí)驗(yàn)站點(diǎn)”，則具體操作如下：1啟動Dreamweaver 2004 MX程序2選擇：站點(diǎn)站點(diǎn)管理，則出現(xiàn)對話框： 3單擊“新建”按鈕，選擇“站點(diǎn)”，則屏幕顯示：輸入站點(diǎn)名：ASP實(shí)驗(yàn)站點(diǎn)；單擊下一步，顯示如下對話框：選擇單選按鈕：是，我想使用服務(wù)器技術(shù)，然后根據(jù)下拉菜單選擇：ASP VBScript。單擊下一步，顯示如下對話框： 選擇文件存儲的實(shí)際位置，該實(shí)驗(yàn)指南為:d:asptemp。單擊下一步，繼續(xù)顯示如下： 輸入該管理站點(diǎn)瀏覽的根目錄，

6、該實(shí)驗(yàn)指南為：http:/localhost/asp/，然后單擊“測試URL(T)”按鈕，來測試設(shè)置是否成功。注：asp即為前面已經(jīng)設(shè)置的路徑為：d:asptemp 的虛擬目錄名。測試成功，再單擊“下一步“，出現(xiàn)： 選擇單選按鈕“否”，單擊“下一步”則出現(xiàn)站點(diǎn)定義總結(jié)，然后按“完成“按鈕，則結(jié)束對管理站點(diǎn)的設(shè)置。（四）編寫并運(yùn)行一個簡單的ASP網(wǎng)頁程序1啟動Dreamweaver 2004 MX，然后選擇已建立的“ASP實(shí)驗(yàn)站點(diǎn)”，在其下進(jìn)行創(chuàng)建、編輯和運(yùn)行文件。2文件新建，選擇“動態(tài)頁”和“ASP VBScript”，點(diǎn)按“創(chuàng)建”，在出現(xiàn)的屏幕上的與之間加入以下ASP代碼： 3將網(wǎng)頁保存到形

7、如d:asptemp目錄下，文件可命名為first.asp。 選擇“在瀏覽器中預(yù)覽”，注意觀察輸出結(jié)果。 四、實(shí)驗(yàn)思考題1某同學(xué)開發(fā)了一個顯示來訪時間的 ASP 文件，存放在 C:inetpubwwwroot 下，然后在資源管理器中雙擊該文件，卻不能正常顯示，請問是什么原因？2想一想，把一個 HTML 網(wǎng)頁文件直接更改擴(kuò)展名為.asp 行不行？3請根據(jù)自己的實(shí)際情況搭建 ASP 的運(yùn)行環(huán)境。4請在 C:Inetpubwwwroot 下 建立子文件 夾 asptemp，并為其設(shè)置虛擬目錄為asptemp，并設(shè)置默認(rèn)文檔為 index.asp 和 index.htm。5請參考 IIS 的專門書籍好

8、好研究一下，并思考是否一定要在 C:Inetpub wwwroot 下開發(fā) ASP 文件？可不可以放在別的文件夾下？實(shí)驗(yàn)二 VBScript程序設(shè)計一、實(shí)驗(yàn)?zāi)康募耙?了解并掌握VBScript腳本程序設(shè)計語言的基本語法知識及簡單程序設(shè)計方法；2熟練掌握ASP環(huán)境中的輸出方法；3熟練掌握VBScript的If語句和Select Case語句的編程技術(shù)；4熟練掌握VBScript的ForNext、DoLoop和For eachIn等循環(huán)語句的編程技術(shù)；二、實(shí)驗(yàn)內(nèi)容 利用VBScript在網(wǎng)頁中輸出當(dāng)前的時間和日期。 上機(jī)驗(yàn)證教材上的VBScript各個函數(shù)的功能，熟悉其用法。 上機(jī)驗(yàn)證教材上的例

9、3-1至例3-8。 試用VBScript編程，實(shí)現(xiàn)計算并輸出1到10的階乘之和。 試用VBScript編程，實(shí)現(xiàn)計算并輸出100到500的之間的水仙花數(shù)（水仙花數(shù)是指該數(shù)的值等于各位數(shù)字的立方和）。 試用VBScript編程，利用數(shù)組實(shí)現(xiàn)矩陣乘法。 三、實(shí)驗(yàn)指導(dǎo)（一）VBScript函數(shù)函數(shù)是一種特定的運(yùn)算，在程序中要使用一個函數(shù)時，只要給出函數(shù)名并給出一個或多個參數(shù)，就能得到它的函數(shù)值。VBScript內(nèi)部函數(shù)可分為：轉(zhuǎn)換函數(shù)、字符串函數(shù)、日期和時間函數(shù)、數(shù)學(xué)函數(shù)和檢驗(yàn)函數(shù)。1轉(zhuǎn)換函數(shù)VBScript對Variant變量一般會根據(jù)需要自動轉(zhuǎn)換成合適的數(shù)據(jù)類型；但有時，自動轉(zhuǎn)換有可能造成數(shù)據(jù)類

10、型不匹配錯誤。此時，就應(yīng)使用VBScript的轉(zhuǎn)換函數(shù)來強(qiáng)制轉(zhuǎn)換數(shù)據(jù)的子類型。常用的轉(zhuǎn)換函數(shù)見下表： 函數(shù)功能 CStr(Variant)將變量Variant轉(zhuǎn)化為字符串類型 CDate(Variant)將變量Variant轉(zhuǎn)化為日期類型 CInt(Variant)將變量Variant轉(zhuǎn)化為整數(shù)類型 CLng(Variant)將變量Variant轉(zhuǎn)化為長整數(shù)類型 CSng(Variant)將變量Variant轉(zhuǎn)化為Single類型 CDbl(Variant)將變量Variant轉(zhuǎn)化為Double類型 CBool(Variant)將變量Variant轉(zhuǎn)化為布爾類型 2字符串函數(shù)常用字符串函數(shù)及功

11、能如下表： 函數(shù)功能 取字符串長度Len(string) 大、小寫字母轉(zhuǎn)換Lcase(String)， Ucase(String) 截取子字符串Mid(string,start,length) Left(string,length) Right(string,length) 刪除空格Trim(string)， Ltrim(string)， Rtrim(string) 重復(fù)String(num1,str1) 空格Space(num1) 取代字符串Replace(str1,str2,str3) 字符串拆分為1維數(shù)組Split(str1,delimiter) 返回字符串位置InStr(str1,st

12、r2) 3時間和日期函數(shù) 函數(shù)功能 Now()取得系統(tǒng)當(dāng)前日期和時間 Date()取得系統(tǒng)當(dāng)前日期 Time()取得系統(tǒng)當(dāng)前時間 Month(Date)取得給定日期的月份 Day(Date)取得給定日期是幾號 WeekDay(Date)取得給定日期是星期幾 （星期天，1到6分別為17） Year(Date)取得給定日期的年份 DateDiff(“Var”,Var1,Var2)計算日期或時間Var1與Var2的間隔 “Var”:為時間間隔因子 DateAdd(“Var”,num,date) num:間隔倍數(shù)；date:原始日期或時間對時間/日期num作加法 FormatDateTime(Date

13、,2)顯示短日期格式 FormatDateTime(Date,1)顯示長日期格式 FormatDateTime(Date,4)顯示短時間格式 FormatDateTime(Date,3)顯示長時間格式 4數(shù)學(xué)函數(shù) 函數(shù)功能 Abs(number)返回一個數(shù)的絕對值 Sqr(number)返回一個數(shù)的平方根 Int(number)取number的最大整數(shù)部分 FormatNumber(num1,num2)將num1轉(zhuǎn)化為指定小數(shù)位num2的數(shù) Rnd()返回0到1的隨機(jī)數(shù) Ubound(數(shù)組名，維數(shù))返回最大下標(biāo)數(shù) Lbound(數(shù)組名，維數(shù))返回最小下標(biāo)數(shù)5檢驗(yàn)函數(shù) 函數(shù)功能 VarType(

14、Variant)返回變量Variant的數(shù)據(jù)子類型 IsEmpty(Variant)檢查變量Variant是否為Empty IsNull(Variant)檢查變量Variant是否為Null IsObject(Variant)檢查變量Variant是否為對象類型 IsNumeric(Variant)檢查變量Variant是否為數(shù)值類型 IsArray(Variant)檢查變量Variant是否為數(shù)組類型 IsDate(Variant)檢查變量Variant是否為日期類型（二）VBScript腳本語言語句1條件語句 If Then End IfIf 條件語句 Then執(zhí)行語句End If If

15、Then Else End If（單條件）If 條件語句 Then執(zhí)行語句1Else執(zhí)行語句2End If If Then Else End If（多條件）If 條件語句1 Then執(zhí)行語句1ElseIf 條件語句2 Then執(zhí)行語句2.Else執(zhí)行語句n+1End If Select Case 語句Select Case 變量或表達(dá)式Case 結(jié)果1執(zhí)行語句1Case 結(jié)果2執(zhí)行語句2Case 結(jié)果 n執(zhí)行語句nCase Else執(zhí)行語句n+1End Select2循環(huán)語句 For Next循環(huán)For counter=start To end Step number執(zhí)行語句Next Do L

16、oop循環(huán)Do While 條件1執(zhí)行語句Loop或Do執(zhí)行語句Loop While 條件1 For EachIn循環(huán)For Each In Next說明：對中的每一個 依次執(zhí)行一次。其集合元素為離散型的。（三）VBScript過程在VBScript中，過程有兩種：Sub子程序和Function函數(shù)。(1) Sub子程序 Sub子程序的語法：Sub 子程序名（參數(shù)1，參數(shù)2，） 語句End Sub 調(diào)用子程序1) Call 子程序名（參數(shù)1，參數(shù)2，） 2) 子程序名 參數(shù)1，參數(shù)2，(2) Function函數(shù) Function函數(shù)的語法：Function 函數(shù)名（參數(shù)1，參數(shù)2，） 語句E

17、nd Function 調(diào)用函數(shù)變量= Function 函數(shù)名（參數(shù)1，參數(shù)2，）函數(shù)可以向變量一樣引用和參與運(yùn)算 （四）“顯示當(dāng)月日歷”實(shí)例分析該程序的運(yùn)行結(jié)果為顯示當(dāng)月的日歷，其輸出形式為： 3要解決的主要問題 首先要計算當(dāng)月有多少天？ 其次要計算1號是星期幾？ 依次計算每一天到底位于第幾行第幾列？（不算標(biāo)題行）？ 計算該表格總共有多少行？ 畫一個若干行7列的表格，將每一天輸出到相應(yīng)的單元格。8 計算當(dāng)月有多少天？ 每個月的天數(shù)在2831的范圍。 利用Isdate()函數(shù)判斷29、30、31是否是該月的合法日期。 使用自定義函數(shù)numday()來完成該功能。9 計算1號是星期幾？ 利用W

18、eekday()函數(shù)來判斷，它返回值1到7，分別對應(yīng)星期日、星期一、.、星期六，因此1號是星期幾正好對應(yīng)第幾列。 使用自定義函數(shù)firstday()來完成。10 計算每一天位于第幾行第幾列？ 一個月前面空出來的天數(shù)為：firstday()-1 如果（當(dāng)天日+ firstday()-1）能被7整除，則行數(shù)為： ( 當(dāng)天日+ firstday()-1 ) 7 ；否則行數(shù)為： ( 當(dāng)天日+ firstday()-1 ) 7 +1 。兩個合為一個式子：行= ( 當(dāng)天日+ firstday()-2 ) 7 +1 列= ( 當(dāng)天日+ firstday()-1 ) 7 Mod 7 但余數(shù)為0，應(yīng)該在第7列。

19、 使用2維數(shù)組來保存行、列信息。利用自定義函數(shù)arraydate()來完成。11 計算日歷總共有多少行？ 根據(jù)月份不同，日歷的行數(shù)可能是4、5和6行。 該月最后一天的行數(shù)，即為日歷的總行數(shù)。 總行數(shù)= ( numDay()+ firstday()-2 ) 7 +1 使用自定義函數(shù)numRow()來完成。4繪制表格，將每一天輸出到該表格中 利用嵌套循環(huán)輸出數(shù)組中的每個值。 如果數(shù)組值為0，就輸出一個空格；如果不為0，可分為3種情況：當(dāng)天，藍(lán)色加粗顯示；周末，紅色顯示；其他則黑色。5程序代碼 簡單的日歷 年月 日一二三四五六 % 首先調(diào)用函數(shù)arrarDate，返回6*7的二維數(shù)組,該數(shù)組和單元格

20、一一對應(yīng) Dim theDate 定義一個變量，用以接受返回的數(shù)組 theDate=arrayDate() 調(diào)用函數(shù)，返回數(shù)組，執(zhí)行后，theDate自動變成數(shù)組 下面正式輸出日歷 Dim I,J For I=1 To numrow() 從第1行到最后1行循環(huán) Response.Write 開始一個新行 For J=1 To 7 If theDate(I,J)0 Then If theDate(I,J)=Day(Date() Then Response.Write & theDate(I,J) & 將當(dāng)天標(biāo)為藍(lán)色加粗 ElseIf J=1 OR J=7 Then Response.Write

21、& theDate(I,J) & 將周六和周日標(biāo)為紅色 Else Response.Write & theDate(I,J) & 其它日期普通顯示即可 End If Else Response.Write   該單元格為空 End if Next Response.Write 結(jié)束這一行 Next % 四、實(shí)驗(yàn)思考題1在你的個人主頁上添加時間顯示信息，顯示當(dāng)天的日期、時間及星期幾。2請編寫程序段，將字符串“祖國”和“萬歲”兩邊的空格去掉，并連成一個字符串“祖國萬歲”。3請編寫程序段，判斷當(dāng)天日期，如果是 25 日，則顯示“請注意，明天可能有病毒發(fā)作”。4S=12+32+52+992，

22、請利用兩種循環(huán)語句編寫程序，計算 S 的值。（提示：注意步長）。5請編寫函數(shù)計算 a 到 b 的立方和，并舉例調(diào)用，調(diào)用時 a、b 分別為 3 和 6。 6有 100 個和尚吃 100 個饅頭，大和尚 1 人吃 4 個，小和尚 4 人吃 1 個，問有多少個大和尚和多少個小和尚？（提示：使用循環(huán)嵌套和判斷語句）實(shí)驗(yàn)三 Request和Response程序設(shè)計一、實(shí)驗(yàn)?zāi)康募耙?熟練掌握利用Request對象從客戶端獲得信息的技術(shù)；2熟練掌握Form和QueryString方法，編制用戶注冊信息的填寫與顯示程序；3熟練掌握利用Response對象向客戶端輸出信息的技術(shù)；4熟練掌握Write、Red

23、irect和Cookies方法，編制相關(guān)的驗(yàn)證演示程序。二、實(shí)驗(yàn)內(nèi)容1上機(jī)驗(yàn)證教材上的例4-1至例4-7。 2試編寫一個簡單的注冊程序，客戶注冊后顯示客戶的注冊信息。 3試編寫一個HTML頁面，在頁面中輸出4個多項(xiàng)選擇題，題目內(nèi)容自擬，每個題目均有A、B、C和D四個選項(xiàng)，當(dāng)用戶單擊“交卷”按鈕時，提交答案給grade.asp頁面，grade.asp頁面獲得表單所提交的數(shù)據(jù)后，將數(shù)據(jù)直接輸出給客戶端，以顯示用戶對各題所作出的選擇。 4試編寫一個ASP程序，實(shí)現(xiàn)在瀏覽器中顯示接受請求的服務(wù)器的IP地址、服務(wù)器的端口號、當(dāng)前網(wǎng)頁的實(shí)際物理路徑、當(dāng)前網(wǎng)頁的虛擬路徑和發(fā)出請求的客戶端IP地址。 三、實(shí)驗(yàn)

24、指導(dǎo)ASP幾個重要的內(nèi)部對象： Request對象：從客戶端獲取數(shù)據(jù) Response對象：向客戶端輸出數(shù)據(jù) Session對象：記載特定客戶的信息 Application對象：記載同一個應(yīng)用程序中的所有用戶之間的共享信息 Server對象：創(chuàng)建COM對象和Scripting組件等 （一）Request對象Request對象：用于接受所有從瀏覽器發(fā)往服務(wù)器的請求內(nèi)的所有信息。Request對象的語法：Request.數(shù)據(jù)集合|屬性|方法(變量或字符串)1Request對象的集合（獲取方法） 對象功能 QueryString從查詢字符串中讀取用戶提交的數(shù)據(jù) Form取得表單信息 Cookies取

25、得客戶端瀏覽器的Cookie信息 ServerVariables取得服務(wù)器環(huán)境變量信息 ClientCertificate取得客戶端瀏覽器的身份驗(yàn)證信息 2Request對象的屬性 屬性功能 TotalBytes只讀屬性，取得客戶端響應(yīng)數(shù)據(jù)的字節(jié)大小 3Request對象的方法 屬性功能 BinaryRead以二進(jìn)制碼方式讀取客戶端POST數(shù)據(jù) （二）Response對象功能：將輸出發(fā)送到客戶端。Response對象的語法：Response.集合|屬性|方法1Response對象的方法 方法功能 Write輸出信息到客戶端瀏覽器 Redirect引導(dǎo)客戶端瀏覽器至新的 Web 頁面 Binar

26、yWrite輸出二進(jìn)制信息到客戶端瀏覽器 Clear清除在緩沖區(qū)的所有HTML頁面 End終止處理ASP程序，并返回當(dāng)時的狀況 Flush立即送出緩沖區(qū)的HTML數(shù)據(jù) 2Response對象的屬性 屬性功能 Buffer設(shè)置是否把Web頁面輸出至緩沖區(qū)， 取值為false或true；默認(rèn)為 false ContentType設(shè)置服務(wù)器響應(yīng)給客戶端的HTTP文件形式； 如果未指定，默認(rèn)為TEXT/HTML 3Response對象的集合 屬性功能 Cookies 設(shè)置客戶端的Cookie值 設(shè)置Cookies語法：Response.Cookies(“cookiesname”)=“cookiesva

27、lue”功能：將cookiesvalue寫入至客戶端硬盤。 設(shè)定Cookies的有效期語法：Response.Cookies(“cookiesname”).expires=“settingtime”功能：將Cookies設(shè)為永久的方式，其有效期為settingtime。(1) 取出Cookies語法：Request.Cookies(“cookiesname”)功能：取得客戶端硬盤內(nèi)所存的Cookies值。（三）實(shí)例分析：網(wǎng)站注冊和進(jìn)入1程序功能若是首次訪問本網(wǎng)站，則先注冊，并把用戶名記入cookies；若是老顧客，則直接進(jìn)入網(wǎng)站。12 主程序：4_index.asp 注冊程序： 4_login

28、.asp 主頁顯示程序：4_home.asp 驗(yàn)證程序：4_verify.asp 新用戶 老用戶 提交 失敗 成功程序結(jié)構(gòu) 2程序流程 主程序：4_index.asp 判用戶名是否 寫入cookies? 開始 注冊程序： response.redirect 4_login.asp 主頁顯示程序： N Y 判傳遞的參數(shù) 類別? 開始 老客戶，顯示 “歡迎再次光臨！” 新客戶，顯示 “歡迎首次光臨！” 1 0 主頁顯示程序：4_home.asp(有參數(shù)jr) 注冊程序：4_login.asp 開始 FORM表單輸入： 用戶名 密碼 密碼確認(rèn) E-mail QQ號 調(diào)4_verify.asp驗(yàn)證輸入

29、 提交 開始 判傳遞的參數(shù) 類別? 主頁顯示程序： 用戶名寫入cookies， 有效期設(shè)為3年 顯示錯誤！重新注冊： 合法 有錯 驗(yàn)證程序：4_verify.asp 2程序代碼 主程序：4_index.asp% response.Cookies(“c_name”).expires=”2005-01-01” if request.Cookies(“c_name”)” then response.write “進(jìn)入主頁” else response.redirect “4_login.asp” 注冊 end if % 主頁顯示程序：4_home.asp無標(biāo)題文檔 注冊程序：4_login.asp

30、用戶注冊 用戶注冊 用戶名：* 密碼：* (密碼長度不能少于6位數(shù)) 密碼確認(rèn)：* E_mail:* QQ號：    驗(yàn)證程序：4_verify.asp % Dim error_message If Trim(Request(“user_name”)=” Then error_message=error_message & “請?zhí)顚懩挠脩裘?End If If Trim(Request(“user_pass1”)=” Or Len(Trim(Request(“user_pass1”)6 Then error_message=error_message & “您的密碼不能

31、為空且不能少于6位數(shù)！” End If If Trim(Request(“user_pass1”)Trim(Request(“user_pass2”) Then error_message=error_message & “您兩次輸入的密碼不相同，請重新輸入！ End If If Instr(Request(“user_email”),”)=0 Then error_message=error_message & “請輸入有效合法的E-mail地址 ！” End If If Request(“user_qq”)” and IsNumeric(Request(“user_qq”)=False T

32、hen error_message=error_message & “QQ號碼應(yīng)該是數(shù)字,請重新輸入!” End If If error_message” Then Response.Write error_message & “請返回重新輸入 Else response.Cookies(“c_name”)=Trim(Request(“user_name”) 用戶名記入cookies response.Cookies(“c_name”).expires=date()+3*365 有效期限為3年 response.write “您通過了驗(yàn)證” 下面可以繼續(xù)進(jìn)行各種操作 End If %四、實(shí)驗(yàn)思

33、考題1Response 的 Write 方法的兩種寫法有何區(qū)別。2Redirect 方法和超鏈接的區(qū)別是什么？3當(dāng)使用 Redirect 方法時，為什么有時要在文件開頭加這句話？4請開發(fā)一個簡單的在線考試程序，可以包括若干道單選題、多選題，單擊交卷按鈕后就可以根據(jù)標(biāo)準(zhǔn)答案在線評分。實(shí)驗(yàn)四 Session和Application程序設(shè)計一、實(shí)驗(yàn)?zāi)康募耙?熟練掌握利用Session對象記載特定客戶信息的技術(shù)，編制相關(guān)的驗(yàn)證演示程序；2熟練掌握利用Application對象記載所有客戶信息的技術(shù)，編制相關(guān)的驗(yàn)證演示程序，并設(shè)計一個簡單“聊天室”程序。二、實(shí)驗(yàn)內(nèi)容1上機(jī)驗(yàn)證教材上的例5-1至例5-7

34、。 2試編寫一個ASP程序，實(shí)現(xiàn)并顯示當(dāng)前網(wǎng)頁的在線人數(shù)和計數(shù)器。 3試編寫一個ASP程序，實(shí)現(xiàn)一個簡單的聊天室，能夠顯示發(fā)言人的姓名、發(fā)言內(nèi)容和發(fā)言時間等。三、實(shí)驗(yàn)指導(dǎo)（一）Session對象Session指的就訪問者從到達(dá)某個特定主頁到離開為止的那段時間，每一訪問者都會單獨(dú)獲得一個Session。Session對象存儲特定的用戶會話所需的信息。13 Session對象的屬性：(1) SessionID：存儲用戶的Session ID1Timeout：Session的有效期時長14 Session對象的方法：2Abandon：清除Session對象3Session對象的事件（與Global.

35、asa結(jié)合使用）： Session_OnStart：一個Session對象開始前，調(diào)用該程序； Session_OnEnd：一個Session對象結(jié)束后，調(diào)用該程序；4Session對象存取信息 Session對象存取變量或字符串保存語法：Session(“Session名字”)=變量或字符串信息 從Session中調(diào)用該信息的語法：a=session(“Session名字”) Session對象存取數(shù)組保存數(shù)組的語法：Session(“Session數(shù)組名”)=數(shù)組變量 獲取數(shù)組的語法：V_array=Session(“Session數(shù)組”)（二）Application對象簡介Application對象記載不同客戶端共享的數(shù)據(jù)。所有