實驗三ASP內(nèi)置對象的使用

1、南昌航空大學(xué)實驗報告課程名稱：WEB編程 實驗名稱：ASP內(nèi)置對象的使用 班 級：090451學(xué)生姓名： 楊望 學(xué)號:09045131 指導(dǎo)教師評定：簽名:、實驗要求:1掌握Response對象的使用;2、掌握Request對象的使用;3、掌握App licatio n對象的使用;4、掌握Session對象的使用;5、掌握Server對象的使用。、實驗內(nèi)容1環(huán)境設(shè)置：設(shè)置IIS的主目錄，并在Dreamweave沖新建ASP站點。2、使用ASP對象和腳本語言編程，實現(xiàn)一個簡易的會員制購物網(wǎng)站:包括以下頁面:Reg.html :用戶注冊頁面;Save.asp保存用戶資料;Log in .html

2、:用戶登錄頁面;Check.asp登錄驗證;Shop.html：顯示購物頁面;Show.asp：顯示購物車中的內(nèi)容。三、實驗步驟1、環(huán)境設(shè)置:(1)從控制面板管理工具里打開In ternet信息服務(wù)，在左側(cè)樹形目錄中找到默 認(rèn)網(wǎng)站，用鼠標(biāo)右鍵單擊，打開屬性窗口，在主目錄中將本地路徑設(shè)置為自己建的 文件夾；(2)在Dreamweaver中新建站點(站點名字任取，HTTP地址不填，使用服務(wù)器 技術(shù)ASP VBScript或JavaScrip，在本地進(jìn)行編輯和測試，文件存儲位置設(shè)置為IIS的主目錄，站點根目錄的 URL使用默認(rèn)值http:/localhosU測試URL成功, 不使用遠(yuǎn)程服務(wù)器)；(3

3、) 在Dreamweaver的代碼視圖下使用ASP對象和腳本語言編程;(4) 使用Dreamweaver的預(yù)覽功能運行ASP程序。2、會員網(wǎng)站:(1) Reg.html：注冊表單中至少要有用戶名、密碼，提交后轉(zhuǎn)到save.asp處理;"htt p://TR/html4/loose.dtd">會員注冊 用戶名:密碼:v/span>vspan style=tt認(rèn)提交"/> v/span>vspan style=全部重填"/>(2) Save.asp使用request對象接收注冊信息，把用戶名、密碼保存到ses

