ASP课程设计报告书

《ASP动态网站开发》——网上商城购物系统课程设计报告书指导教师：冯小辉(老师)姓名：占焕平学号：20094906班级：经济0901日期:2010-6-22九江职业技术学院经济管理学院一、系统需求调查随着生活水平的提高，人们的消费方式也发生了很大变化。传统的购物方式已不能满足日益增长的消费客户群，于是出现了上门推销、电话订购、网上购物等新的购物渠道。其中以易趣网和淘宝网为首的电子商务（ElectronicCommerce）网站的成立，使网上购物成为一种新的时尚并逐渐被更多的人接受。随后，国内各大网上商城如雨后春笋，先后出现了以当当和华储为主的网上书店、八佰拜和阿里巴巴为主的电子商务网站等。无论是论电子商务的种类、网站的数量和架构技术都上了一个新的台阶，本章我们将使用ASP技术创建一个网上网上商城购物系统，详细剖析ASP在电子商务中的应用。二、设计要求1、每1位同学一组制作一个商务网站并在局域网发布。2、网络资源可以参考，但不等于可以无度抄袭，所提交的设计作业，如发现大量抄袭雷同现象，按不及格处理。3、每位同学要求完成课程设计报告书一份，字数不得少于1500字（封面及正文格式见附录1、2），用A4纸打印并装订。4、答辩时根据发布的网站设计是否符合指导书要求进行评分；要求答辩前上交报告；逾期未交、抄袭拷贝的同学以不及格处理。三、设计内容3.1系统需求分析网上商城购物系统主要是为用户提供浏览和选购商品信息以及购买商品的功能，可分为以下几部分：主页面用户可以在此页面中查看系统导航菜单、会员登录口、各种商品分类、最新商品、商品公布栏、新品上市、软件下载、宣传广告、网站服务和版权信息等。还可以单击连接，弹出或者转到其他页面来显示详细内容。管理员登录该功能只负责系统管理登录，然后对后台进行管理。商品类别管理对商品类别进行查看、添加、修改和删除。商品管理对商品信息进行录入、修改和删除。商品分类在商品首页，显示了商品类别及其标题商品搜索该模块提供商品查询，输入待查找的内容并选定分类信息，可以快速的找到符合条件的商品并输出查询结果。商品信息浏览该模块负责列出网站所有商品的信息，包括商品图片、名称、品牌、商品简介、价格和折扣，以及“放入购物篮”链接，单击它们就能跳转页面进行商品的浏览。发表评论该模块让用户和访客对感兴趣的商品发表自己的看法，很多门户网站都提供了这一功能，使用它可以增加客户源。网上商城购物系统结构图3.2设计商城系统数据库管理员表admin用户表Dv_User发布商品信息编辑商品信息发表评论查看/删除评论管理评论查看商品添加商品信息添加商品类别管理员登录管理员登录商品管理商品管理编辑商品类别热销商品信息搜索商品删除商品信息管理商品类别管理商品类别删除商品类别浏览商品类别表category友情连接表links商品信息prod商品评论表review新闻信息表news系统配置表config3.3创建数据库连接和共享模块%dimconn,connstr,startime,sundxDB,rs,UserAgentstartime=timer()'使用安全的请求FunctionSafeRequest(ParaName,ParaType)DimParaValueParaValue=Request(ParaName)IfParaType=1thenIfnotisNumeric(ParaValue)thenResponse.writecenter参数&ParaName&必须为数字型，请正确操作！/centerResponse.endEndifElseParaValue=replace(ParaValue,','')EndifSafeRequest=ParaValueEndfunction'格式化SQL查询语句FunctionFormatSQL(strChar)ifstrChar=thenFormatSQL=elseFormatSQL=replace(replace(replace(replace(replace(replace(replace(replace(strChar,',’),*,×),?,？),(,（),),）),,〈),.,。),;,；)endifEndFunctionsundxDB=admin/Shops.mdbconnstr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(&sundxDB&)OnErrorResumeNextSetconn=Server.CreateObject(ADODB.Connection)conn.openconnstrIfErrThenerr.ClearSetConn=NothingResponse.Write数据库连接出错，请检查Conn.asp中的数据库指向。'Response.EndEndIf'验证用户的权限并设置信息DimstrTitle,LngDiscount,strUserName,LngUserID,LngGrpID,LngDeposit,rsVip,strUserEmailLngDiscount=1LngUserID=0LngDeposit=0strUserName=非注册用户strTitle=非注册用户ifRequest.Cookies(sundxshop)(username)thensetrsVip=server.CreateObject(adodb.recordset)rsVip.openselectDV_User.GrpID,DV_User.UserID,DV_User.Score,DV_User.UserEmail,DV_User.Deposit,DV_User.UserName,sundxG.GrpName,sundxG.StarsfromDV_UserInnerJoinsundxGOnDV_User.GrpID=sundxG.GrpIDwhereusername='&request.Cookies(sundxshop)(username)&',conn,1,1strTitle=rsVip(GrpName)LngDiscount=rsVip(Stars)LngGrpID=Clng(rsVip(GrpID))strUserName=rsVip(UserName)LngUserID=Clng(rsVip(UserID))LngScore=Clng(rsVip(Score))LngDeposit=rsVip(Deposit)strUserEmail=rsVip(UserEmail)rsVip.closesetrsVip=nothingEndIf%metahttp-equiv=Content-Typecontent=text/html;charset=gb2312linkhref=include/css.cssrel=stylesheettype=text/css3.4配置系统模块%dimqq,webname,webemail,address,postcode,tel,copyright,webbanner,weblogo,weburl,notify,notify1,bgclr1,bgclr2,bgclr3,bgclr4,bgclr5,bgclr6,bgclr7,bgclr8,webimg1,webimg2,webimg3,webimg4,webimg5,webimg6,webimg7,webimg8,webimg9,webimg10,webimg11,webimg12,webimg13,webimg14,webbj1,webbj2,webbj3,webbj4,webbj5,webbj6,webbj7,webbj8,webb,bigbanner,tt,tt1,qqon,pay,payid,paypwd,payurlconsthttpurl=192.168.0.50consthttpserver=zhtconstVPcopyright=商讯商城购物系统constVPVersion=Version1.0简体中文版setrs=server.CreateObject(adodb.recordset)rs.Openselectwebname,webemail,address,postcode,tel,qq,copyright,weblogo,tt,tt1,weburl,notify,notify1,bgclr1,bgclr2,bgclr3,bgclr4,bgclr5,bgclr6,bgclr7,bgclr8,webimg1,webimg2,webimg3,webimg4,webimg5,webimg6,webimg7,webimg8,webimg9,webimg10,webimg11,webimg12,webimg13,webimg14,webbj1,webbj2,webbj3,webbj4,webbj5,webbj6,webbj7,webbj8,webbj9,bigbanner,webbanner,qqon,pay,payid,paypwd,payurlfromconfig,conn,1,1webname=trim(rs(webname))webemail=trim(rs(webemail))tel=trim(rs(tel))qq=trim(rs(qq))tt=trim(rs(tt))tt1=trim(rs(tt1))qqon=trim(rs(qqon))pay=trim(rs(pay))payid=trim(rs(payid))paypwd=trim(rs(paypwd))payurl=trim(rs(payurl))postcode=trim(rs(postcode))address=trim(rs(address))weblogo=trim(rs(weblogo))webbanner=trim(rs(webbanner))bigbanner=trim(rs(bigbanner))weburl=trim(rs(weburl))notify=trim(rs(notify))notify1=trim(rs(notify1))bgclr1=trim(rs(bgclr1))bgclr2=trim(rs(bgclr2))bgclr3=trim(rs(bgclr3))bgclr4=trim(rs(bgclr4))bgclr5=trim(rs(bgclr5))bgclr6=trim(rs(bgclr6))bgclr7=trim(rs(bgclr7))bgclr8=trim(rs(bgclr8))webimg1=trim(rs(webimg1))webimg2=trim(rs(webimg2))webimg3=trim(rs(webimg3))webimg4=trim(rs(webimg4))webimg5=trim(rs(webimg5))webimg6=trim(rs(webimg6))webimg7=trim(rs(webimg7))webimg8=trim(rs(webimg8))webimg9=trim(rs(webimg9))webimg10=trim(rs(webimg10))webimg11=trim(rs(webimg11))webimg12=trim(rs(webimg12))webimg13=trim(rs(webimg13))webimg14=trim(rs(webimg14))webbj1=trim(rs(webbj1))webbj2=trim(rs(webbj2))webbj3=trim(rs(webbj3))webbj4=trim(rs(webbj4))webbj5=CLng(trim(rs(webbj5)))webbj6=trim(rs(webbj6))webbj7=trim(rs(webbj7))webbj8=trim(rs(