實(shí)驗(yàn)三 ASP內(nèi)置對(duì)象的使用

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

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

3、務(wù)器）；（3）在Dreamweaver的代碼視圖下使用ASP對(duì)象和腳本語(yǔ)言編程；（4）使用Dreamweaver的預(yù)覽功能運(yùn)行ASP程序。2、會(huì)員網(wǎng)站：（1）Reg.html：注冊(cè)表單中至少要有用戶名、密碼，提交后轉(zhuǎn)到save.asp處理；"/TR/html4/loose.dtd">會(huì)員注冊(cè) 用戶名： 密碼：確認(rèn)提交" />全部重填" /> （2）Save.asp：使用request對(duì)象接收注冊(cè)信息，把用戶名、密碼保存到session變量里，然后重定向到登錄頁(yè)面Login.html；<%LANGUA

4、GE="VBSCRIPT" CODEPAGE="936"%><%dim name,passname = request.form("name"pass = request.Form("pass"If name = Empty Or pass = Empty ThenResponse.Write("密碼和用戶名不為空，頁(yè)面將跳至注冊(cè)頁(yè)面，請(qǐng)重新填寫!"Response.End(Elsesession.Contents("a" = namesession.Conten

5、ts("b" = passEnd If%>（3）Login.html：在登錄表單里輸入用戶名、密碼，提交后轉(zhuǎn)到Check.asp；登錄頁(yè)面和注冊(cè)頁(yè)面要互有超級(jí)鏈接；  用戶名：   密  碼：  望望網(wǎng)用戶登錄 （4）Check.asp：將登錄狀態(tài)標(biāo)記預(yù)設(shè)為false并保存在session中；接收登錄時(shí)輸入的用戶名、密碼，與注冊(cè)時(shí)保存在session中的用戶名、密碼比較：如果都相等則登錄成功，將登錄狀態(tài)標(biāo)記改為true，然后重定向到購(gòu)物頁(yè)面Shop.asp；否則登錄失敗，重定向到登錄頁(yè)面Login.html重

6、新登錄，未注冊(cè)的可以由登錄頁(yè)面上的超級(jí)鏈接轉(zhuǎn)到注冊(cè)頁(yè)面去注冊(cè)；<%dim name1,pass1name1 = request.Form("name"pass1 = request.Form("pass"session("dl" = "no"if session.Contents("a"=name1 and session.Contents("b"=pass1 thensession("dl" = "yes"response.Re

7、direct("shop.html"elseresponse.Redirect("error.html"end if %>（5）Shop.html：用表格和表單顯示若干種商品，用戶可以多選，提交后轉(zhuǎn)到Show.asp；<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%if session("username"="" thenresponse.Redirect("login1.html"end if %&

8、gt;張杰海報(bào)張杰海報(bào)"/>張杰寫真集張杰寫真集"/>連衣裙連衣裙" >短外套短外套"/>小西裝小西裝"/>衛(wèi)衣 衛(wèi)衣"/>風(fēng)衣風(fēng)衣"/>牛仔褲牛仔褲"/>西服西服 "/>運(yùn)動(dòng)服運(yùn)動(dòng)服"/>靴子靴子"/>涼鞋涼鞋"/>板鞋板鞋"/>籃球kbox14" value="籃球 "/>足球足球"/>絲巾絲巾"/>圍巾圍巾"

9、;/>帽子帽子"/>項(xiàng)鏈項(xiàng)鏈"/>耳飾耳飾"/>MP3MP4MP5耳機(jī)耳機(jī)"/>手機(jī)手機(jī)"/>確認(rèn)提交"/>（6）Show.asp：接收用戶的選擇，保存到session里，并顯示出來。<%LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%if session("username"="" thenresponse.Redirect("login1.html&quo

10、t;end if %><%session("checkbox1"=Request.Form("checkbox1"session("checkbox2"=Request.Form("checkbox2"session("checkbox3"=Request.Form("checkbox3"session("checkbox4"=Request.Form("checkbox4"session("checkbox5&q

11、uot;=Request.Form("checkbox5"session("checkbox6"=Request.Form("checkbox6"session("checkbox7"=Request.Form("checkbox7"session("checkbox8"=Request.Form("checkbox8"session("checkbox9"=Request.Form("checkbox9"sessi

12、on("checkbox10"=Request.Form("checkbox10"session("checkbox11"=Request.Form("checkbox11"session("checkbox12"=Request.Form("checkbox12"session("checkbox13"=Request.Form("checkbox13"session("checkbox14"=Request.Fo

13、rm("checkbox14"session("checkbox15"=Request.Form("checkbox15"session("checkbox16"=Request.Form("checkbox16"session("checkbox17"=Request.Form("checkbox17"session("checkbox18"=Request.Form("checkbox18"session(&qu

14、ot;checkbox19"=Request.Form("checkbox19"session("checkbox20"=Request.Form("checkbox20"session("checkbox21"=Request.Form("checkbox21"session("checkbox22"=Request.Form("checkbox22"session("checkbox23"=Request.Form(&qu

15、ot;checkbox23"session("checkbox24"=Request.Form("checkbox24"session("checkbox25"=Request.Form("checkbox25" %>你所購(gòu)買的商品如下<%=session("checkbox1"%><%=session("checkbox2"%><%=session("checkbox3"%><%=session(

16、"checkbox4"%><%=session("checkbox5"%><%=session("checkbox6"%><%=session("checkbox7"%><%=session("checkbox8"%><%=session("checkbox9"%><%=session("checkbox10"%> <%=session("checkbox11&q

17、uot;%><%=session("checkbox12"%><%=session("checkbox13"%><%=session("checkbox14"%><%=session("checkbox15"%><%=session("checkbox16"%><%=session("checkbox17"%><%=session("checkbox18"%><%=session("checkbox19"%><%=session("checkbox20"%><%=session("checkbox25&