实验三ASP内置对象的使用

1、南昌航空大学实验报告课程名称：WEB编程 实验名称：ASP内置对象的使用 班 级：090451学生姓名： 杨望 学号:09045131 指导教师评定：签名:、实验要求:1掌握Response对象的使用;2、掌握Request对象的使用;3、掌握App licatio n对象的使用;4、掌握Session对象的使用;5、掌握Server对象的使用。、实验内容1环境设置：设置IIS的主目录，并在Dreamweave冲新建ASP站点。2、使用ASP对象和脚本语言编程，实现一个简易的会员制购物网站:包括以下页面:Reg.html :用户注册页面;Save.asp保存用户资料;Log in .html

2、:用户登录页面;Check.asp登录验证;Shop.html：显示购物页面;Show.asp：显示购物车中的内容。三、实验步骤1、环境设置:(1)从控制面板管理工具里打开In ternet信息服务，在左侧树形目录中找到默 认网站，用鼠标右键单击，打开属性窗口，在主目录中将本地路径设置为自己建的 文件夹；(2)在Dreamweaver中新建站点(站点名字任取，HTTP地址不填，使用服务器 技术ASP VBScript或JavaScrip，在本地进行编辑和测试，文件存储位置设置为IIS的主目录，站点根目录的 URL使用默认值http:/localhosU测试URL成功, 不使用远程服务器)；(3

3、) 在Dreamweaver的代码视图下使用ASP对象和脚本语言编程;(4) 使用Dreamweaver的预览功能运行ASP程序。2、会员网站:(1) Reg.html：注册表单中至少要有用户名、密码，提交后转到save.asp处理;"htt p://TR/html4/loose.dtd">会员注册 用户名:密码:v/span>vspan style=tt认提交"/> 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%>祝賀您注册成功，请经!(3) Login.html:在登录表单里输入用户名、密码，提交后转到Check.as p登录页面和注册页面要互有超级链接;用户名:密码:SubmitReset望望网用户登录(4) Check.asp将登录状态标记预设为false并保存在session中;接收登录时输入的用户名、密码，与注册时保存在sessio n中的用户名、密码比较：如果都相等则登录成功，将登录状态标记改为true，

6、然后重定向到购物页面 Shop .as p否则登录失败，重定向到登录页面 Login.html重新登录，未注册的可以由 登录页面上的超级链接转到注册页面去注册；<% 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:用表格和表单显示若干种商品，用户可以多选，提交后转到Show.asp；v%LANGUAGE="VBSCR IP T" CODE PAGE="936"%><%if session ("usernam

8、e"="" thenend if %>张杰海报张杰写真集连衣裙张 杰海 报"/>张杰 写真集"/>连衣裙">卫衣风衣牛仔裤ZI卫 衣"/>风衣"/>牛仔裤"/>靴子凉鞋板鞋靴 子"/>凉鞋"/>板鞋"/>丝巾围巾帽子丝 巾"/>围巾"/>帽子"/>MP3MP4MP5respon se.Redirect("logi n1.html"西服项链短外套小西装

9、短外套"/>西服"/>篮球匚I kbox14" value="篮球"/>项链"/>耳机耳机"/>v/span>vspan style=ft认提交"/>小西装"/>运动服运动服"/>足球足球"/>耳饰耳饰"/>手机手机"/>».<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