实验五-小型动态网站的开发-实验报告.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 "<center>用户名和密码不匹配" else session("admin_name")=rs("admin_name") response.redirect "index.asp" end if rs.close set rs=nothing conn.close set conn=nothing end if %> <html> <head> <title>用户登录</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css">  </style></head> <body text="#000000"> <p align="left" class="STYLE3 STYLE4"><img src="image/06.gif" width="89" height="153" align="middle">后台超市销售管理系统</p> <table width="65%"border="0"cellspacing="0"cellpadding="0"align="center"> <tr> <td width="88%" height="115"><form action="login.asp?action=login" method=post> <table width="60%"border="0"cellspacing="1"cellpadding="0"bordercolor="#0033FF"align="center"> <tr bgcolor="#FF9900"> <td height="27" colspan="2" background="../newoffice/image/2.gif" bgcolor="#FFFFFF" ><div align="center" class="STYLE1">请登录</div></td> </tr> <tr bgcolor="#FFFFFF"> <td width="36%" bgcolor="#FFFFFF"jeight="18"><div align="center" class="STYLE6">用户名:</div></td> <td height="18"width="64%"><input name="admin_name" type="text"class="STYLE6" id="admin_name"size="15"> </td> </tr> <tr bgcolor="#FFFFFF"> <td width="36%"height="6"><div align="center" class="STYLE6">密<span class="STYLE1">..</span>码:</div></td> <td width="64%"height="6"><div align="left"> <input name="Pass" type="password"class="STYLE6" id="Pass"size="16"> </div></td> </tr> <tr bgcolor="#FFFFFF"> <td width="36%"height="26"> </td> <td height="26"width="64%"><input name="B1" type="submit"class="STYLE6" id="B1"value="登录"> <input type="reset"name="Submit2"value="重写"class="STYLE6"> </td> </tr> </table> </form></td> </tr> </table> <p><br> </p> <table width="900" height="10" border="0" align="center"> <tr> <td background="../newoffice/image/3.gif"> </td> </tr> </table> <table width="65%"border="0"cellspacing="0"cellpadding="0"align="center"> </table> </body> </html> 货物管理： 1、<% if session("admin_name")="" then response.end %> <head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css">  </style></head> <% 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 "<br>" response.write "<a href=type.asp><font size=2>返回</font></a>" else %> <p class="STYLE1"> </p> <p align="center" class="STYLE1">添加第一商品类别</p> <table border="0" width="100%" cellspacing="1"> <tr> <td width="100%"> <form method="POST" action="add1.asp?action=save"> <div align="center"><span class="STYLE1">商品类别名称</span>: <input name="type1_name" type="text" class=input id="type1_name" size="20"> <input type="submit" value="提交" name="B1" class=STYLE1> </div> </form> </td> </tr> </table> <div align="center"> <% end if set rs=nothing conn.close set conn=nothing %> </div> 2、<% if session("admin_name")="" then response.end %> <% if session("admin_name")="" then response.end set rs=server.createobject("adodb.recordset") %> <head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css">  </style></head> <div align="center"> <p class="STYLE1"> </p> <p class="STYLE1">添加第二商品类别 <% if request("action")="save" then if request("type2_name")="" then response.write "<br>请填写类别名称" response.end end if if request("type1_id")="" then response.write "<br>请添加一级分类后再进行二级分类添加" 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 "<br>第二商品类别添加成功" response.write "<br>" response.write "<a href=type.asp><font size=2>返回</font></a>" else %> </p> </div> <form method="POST" action="add2.asp?action=save"> <table border="0" width="100%" cellspacing="1"> <tr> <td width="100%" class="STYLE1"><div align="left">选择所属第一类别 <select name="type1_id" size="1" id="type1_id"> <% set rs1=server.createobject("adodb.recordset") sql1="select * from type1" rs1.open sql1,conn,3,3 if rs1.eof then %> <option value=""></option> <%else do while not rs1.eof%> <option value="<%=rs1("type1_id")%>"><%=rs1("type1_name")%></option> <%rs1.movenext loop end if rs1.close%> </select> </div></td></tr> <tr> <td width="100%"><div align="left"><span class="STYLE1"> 第二商品类别名称 <input name="type2_name" type="text" class=STYLE1 id="type2_name" size="20"> <input type="submit" value="提交" name="B1" class=STYLE1> </span> </div> </form> <div align="center"><span class="STYLE1"> </td> </tr> <% end if set rs=nothing conn.close set conn=nothing %> </span></div> 3、<% if session("admin_name")="" then response.end %> <head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css">  </style></head> <% 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&"<option "&k&" value="&type1_id&","&type2_id&">"&type1_Name&"──→"&type2_Name&"</option>" Rs1.movenext loop Rs1.close Rs.movenext loop Rs.close %> a <div align="center"> <p class="STYLE1"> </p> <p class="STYLE1">添加第三商品类别 <% if request("action")="save" then if instr(Request("Class_Nclass"),",")>0 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("type1_id")=type1_id rs("type2_id")=type2_id rs("type3_name")=request("type3_name") rs.update rs.close response.write "<br>第三商品类别添加成功" response.write "<br>" response.write "<a href=type.asp><font size=2>返回</font></a>" else %> </p> </div> <form method="POST" action="add3.asp?action=save"> <table border="0" width="100%" cellspacing="1"> <tr> <td width="100%" class="STYLE1">请选择一、二级分类 <select name="Class_Nclass" size="1" onChange="window.open('add3.asp?Class_Nclass='+this.options[this.selectedIndex].value,'_self')"> <option value="">请选择分类</option> <%=Class_Type%> </select> </td> </tr> <tr> <td width="100%"><span class="STYLE1"> 第三商品类别名称 <input name="type3_name" type="text" class=input id="type3_name" size="20"> <input type="submit" value="提交" name="B1" class=STYLE1 /> </span> </form> </td> </tr> <span class="STYLE1"> <% end if set rs=nothing conn.close set conn=nothing %> </span> 4、<% if session("admin_name")="" then response.end set rs=server.createobject("adodb.recordset") %> <head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css">  </style> </head> <% 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&"<option "&k&" value="&type1_id&","&type2_id&">"&type1_Name&"──→"&type2_Name&"</option>" 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&"<option"&k&" value="&rs("type3_Id")&">"&rs("type3_Name")&"</option>" 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="<br>"+"<li>货物的价格应该为数字" founderr=true end if if hw_name="" then errmsg=errmsg+"<br>"+"<li>货物名称不能为空" founderr=true end if if hw_content="" then errmsg=errmsg+"<Br>"+"<li>货物介绍不能为空" founderr=true end if if hw_cash="" then errmsg=errmsg+"<br>"+"<li>商品价格不能为空" founderr=true end if if hw_pic="" then hw_pic="img/no.jpg" if founderr=true then response.write errmsg response.write "<br>" response.write "<a href=addhw.asp>返回</a>" 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 "<p>"%> <%response.write "<br>" response.write "<a href=addhw.asp>返回</a>" rs.close else %> <table border="0" width="100%" cellspacing="1"> <tr> <td width="100%"> <form method="POST" action="addhw.asp?action=save" name="myform"> <table width="95%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="4" align="center"> <tr> <td colspan=2 background="image/03.jpg" > <div align="center">添加货物</div> </td> </tr> <tr> <td width="19%" height="18">所属第一、二类别</td> <td width=81% height="18"> <select name="Class_Nclass" size="1" onChange="window.open('addhw.asp?Class_Nclass='+this.options[this.selectedIndex].value,'_self')"> <option value="" selected="selected">请选择分类</option> <%=Class_Type%> </select> <font color=red>* (*号为必填选项)</font></td> </tr> <tr> <td width="19%" height="18">货物所属第三类别</td> <td width=81% height="18"> <select name="type3_id" size="1" id="type3_id"> <option value="all">请选择第三类别 </option> <%=Singer_Type%> </select> </td> </tr> <tr> <td width="19%" height="18">规格属性</td> <td width=81% height="18"> <select name="guige" size="1" id="guige"> <option value="12">R1</option> <option value="18">R2</option> <option value="20">R3</option> <option value="15">R4</option> </select> </td> </tr> <tr>

展开阅读全文