实验五-小型动态网站的开发-实验报告.doc

南昌航空大学
信息工程学院
综合性实验报告

课程名称：__ ___Web编程__________
实验名称：____小型动态网站的开发___
学 号：_______________
姓 名：____ ___ _________
日 期：______2010年4月21日____

指导教师：_______ ___________
成 绩：_________________________

一、实验目的及要求
1、掌握动态网站开发的基本过程；
2、综合运用ASP技术开发一个小型动态网站；
3、为后续的《Web课程设计》实践性环节打好基础。

二、实验内容
开发一个小型动态网站——后台超市管理系统，实现管理员登入，货物管理系统，订单管理系统，用户管理系统
同组人：董宪法 分工：xxx—— 管理员登入，货物管理
xxx——订单管理，用户管理

三、实验步骤
1、总体设计

后台超市管理系统
货物管理
订单管理
用户管理
登入管理
添加货物
管理货物
货物类别
最新订单
确认订单
查看销售统计
会员管理
修改密码
退出管理

2、数据库设计

数据库系统采用Access 2003，数据库为shop..mdb，包含8个表admin,buo,orderdetail，orders,type1,type2,type3,users其结构如下：

3、详细设计
登入：

货物管理：

四、源程序
登入：
<%
if request("action")="login" then
admin_name=request("admin_name")
password=request("pass")
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"' and password='"&password&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write "dex.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

用户登录