4、sion變量里,然后重定向到登錄頁面 Login.html ；v%LANGUAGE="VBSCRI PT" CODE PAGE="936"%><%dim n ame ,p assn ame = request.form(" name"p ass = request.Form(" pass"If n ame = Empty Or p ass = Empty The nRes pon se.Write('密碼和用戶名不為空，頁面將跳至注冊頁面，請重新填 寫!"Respon se.E nd(

5、Elsesessi on.Conten ts("a" = n amesessi on.Conten ts("b" = p assEnd lf%>祝賀您注冊成功，請經(jīng)!(3) Login.html:在登錄表單里輸入用戶名、密碼，提交后轉(zhuǎn)到Check.as p登錄頁面和注冊頁面要互有超級鏈接;用戶名:密碼:SubmitReset望望網(wǎng)用戶登錄(4) Check.asp將登錄狀態(tài)標(biāo)記預(yù)設(shè)為false并保存在session中;接收登錄時輸入的用戶名、密碼，與注冊時保存在sessio n中的用戶名、密碼比較：如果都相等則登錄成功，將登錄狀態(tài)標(biāo)記改為true，

6、然后重定向到購物頁面 Shop .as p否則登錄失敗，重定向到登錄頁面 Login.html重新登錄，未注冊的可以由 登錄頁面上的超級鏈接轉(zhuǎn)到注冊頁面去注冊；<% dim n ame1, passl n ame1 = request.Form(” name" p ass1 = request.Form(" pass" sessio n("dl" = "no" if sessi on.Conten ts("a"=n ame1 and sessi on.Conten ts("b"=

7、p ass1 the n sessio n("dl" = "yes" respon se.Redirect("sh op .html" else respon se.Redirect("error.html" end if %>(5) Shop.html:用表格和表單顯示若干種商品，用戶可以多選，提交后轉(zhuǎn)到Show.asp；v%LANGUAGE="VBSCR IP T" CODE PAGE="936"%><%if session ("usernam

8、e"="" thenend if %>張杰海報張杰寫真集連衣裙張 杰海 報"/>張杰 寫真集"/>連衣裙">衛(wèi)衣風(fēng)衣牛仔褲ZI衛(wèi) 衣"/>風(fēng)衣"/>牛仔褲"/>靴子涼鞋板鞋靴 子"/>涼鞋"/>板鞋"/>絲巾圍巾帽子絲 巾"/>圍巾"/>帽子"/>MP3MP4MP5respon se.Redirect("logi n1.html"西服項鏈短外套小西裝

9、短外套"/>西服"/>籃球匚I kbox14" value="籃球"/>項鏈"/>耳機(jī)耳機(jī)"/>v/span>vspan style=ft認(rèn)提交"/>小西裝"/>運動服運動服"/>足球足球"/>耳飾耳飾"/>手機(jī)手機(jī)"/>».<WH*TrUPlniPiTtuwwt*rp I帕.吾(6) Show.asp： v%LANGUAGE="VBSCR IP T" COD

10、E PAGE="936"%> <% if session ("username"二""then respon se.Redirect("logi n1.html" end if %> <% sessio n("checkbox1"=Request.Form("checkbox1" sessi on ("checkbox2"=Request.Form("checkbox2" sessi on ("chec

11、kbox3"=Request.Form("checkbox3" sessio n("checkbox4"=Request.Form("checkbox4" sessi on ("checkbox5"=Request.Form("checkbox5" sessi on ("checkbox6"=Request.Form("checkbox6" sessi on ("checkbox7"=Request.Form("ch

12、eckbox7" sessi on ("checkbox8"=Request.Form("checkbox8" sessi on ("checkbox9"=Request.Form("checkbox9" sessio n("checkbox10"=Request.Form("checkbox10" sessio n("checkbox11"=Request.Form("checkbox11" sessio n("c

13、heckbox12"=Request.Form("checkbox12"接收用戶的選擇，保存到sessio n里，并顯示出來。sessio n("checkbox13"=Request.Form("checkbox13"sessio n("checkbox14"=Request.Form("checkbox14"sessio n("checkbox15"=Request.Form("checkbox15"sessio n("checkb

14、ox16"=Request.Form("checkbox16"sessio n("checkbox17"=Request.Form("checkbox17"sessio n("checkbox18"=Request.Form("checkbox18"sessio n("checkbox19"=Request.Form("checkbox19"sessio n("checkbox20"=Request.Form("ch

15、eckbox20"sessio n("checkbox21"=Request.Form("checkbox21"sessio n("checkbox22"=Request.Form("checkbox22"sessio n("checkbox23"=Request.Form("checkbox23"sessio n("checkbox24"=Request.Form("checkbox24"sessio n("che

16、ckbox25"=Request.Form("checkbox25" %>你所購買的商品如下<%=sessio n("checkbox1"%> <%=sessio n("checkbox2"%> <%=sessio n("checkbox3"%> <%=sessio n( "checkbox*% <%=sessi on ("checkbox5"%> <%=sessio n("checkbox6&quo

17、t;%> <%=sessi on ("checkbox7"%> <%=sessio n("checkbox8"%> <%=sessio n("checkbox9"%> <%=sessio n("checkbox10"%>A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_A%Hsession(_checkbox=%vcheckboxlT&vCheckbo>d3=%vCheckbo>d4=%vCheckbo>d5=%vCheckbo>d6=%vCheckbox17=%vcheckbox! 8=%vcheckboxCheckbox20=%vChec