电子商务网站建设实验报告五
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、实验名称
ASP内置对象的使用
二、实验目的及要求
1.掌握ASP内置对象的含义及主要方法；
2.熟练掌握ASP内置对象的使用。
三、实验环境
操作系统：Windows XP professional
实验软件：记事本、IIS
四、实验内容
1．设计3个页面，实现图形面积计算。
其页面功能如下：
（1）a.htm。
负责由用户指定所需计算面积的图形类型，包括：三角形，圆形，矩形。
（2）b.asp。
根据所选择的图形类型，分别提供相应参数输入界面。
如：若选择三角形，则设计两个文本框，分别用来输入三角形的底和高。
（3）c.asp。
跟据所选择的类型及输入的参数，计算图形面积。
2．实现一个简单的登录页面，功能要求如下：
（1）login.htm。
登录页面，包含三个输入内容：用户名、密码、权限（分管理员和普通用户两种权限）。
（2）login.asp。
根据输入的用户名、密码和权限进行身份校验（假定：普通用户用户名和密码均为：user，管理员用户名和密码均为：admin）。
若身份正确，要求使用两组session（如session(“username”)用来存储用户名，session(“role”)用来存储权限）,并实现页面跳转到“main.asp”
（3）在main.asp中，校验两组session是否有值，如有，则分别输出：“欢迎您，管理员admin！”或“欢迎您，普通用户user”（“管理员”和“普通用户”由session(“role”)读取，“admin”和“user”由session(“username”)读取)；若没有，则提示，对不起，您还未登录。
五、实验步骤及代码
描述具体代码，并将页面结果截图。
一、a.html代码如下：
<html>
<body>
<form method=post action=b.asp>
<select name=t1>
<option value=三角形>三角形</option>
<option value=圆形>圆形</option>
<option value=矩形>矩形</option>
</select>
<input type=submit value=提交>
</form>
</body>
</html>
a.html的截图如下：
二、b.asp的代码如下：
<form method=post action=c.asp>
<%
t1=request("t1")
session("t1")=t1
if(t1="三角形") then
response.write "底：<input type=text name='di'><br>"
response.write "高:<input type=text name='gao'><br>"
elseif(t1="圆形") then
response.write "半径：<input type=text name='banjin'><br>"
elseif(t1="矩形") then
response.write "长：<input type=text name='chang'><br>"
response.write "宽：<input type=text name='kuan'><br>" end if
%>
<input type=submit value=计算>
</form>
b.asp的截图如下
三、c.asp的代码如下：
<%
if(session("t1")="三角形") then
di=request("di")
gao=request("gao")
s=di*gao/2
response.write session("t1")&"d的面积为："&s elseif(session("t1")="圆形") then
banjin=request("banjin")
s=3.14*banjin*banjin
response.write session("t1")&"d的面积为："&s elseif(session("t1")="矩形") then
chang=request("chang")
kuan=request("kuan")
s=chang*kuan
response.write session("t1")&"d的面积为："&s end if
%>
c.asp的截图如下：
四、Login.htm的代码如下：
<html>
<body>
<form method=post action=login.asp>
<table border=0.5>
<tr>
<td align=right>用户名：</td>
<td><input type=text name=t1></td>
</tr>
<tr>
<td align=right>密码：</td>
<td><input type=password name=t2></td>
</tr>
<tr>
<td align=right>用户权限：</td>
<td>
<select name=t3>
<option value=管理员>管理员</option>
<option value=普通用户>普通用户</option>
</select>
</td>
</tr>
<tr><td align=center><input type=submit value=提交内容 ></td></tr>
</form>
</body>
</html>
Login.htm的截图如下：
五、Login.asp的代码如下：
<%
t1=request("t1")
t2=request("t2")
t3=request("t3")
if ((t3="普通用户" and t1="user" and t2="user") or (t3="管理员" and t1="admin" and t2="admin")) then
session("username")=t1
session("role")=t3
response.redirect "main.asp"
else
response.write ("<script> alert('用户名或密码错误
');window.location='login.htm'</script>")
end if
%>
login.asp的截图如下：
六、Main.asp的代码如下：
<%
if(session("username")<>empty and session("role")<>empty) then
response.write "欢迎您,"&session("role")&session("username")
else
response.write("<script> alert('对不起，您还未登录
');window.location='login.htm'</script>")
end if
%>
main.asp的截图如下：
六、总结
对上机实践结果进行总结，上机的心得体会及改进意见。
ASP内置对象刚刚开始学的时候很晕，上机刚刚开始也不太懂。
不过后来老师提醒，写了一些代码之后就好多了。
看懂了之后，再照葫芦画瓢就比较简单了。
而且写完之后在看一下能加深理解。
同时因为做的稍微快一点，所以可以有时间帮其他同学看一下他们的问题，不仅帮组了同学，同时也能提高自己，积累那些自己没有犯过的错误。
不过能学会自己调试程序很重要，而且我觉得同学们应该要学会使用软件的错误提醒，然后根据相关的提醒可以快速找出错误在将来工作中实际编程很重要。