电子商务网站建设与管理实务-项目7

电子商务网站建设与维护李海平课程内容项目1电子商务网站的整体策划1项目2电子商务网站的开发和运行环境的搭建2项目3网站数据库的建设和使用3项目4网站注册与登录功能的设计和制作4项目5网站显示商品功能的实现5项目6开发电子商务网站的新闻发布系统6项目7制作留言版系统7项目8开发电子商务网站在线订单系统8项目9发布与管理电子商务网站9项目7制作留言版系统任务1：系统功能分析任务2：留言发布页面的实现任务3：后台留言管理系统的实现任务1：系统功能分析一、模块功能分析二、规划系统三、数据库设计四、公共页面一个电子商务网站一定会在网站上的提供留言本，用来记载客户的反馈信息，与客户建立一个交流平台。本项目的任务就是采用ASP技术建立留言板系统，包括显示网站浏览者即用户进行留言、留言修改、留言删除，管理人员登入管理后台进行修改、留言删除、留言回复。一、模块功能分析留言板系统的逻辑功能如图7-1所示：身份验证身份验证登录用户签写留言修改留言删除留言管理后台查看留言商城客户管理员图7-1留言板系统的逻辑功能图未注册浏览者回复留言修改留言删除留言整个新闻系统可以划分为以下几个功能块：1、留言信息分页显示为了便于将网站浏览者查看留言。2、签写留言注册并登录用户可以签写留言，向数据库添加记录。3、修改留言注册并登录用户可以修改自己签写的留言，更新数据库记录。4、删除留言注册并登录用户可以删除自己签写的留言，删除数据库记录5、管理留言管理员通过正确的用户名和密码登录管理后台，从而拥有管理员的身份，才具有管理留言的操作权限，对留言进行回复、修改、删除。任务1：系统功能分析一、模块功能分析二、规划系统三、数据库设计四、公共页面二、规划系统创建一个动态站点，前台访问文件放在站点目录下，后台管理文件放在ADMIN文件夹下，数据库放在DATA文件夹中，所有图像文件放在IMAGES文件夹中。如图7-2.图7-2留言板系统各文件及文件夹的对应关系各页面的功能如下：Index.ASP：网上购物系统首页。Conn.ASP：前台数据库连接程序文件。Book_List.ASP：留言内容列表页面。Book_Write.ASP：留言签写页面。Book_Edit.ASP：留言修改页面。Login.ASP：前台用户登录页面。Logout.ASP：前台用户注销页面。Reg.ASP：前台用户注册页面。Edit_UserINfo.ASP：前台用户注册信息修改页面。User_Info.ASP：前台用户注册信息显示页面。Top.ASP：网上购物系统前台页面顶部。ADMIN文件夹下：Conn.ASP：后台数据库连接程序文件。Book_List.ASP：管理员留言管理显示留言内容列表页面。Book_Edit.ASP：管理员留言修改、回复留言页面。Index.ASP：后台管理框架页面。Munu.ASP：管理页面左侧菜单。Main.ASP：后台管理主页面。Login.ASP：管理员登录页面。Logout.ASP：管理员注销页面。User_All.ASP：前台用户管理页面。任务1：系统功能分析一、模块功能分析二、规划系统三、数据库设计四、公共页面三、数据库设计留言信息表存储的内容和字段如图7-3所示图7-3留言信息存储表Guest_Book在整个网站的数据库DATA中建立一个表Guest_Book用于存放留言信息，包含字段ID（新闻ID，设为主键）、User（留言用户）、Title（留言标题）、Content（留言内容）、PostTime（留言时间）、IP（留言用户的IP地址）、Reply（回复内容）、ReplyTime（回复时间）。任务1：系统功能分析一、模块功能分析二、规划系统三、数据库设计四、公共页面四、公共页面1、数据库连接文件数据库连接文件Conn.ASP，利用该页面可以建立每个ASP页面与数据库的连接，便于程序是维护。代码如下：%DimConn,Str,dbdb=data/data.mdbSetConn=Server.CreateObject(ADODB.Connection)Str=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(&db&)Conn.OpenStr%在其它页面中可使用“!--#includefile=Conn.ASP--”的方法将此文件包含进来。2、样式表文件样式表文件Main.CSS，保存于INC文件夹中。代码如下body,tr,td{font-family:宋体;font-size:12px;line-height:normal;}A:link{text-decoration:none;color:#255BCC;}A:active{text-decoration:none;color:#255BCC;}A:visited{text-decoration:none;color:#255BCC;}A:hover{text-decoration:underline;color:#ff0000;}在其它页面中可使用“linkhref=INC/Main.CSSrel=stylesheettype=text/css”的方法链接到该文件。3、公共函数新闻系统在显示新闻内容时会对出现的回车符、换行符和空格符等特殊字符进行处理才能显示出来。公共函数页面Functiong.ASP放在保存于INC文件夹中，代码如下：%FunctionUnHtml(str)UnHtml=strIfstrThenUnHtml=replace(UnHtml,&,&)UnHtml=replace(UnHtml,,<)UnHtml=replace(UnHtml,,>)UnHtml=replace(UnHtml,chr(34),")UnHtml=replace(UnHtml,chr(13),br)UnHtml=replace(UnHtml,chr(32), )EndIfEndFunction%在其它页面中可使用“!--#includefile=INC/Function.ASP--”的方法将此文件包含进来。项目7制作留言版系统任务1：系统功能分析任务2：留言发布页面的实现任务3：后台留言管理系统的实现任务2：留言发布页面的实现一、留言内容显示页面Book_List.ASP二、Book_Write.ASP：留言签写页面三、Book_Edit.ASP：留言修改页面一、留言内容显示页面Book_List.ASP客户查看留言从表Guest_Book中查询所有记录是否有记录设置每页记录数取得页码，设定页码设置计数器判断是否还有记录或计数已到显示留言信息（根据是否是登录用户和是否有回复显示修改和删除链接）显示分页链接结束显示没有新闻是否否是图7-4留言内容显示页面流程图7-5留言显示页面!--#includefile=Conn.ASP--!--#includefile=INC/Function.ASP--htmlheadmetahttp-equiv=Content-Typecontent=text/html;charset=gb2312/title客户留言-列出留言/titlelinkhref=INC/Main.CSSrel=stylesheettype=text/css/headbodyleftmargin=0topmargin=0tablewidth=900border=0align=centercellpadding=0cellspacing=0trtd!--#includefile=top.asp--/td/trtrtdheight=32align=rightahref=Book_Write.ASP签写留言/a   /td/trtrtd%DimRs,SqlSetRs=Server.CreateObject(ADODB.Recordset)Sql=Select*FromGuest_BookOrderByIDDescRs.OpenSql,Conn,1,1IfRs.EofAndRs.EofThenResponse.Writepalign=center目前还没有留言！/pElsePage=Request(Page)Rs.PageSize=5PageSize=Rs.PageSizeIfPage=ThenPage=1Rs.AbsolutePage=PageDoWhileNotRs.EofAndPageSize0%tablewidth=600border=1align=centercellpadding=0cellspacing=0bordercolor=#CCCCCCtrtdwidth=80height=30align=centervalign=middle留言者/tdtdwidth=220 %=Rs(User)%/tdtdwidth=80align=centervalign=middle留言时间/tdtdwidth=220 %=Rs(PostTime)%/td/trtrtdheight=30align=centervalign=middle留言主题/tdtdcolspan=3 %=Rs(Title)%/td/trtrtdheight=30align=centervalign=middle留言内容/tdtdcolspan=3%=UnHtml(Rs(Content))%/td/tr%IfRs(Reply)Then%trtdheight=30align=centervalign=middle留言回复/tdtdcolspan=3%=UnHtml(Rs(Reply))%br [%=Rs(ReplyTime)%]/td/tr%EndIf%%IfSession(User)=Trim(Rs(User))andRs(Reply)=Then%trtdheight=30colspan=4align=centervalign=middleahref=Book_Edit.ASP?ID=%=Rs(ID)%&Page=%=Page%修改留言/a    ahref=javascript:if(window.confirm('你确实要删除吗?')==true){window.location='?action=Delbook&ID=%=Rs(ID)%&Page=%=Page%';}删除留言/a/td/tr%EndIf%/tablep/p%PageSize=PageSize-1Rs.MoveNextLoop%tablewidth=550align=centercellpadding=0cellspacing=0trtdalign=right%Response.Write每页&Rs.PageSize&条/共&Rs.RecordCount&条 第&Page&页/共&Rs.PageCount&页 Response.Writeahref=?Page=1首 页/a IfCInt(Page)1thenResponse.Writeahref=?Page=&Page-1&上一页/a ElseResponse.Write上一页 EndIfIfCInt(Page)Rs.PageCountthenResponse.Writeahref