<!--
body {
background-image: url(image/01.gif);
}
.STYLE1 { color: #FFFF</p><p style='padding:5px 0px;'>6、FF; font-weight: bold;
font-size: 12px;}
.STYLE3 { font-family: "隶书"; font-size: 40px; color: #660033; font-weight: bold;}
.STYLE4 { color: #0000FF; font-family: "方正姚体";}
.STYLE6 {font-size: 12px}
-->

dercolor="#0033FF"align="center">
eight="26"> 
response.end
%>

<!--
body {background-image: url(image/01.gif);}
.STYLE1 {font-size: 12px;color: #009933;}
-->

<%
if request("action")="save" then
if request("type1_name")="" then response.end
sql="select * from type1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("type1_name")=request("type1_name")
rs.update
rs.close
response.write "商品类别添加成功"
response.write ""
response.write "返回"
else
%>
iv align="center">商品类别名称:

<%
end if
set rs=nothing
conn.close
set conn=nothing
%>
equest("type2_name")="" then
response.write "请填写类别名称"
response.end
end if
if request("type1_id")="" then
response.write "请添加一级分类后再进行二级分类添加"
response.end
end if
sql="select * from type2"
set rs=server.createobject("adodb.recordset")

rs.open sql,conn,3,3
rs.addnew
rs("type1_id")=request("type1_id")
rs("type2_name")=request("type2_name")
rs.update
rs.close
response.write "第二商品类别添加成功"
response.write ""
response.write "返回"
else
%>

"" then response.end
%>

<!--
body {
background-image: url(image/01.gif);
}
.STYLE1 {
font-size: 12px;
color: #009900;
}
-->

<%
set rs1=server.createobject("adodb.recordset")
set rs=server.createobject("adodb.recordset")
Sql="select * from type1"
Rs.open Sql,conn,1,1
Do while not Rs.eof
type1_Name=Rs("type1_Name")
type1_id=Rs("type1_id")
Sql1="select * from type2 where type1_id='"&type1_id&"'"
Rs1.open Sql1,conn,1,1
Do while not Rs1.eof
i=i+1
type2_id=Rs1("type2_id")
type2_Name=Rs1("type2_name")
if request("Class_Nclass")=type1_id&","&type2_id then
k=" selected"
else
k=""
end if
Class_Type=Class_Type&"id&">"&type1_Name&"──→"&type2_Name&""
Rs1.movenext
loop
Rs1.close
Rs.movenext
loop
Rs.close
%>
a
then
Class_array=split(Request.Form("Class_Nclass"),",")
type1_Id=Class_array(0)
type2_Id=Class_array(1)
else
response.write "请选择所属类别"

end if
sql="select * from type3"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew
rs("type1id")=type1_id
rs("type2_id")=type2_id
rs("type3_name")=request("type3_name")
rs.update
rs.close
response.write "第三商品类别添加成功"
response.write ""
response.write "返回"
else
%>

"select * from type1"
rs1.open sql1,conn,3,3
if rs1.eof then
%>
<%rs1.movenext
loop
end if
rs1.close%>
ze="20">

"stylesheet" href="css.css" type="text/css">

<!--
body { background-image: url(image/01.gif);}
-->

<%
set rs1=server.createobject("adodb.recordset")
Sql="select * from type1"
Rs.open Sql,conn,1,1
Do while not Rs.eof
type1_Name=Rs("type1_Name")
type1_id=Rs("type1_id")
Sql1="select * from type2 where type1_id='"&type1_id&"'"
Rs1.open Sql1,conn,1,1
Do while not Rs1.eof
i=i+1
type2_id=Rs1("type2_id")
type2_Name=Rs1("type2_name")
if request("Class_Nclass")=type1_id&","&type2_id then
k=" selected"
else
k=""
end if
Class_Type=Class_Type&""&type1_Name&"──→"&type2_Name&""
Rs1.movenext
loop
Rs1.close
Rs.movenext
loop
Rs.close
if request("Class_Nclass")<>"" then
Class_array=split(request("Class_Nclass"),",")
sql="select * from type3 where type1_Id='"&Class_array(0)&"' and type2_Id='"&Class_array(1)&"'"
rs.open sql,conn,1,1
do while not rs.eof
if request("type3_Id")=rs("type3_Id") then
k=" selected"
else
k=""
end if
Singer_Type=Singer_Type&"k&" value="&rs("type3_Id")&">"&rs("type3_Name")&""
rs.movenext
loop
rs.close
end if
%>

<%
if request("action")="save" then
if instr(Request("Class_Nclass"),",")>0 then
Class_array=split(Request.Form("Class_Nclass"),",")
type1_Id=Class_array(0)
rype2_Id=Class_array(1)
else
response.write "请选择所属类别"

end if
hw_name=request("hw_name")
guige=request("guige")
hw_cash=request("hw_cash")
hw_pic=request("hw_pic")
type3_id=request("type3_id")
ISBN=request("ISBN")
mdate=request("date")
moder=request("moder")
lei=request("lei")
hwsn=request("hwsn")
hw_oldcash=request("hw_oldcash")
tejia=request("tejia")
hw_content=request.form("hw_content")
if not(isnumeric(hw_cash)) then
errmsg=""+"errmsg+""+"hen hw_pic="img/no.jpg"

if founderr=true then
response.write errmsg
response.write ""
response.write "返回"
response.end
else

hw_pic=server.htmlencode(hw_pic)

sql="select * from huo"
rs.open sql,conn,3,3
rs.addnew
rs("hw_name")=hw_name
rs("guige")=guige
if tejia="on" then
rs("tejia")=true
else
rs("tejia")=false
end if
rs("hw_content")=hw_content
rs("hw_cash")=hw_cash
rs("type1_id")=type1_id
rs("type2_id")=type2_id
if type3_id<>"all" then
rs("type3_id")=type3_id
end if
rs("hw_oldcash")=hw_oldcash
rs("ISBN")=ISBN
rs("mdate")=mdate
rs("moder")=moder
rs("hw_pic")=hw_pic
rs.update
end if
response.write "货物添加成功"
response.write "e="">请选择分类
<%=Class_Type%>
1 />

"myform">

关于我们      便捷服务       自信AI       AI导航        抽奖活动©2010-2026 宁波自信网络信息技术有限公司  版权所有客服电话：[phone]  投诉电话：[phone]浙公网安备33021202000488号   浙ICP备2021020529号-1  |  浙B2-20240490  关注我们 ：             ion>
<%=Class_Type%>
"guige" size="1" id="guige">