实验五-小型动态网站的开发-实验报告.doc
实验五-小型动态网站的开发-实验报告.doc
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- 实验 小型 动态 网站 开发 报告
- 资源描述：
-
南昌航空大学 信息工程学院 综合性实验报告 课程名称：__ ___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") %> <!--#include file="conn.asp"--> <% 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"> <!-- body { background-image: url(image/01.gif); } .STYLE1 { color: #FFFFFF; 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} --> </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 %> <!--#include file="conn.asp"--><head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css"> <!-- body {background-image: url(image/01.gif);} .STYLE1 {font-size: 12px;color: #009933;} --> </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") %> <!--#include file="conn.asp"--><head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css"> <!-- body {background-image: url(image/01.gif);} .STYLE1 {font-size: 12px;color: #009900;} --> </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 %> <!--#include file="conn.asp"--><head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css"> <!-- body { background-image: url(image/01.gif); } .STYLE1 { font-size: 12px; color: #009900; } --> </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") %> <!--#include file="conn.asp"--><head> <link rel="stylesheet" href="css.css" type="text/css"> <style type="text/css"> <!-- body { background-image: url(image/01.gif);} --> </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>展开阅读全文
咨信网温馨提示：1、咨信平台为文档C2C交易模式，即用户上传的文档直接被用户下载，收益归上传人（含作者）所有；本站仅是提供信息存储空间和展示预览，仅对用户上传内容的表现方式做保护处理，对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿，我们不确定上传用户享有完全著作权，根据《信息网络传播权保护条例》，如果侵犯了您的版权、权益或隐私，请联系我们，核实后会尽快下架及时删除，并可随时和客服了解处理情况，尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据，个别因单元格分列造成显示页码不一将协商解决，平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺，下载前须认真查看，确认无误后再购买，务必慎重购买；若有违法违纪将进行移交司法处理，若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传，付费前请自行鉴别，如您付费，意味着您已接受本站规则且自行承担风险，本站不进行额外附加服务，虚拟产品一经售出概不退款（未进行购买下载可退充值款），文档一经付费（服务费）、不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印，是因预览和防盗链等技术需要对页面进行转换压缩成图而已，我们并不对上传的文档进行任何编辑或修改，文档下载后都不会有水印标识（原文档上传前个别存留的除外），下载后原文更清晰；试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓；PPT和DOC文档可被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；PDF文档不管是原文档转换或图片扫描而得，本站不作要求视为允许，下载前可先查看【教您几个在下载文档中可以更好的避免被坑】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用；网站提供的党政主题相关内容(国旗、国徽、党徽－－等)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
6、文档遇到问题，请及时联系平台进行协调解决，联系【微信客服】、【QQ客服】，若有其他问题请点击或扫码反馈【服务填表】；文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“【版权申诉】”，意见反馈和侵权处理邮箱：1219186828@qq.com；也可以拔打客服电话：0574-28810668；投诉电话：18658249818。
实名认证
平台协调中心【客服】
自信AI助手
微信客服
客服QQ
发送邮件
意见反馈
链接地址：https://www.zixin.com.cn/doc/11825145.html