電子商務(wù)網(wǎng)站建設(shè)與管理實(shí)務(wù)項(xiàng)目課件

電子商務(wù)網(wǎng)站建設(shè)與維護(hù)李海平電子商務(wù)李海平課程內(nèi)容項(xiàng)目1電子商務(wù)網(wǎng)站的整體策劃

1項(xiàng)目2電子商務(wù)網(wǎng)站的開發(fā)和運(yùn)行環(huán)境的搭建2項(xiàng)目3網(wǎng)站數(shù)據(jù)庫的建設(shè)和使用3項(xiàng)目4網(wǎng)站注冊與登錄功能的設(shè)計(jì)和制作4項(xiàng)目5網(wǎng)站顯示商品功能的實(shí)現(xiàn)5項(xiàng)目6開發(fā)電子商務(wù)網(wǎng)站的新聞發(fā)布系統(tǒng)6項(xiàng)目7制作留言版系統(tǒng)7項(xiàng)目8開發(fā)電子商務(wù)網(wǎng)站在線訂單系統(tǒng)8項(xiàng)目9發(fā)布與管理電子商務(wù)網(wǎng)站9課程內(nèi)容項(xiàng)目1電子商務(wù)網(wǎng)站的整體策劃1項(xiàng)目2電子項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析一個電子商務(wù)網(wǎng)站一定會在網(wǎng)站上的提供留言本，用來記載客戶的反饋信息，與客戶建立一個交流平臺。

本項(xiàng)目的任務(wù)就是采用ASP技術(shù)建立留言板系

統(tǒng)，包括顯示網(wǎng)站瀏覽者即用戶進(jìn)行留言、留言修改、留言刪除，管理人員登入管理后臺進(jìn)行修改、留言刪除、留言回復(fù)。一個電子商務(wù)網(wǎng)站一定會在網(wǎng)站上的提供留言本，用來記載客戶的反一、模塊功能分析留言板系統(tǒng)的邏輯功能如圖7-1所示：身份驗(yàn)證身份驗(yàn)證登錄用戶簽寫留言修改留言刪除留言管理后臺查看留言商城客戶管理員圖7-1留言板系統(tǒng)的邏輯功能圖未注冊瀏覽者回復(fù)留言修改留言刪除留言一、模塊功能分析留言板系統(tǒng)的邏輯功能如圖7-1所示：身份驗(yàn)證整個新聞系統(tǒng)可以劃分為以下幾個功能塊：1、留言信息分頁顯示為了便于將網(wǎng)站瀏覽者查看留言。2、簽寫留言注冊并登錄用戶可以簽寫留言，向數(shù)據(jù)庫添加記錄。3、修改留言注冊并登錄用戶可以修改自己簽寫的留言，更新數(shù)據(jù)庫記錄。4、刪除留言注冊并登錄用戶可以刪除自己簽寫的留言，刪除數(shù)據(jù)庫記錄5、管理留言管理員通過正確的用戶名和密碼登錄管理后臺，從而擁有管理員的身份，才具有管理留言的操作權(quán)限，對留言進(jìn)行回復(fù)、修改、刪除。整個新聞系統(tǒng)可以劃分為以下幾個功能塊：任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)創(chuàng)建一個動態(tài)站點(diǎn)，前臺訪問文件放在站點(diǎn)目錄下，后臺管理文件放在ADMIN文件夾下，數(shù)據(jù)庫放在DATA文件夾中，所有圖像文件放在IMAGES文件夾中。如圖7-2.圖7-2留言板系統(tǒng)各文件及文件夾的對應(yīng)關(guān)系二、規(guī)劃系統(tǒng)創(chuàng)建一個動態(tài)站點(diǎn)，前臺訪問文件放在站點(diǎn)目錄下，后各頁面的功能如下：Index.ASP：網(wǎng)上購物系統(tǒng)首頁。Conn.ASP：前臺數(shù)據(jù)庫連接程序文件。Book_List.ASP：留言內(nèi)容列表頁面。

Book_Write.ASP：留言簽寫頁面。Book_Edit.ASP：留言修改頁面。

Login.ASP：前臺用戶登錄頁面。Logout.ASP：前臺用戶注銷頁面。

Reg.ASP：前臺用戶注冊頁面。Edit_UserINfo.ASP：前臺用戶注冊信息修改頁面。User_Info.ASP：前臺用戶注冊信息顯示頁面。Top.ASP：網(wǎng)上購物系統(tǒng)前臺頁面頂部。ADMIN文件夾下：Conn.ASP：后臺數(shù)據(jù)庫連接程序文件。Book_List.ASP：管理員留言管理顯示留言內(nèi)容列表頁面。Book_Edit.ASP：管理員留言修改、回復(fù)留言頁面。Index.ASP：后臺管理框架頁面。

Munu.ASP：管理頁面左側(cè)菜單。Main.ASP：后臺管理主頁面。

Login.ASP：管理員登錄頁面。Logout.ASP：管理員注銷頁面。

User_All.ASP：前臺用戶管理頁面。各頁面的功能如下：任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析三、數(shù)據(jù)庫設(shè)計(jì)留言信息表存儲的內(nèi)容和字段如圖7-3所示圖7-3留言信息存儲表Guest_Book在整個網(wǎng)站的數(shù)據(jù)庫DATA中建立一個表Guest_Book用于存放留言信息，包含字段ID（新聞ID，設(shè)為主鍵）、User（留言用戶）、Title（留言標(biāo)題）、Content（留言內(nèi)容）、PostTime（留言時(shí)間）、IP（留言用戶的IP地址）、Reply（回復(fù)內(nèi)容）、ReplyTime（回復(fù)時(shí)間）。三、數(shù)據(jù)庫設(shè)計(jì)留言信息表存儲的內(nèi)容和字段如圖7-3所示圖7任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析四、公共頁面1、數(shù)據(jù)庫連接文件數(shù)據(jù)庫連接文件Conn.ASP，利用該頁面可以建立每個ASP頁面與數(shù)據(jù)庫的連接，便于程序是維護(hù)。代碼如下：<% DimConn,Str,db db="data/data.mdb" SetConn=Server.CreateObject("ADODB.Connection") Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(""&db&"") Conn.OpenStr%>在其它頁面中可使用“<!--#includefile="Conn.ASP"-->”的方法將此文件包含進(jìn)來。四、公共頁面1、數(shù)據(jù)庫連接文件<%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.CSS"rel="stylesheet"type="text/css">”的方法鏈接到該文件。2、樣式表文件body,tr,td{font-family3、公共函數(shù)新聞系統(tǒng)在顯示新聞內(nèi)容時(shí)會對出現(xiàn)的回車符、換行符和空格符等特殊字符進(jìn)行處理才能顯示出來。公共函數(shù)頁面Functiong.ASP放在保存于INC文件夾中，代碼如下：<% FunctionUnHtml(str) UnHtml=str Ifstr<>""Then UnHtml=replace(UnHtml,"&","&") UnHtml=replace(UnHtml,"<","<") UnHtml=replace(UnHtml,">",">") UnHtml=replace(UnHtml,chr(34),""") UnHtml=replace(UnHtml,chr(13),"<br>") UnHtml=replace(UnHtml,chr(32)," ") EndIf EndFunction%>在其它頁面中可使用“<!--#includefile="INC/Function.ASP"-->”的方法將此文件包含進(jìn)來。3、公共函數(shù)<% 項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_List.ASP二、Book_Write.ASP：留言簽寫頁面三、Book_Edit.ASP：留言修改頁面任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_L一、留言內(nèi)容顯示頁面Book_List.ASP客戶查看留言從表Guest_Book中查詢所有記錄是否有記錄設(shè)置每頁記錄數(shù)取得頁碼，設(shè)定頁碼設(shè)置計(jì)數(shù)器判斷是否還有記錄或計(jì)數(shù)已到顯示留言信息（根據(jù)是否是登錄用戶和是否有回復(fù)顯示修改和刪除鏈接）顯示分頁鏈接結(jié)束顯示沒有新聞是否否是圖7-4留言內(nèi)容顯示頁面流程一、留言內(nèi)容顯示頁面Book_List.ASP客戶查看從表圖7-5留言顯示頁面圖7-5留言顯示頁面<!--#includefile="Conn.ASP"--><!--#includefile="INC/Function.ASP"--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>客戶留言-列出留言</title><linkhref="INC/Main.CSS"rel="stylesheet"type="text/css"></head><bodyleftmargin="0"topmargin="0"><tablewidth="900"border="0"align="center"cellpadding="0"cellspacing="0"><tr><td><!--#includefile="top.asp"--></td></tr><tr><tdheight="32"align="right"><ahref="Book_Write.ASP">簽寫留言</a>   </td></tr><tr><td>

<% DimRs,Sql SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookOrderByIDDesc" Rs.OpenSql,Conn,1,1 IfRs.EofAndRs.EofThen Response.Write"<palign=center>目前還沒有留言！</p>" Else Page=Request("Page") Rs.PageSize=5 PageSize=Rs.PageSize IfPage=""ThenPage=1 Rs.AbsolutePage=Page DoWhileNotRs.Eof AndPageSize>0%><tablewidth="600"border="1"align="center"cellpadding="0"cellspacing="0"bordercolor="#CCCCCC"><tr><tdwidth="80"height="30"align="center"valign="middle">留言者</td><tdwidth="220"> <%=Rs("User")%></td><tdwidth="80"align="center"valign="middle">留言時(shí)間</td><tdwidth="220"> <%=Rs("PostTime")%></td></tr><tr><tdheight="30"align="center"valign="middle">留言主題</td><tdcolspan="3"> <%=Rs("Title")%></td></tr><tr><tdheight="30"align="center"valign="middle">留言內(nèi)容</td><tdcolspan="3"><%=UnHtml(Rs("Content"))%></td></tr><%IfRs("Reply")<>""Then%> <tr><tdheight="30"align="center"valign="middle">留言回復(fù)</td><tdcolspan="3"><%=UnHtml(Rs("Reply"))%><br> [<%=Rs("ReplyTime")%>]</td></tr> <%EndIf%><%IfSession("User")=Trim(Rs("User"))andRs("Reply")=""Then%> <tr><tdheight="30"colspan="4"align="center"valign="middle"> <ahref="Book_Edit.ASP?ID=<%=Rs("ID")%>&Page=<%=Page%>">修改留言</a>     <ahref="javascript:if(window.confirm('你確實(shí)要刪除嗎?')==true){window.location='?action=Delbook&ID=<%=Rs("ID")%>&Page=<%=Page%>';}">刪除留言</a> </td></tr> <%EndIf%></table><p></p><%<!--#includefile="Conn.ASP"-PageSize=PageSize-1Rs.MoveNext Loop%><tablewidth="550"align="center"cellpadding="0"cellspacing="0"><tr><tdalign=right><% Response.Write"每頁"&Rs.PageSize&"條/共"&Rs.RecordCount&"條

第"&Page&"頁/共"&Rs.PageCount&"頁 "Response.Write"<ahref=?Page=1>首

頁</a> "IfCInt(Page)>1thenResponse.Write"<ahref=?Page="&1&">上一頁</a> "ElseResponse.Write"上一頁 "EndIfIfCInt(Page)<Rs.PageCountthenResponse.Write"<ahref=?Page="&Page+1&">下一頁</a> "ElseResponse.Write"下一頁 "EndIfResponse.Write"<ahref=?Page="&Rs.PageCount&">末

頁</a> " EndIf Rs.CloseSetRs=nothing%></td></tr></table> </td></tr><tr><td> </td></tr><tr><td><!--#includefile="Bottom.ASP"--></td></tr></table><p> </p></body></html><%IfRequest("action")="Delbook"ThenCallDel_Book()EndIfSubDel_Book()id=Request("id")Page=Request("Page")Conn.Execute("DeleteFromGuest_BookWhereID="&id)Response.Redirect"?Page="&Page&""EndSub%>PageSize=PageSize-1<td><!--任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_List.ASP二、Book_Write.ASP：留言簽寫頁面三、Book_Edit.ASP：留言修改頁面任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_L二、Book_Write.ASP：留言簽寫頁面身份驗(yàn)證客戶輸入留言3、留言列表頁面1、JS判定管理后臺錯誤提示填寫錯誤2、保存到數(shù)據(jù)庫填寫正確用戶登錄頁面登錄用戶未登錄用戶圖7-6簽寫留言頁面流程二、Book_Write.ASP：留言簽寫頁面身份驗(yàn)證客戶圖7-7簽寫留言頁面<!--#includefile="Conn.ASP"--><!--#includefile="INC/Function.ASP"--><%IfSession("User")=""ThenResponse.Redirect("Login.asp?MsgI=1")EndIF%>

<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>客戶留言-簽寫留言</title><linkhref="INC/Main.CSS"rel="stylesheet"type="text/css"><Scriptlanguage="javascript">functionChkBook(){ if(document.AddBook.Title.value=="") { alert('請留下留言主題！'); document.AddBook.Title.focus(); returnfalse; } if(document.AddBook.Content.value=="") { alert('請輸入留言內(nèi)容！'); document.AddBook.Content.focus(); returnfalse; } }</Script></head>圖7-7簽寫留言頁面<!--#includefile=<bodyleftmargin="0"topmargin="0"><tablewidth="900"border="0"align="center"cellpadding="0"cellspacing="0"><tr><td><!--#includefile="top.asp"--></td></tr><tr><tr><tdheight="30"align="center"><%=Session("User")%>，您好！

請留下您的寶貴意見?。?！</td></tr><td><formname="AddBook"method="post"action="?action=AddBook"onSubmit="return(ChkBook());"><tablewidth="600"border="0"align="center"cellpadding="0"cellspacing="0"bordercolor="#CCCCCC"><tr><tdheight="30"align="center"valign="middle">留言主題</td><td><inputtype="hidden"name="User"id="User"value="<%=Session("User")%>"> <inputname="Title"type="text"id="Title"size="50"> </td></tr><tr><tdalign="center"valign="middle">留言內(nèi)容</td><td><textareaname="Content"cols="60"rows="8"id="Content"></textarea></td></tr> <tr><tdheight="35"colspan="2"align="center"valign="middle"> <inputtype="submit"name="Submit2"value="提交">     <inputtype="reset"name="Submit3"value="重置"> </td></tr></table></form> </td></tr><tr><td> </td></tr><tr><td><!--#includefile="Bottom.ASP"--></td></tr></table><p> </p></body></html><% Iftrim(Request("action"))="AddBook"Then CallSave_Book() EndIf

SubSave_Book() DimUser,Title,Content,Rs,Sql User=Trim(Request.Form("User")) Title=Trim(Request.Form("Title")) Content=Trim(Request.Form("Content"))

SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_book" Rs.OpenSql,Conn,2,3 Rs.AddNew Rs("User")=User Rs("Title")=Title Rs("Content")=Content Rs("PostTime")=Now() Rs("IP")=Request.ServerVariables("REMOTE_ADDR") Rs("Reply")="" Rs.Update Rs.Close SetRs=nothing Response.Redirect"Book_list.asp" EndSub %><bodyleftmargin="0"topmargi任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_List.ASP二、Book_Write.ASP：留言簽寫頁面三、Book_Edit.ASP：留言修改頁面任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_L三、Book_Edit.ASP：留言修改頁面1、在表單中顯示留言內(nèi)容2、修改3、更新數(shù)據(jù)庫錯誤提示修改留言4、留言顯示當(dāng)前頁JS判定填寫錯誤填寫正確圖7-8留言修改頁面流程三、Book_Edit.ASP：留言修改頁面1、在表單中顯圖7-9留言修改頁面<!--#includefile="Conn.ASP"--><!--#includefile="INC/Function.ASP"--><%IfSession("User")=""ThenResponse.Redirect("Login.asp?MsgI=1")EndIF%><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>客戶留言-修改留言</title><linkhref="INC/Main.CSS"rel="stylesheet"type="text/css"><Scriptlanguage="javascript">functionChkBook(){if(document.AddBook.Title.value==""){alert('請留下留言主題！'); document.AddBook.Title.focus(); returnfalse; } if(document.AddBook.Content.value=="") { alert('請輸入留言內(nèi)容！'); document.AddBook.Content.focus(); returnfalse;} }</Script></head><bodyleftmargin="0"topmargin="0"><tablewidth="900"border="0"align="center"cellpadding="0"cellspacing="0"><tr><td><!--#includefile="top.asp"--></td></tr><tr>圖7-9留言修改頁面<!--#includefile="<tdheight="35"align="center"><%=Session("User")%>，您好！

請多提寶貴的意見或建議！?。⌒薷牧粞?。</td></tr><tr><td><% DimRs,Sql ID=trim(Request("ID")) SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookwhereID="&ID Rs.OpenSql,Conn,1,1 IfRs.EofAndRs.EofThen Response.Write"<palign=center>目前還沒有留言！</p>" Else Page=Request("Page")

%><formname="AddBook"method="post"action="?action=EditBook&Page=<%=Page%>&ID=<%=ID%>"onSubmit="return(ChkBook());"><tablewidth="600"border="1"align="center"cellpadding="0"cellspacing="0"bordercolor="#CCCCCC"><tr><tdwidth="80"height="30"align="center"valign="middle">留言時(shí)間</td><td><inputname="User"type="hidden"id="User"value="<%=Session("User")%>"><%=Rs("PostTime")%></td></tr><tr><tdheight="30"align="center"valign="middle">留言主題</td><td><inputname="Title"type="text"id="Title"value="<%=Rs("Title")%>"size="50"></td></tr><tr><tdalign="center"valign="middle">留言內(nèi)容</td><td><textareaname="Content"cols="60"rows="8"><%=Rs("Content")%></textarea></td></tr><tr><tdheight="35"colspan="4"align="center"valign="middle"> <inputtype="submit"name="Submit2"value="提交">     <inputtype="reset"name="Submit3"value="重置"> </td></tr></table></form><% EndIf Rs.CloseSetRs=nothing%></td></tr><td><!--#includefile="Bottom.ASP"--></td></tr></table><p> </p></body></html><%Iftrim(Request("action"))="EditBook"Then CallSave_Book() EndIf SubSave_Book() DimUser,Title,Content,Rs,Sql 'ID=Trim(Request.Form("ID")) User=Trim(Request.Form("User")) Title=Trim(Request.Form("Title")) Content=Trim(Request.Form("Content")) SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookWhereID="&ID&"" Rs.OpenSql,Conn,2,3 Rs("User")=User Rs("Title")=Title Rs("Content")=Content&ID Rs("PostTime")=Now() Rs("IP")=Request.ServerVariables("REMOTE_ADDR") Rs.Update Rs.Close SetRs=nothing Response.Redirect"Book_list.asp?Page="&Page EndSub %><tdheight="35"align="center3.安裝完成后，再次進(jìn)入

控制面板，選擇

管理工具，雙擊

Internet(IIS)管理器

選項(xiàng)，進(jìn)入IIS設(shè)置。

3.安裝完成后，再次進(jìn)入

控制面板，選擇

管理工具，雙擊

I項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)一、留言板系統(tǒng)管理頁面——分頁顯示、刪除頁面Book_List.ASP二、留言的回復(fù)、修改頁面Book_Edit.ASP任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)一、留言板系統(tǒng)管理頁面——分頁一、留言板系統(tǒng)管理頁面——分頁顯示、刪除頁面Book_List.ASP圖7-10留言板系統(tǒng)管理頁面一、留言板系統(tǒng)管理頁面——分頁顯示、刪除頁面Bo代碼如下。<!--#includefile="Conn.ASP"--><!--#includefile="inc/function.asp"--><%IfSession("Admin")=""ThenResponse.Redirect"login.asptarget='_parent'"%>

<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>留言本-管理</title><linkhref="inc/main.css"rel="stylesheet"type="text/css"></head><bodyleftmargin="0"topmargin="0"><tablewidth="100%"border="0"align="center"cellpadding="0"cellspacing="0"><tr><tdheight="25"background="IMAGES/BJ.GIF">留言管理</td></tr><tr><tdheight="25"></td></tr><tr><td><% DimRs,Sql SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookOrderByIDDesc" Rs.OpenSql,Conn,1,1 IfRs.EofAndRs.EofThen Response.Write"<palign=center>目前還沒有留言！</p>" Else Page=Request("Page") Rs.PageSize=2 PageSize=Rs.PageSize IfPage=""ThenPage=1 Rs.AbsolutePage=Page DoWhileNotRs.Eof AndPageSize>0%><tablewidth="600"border="0"align="center"cellpadding="0"cellspacing="1"bordercolor="#CCCCCC"bgcolor="#37ABFF"><tr><tdwidth="80"height="30"align="center"valign="middle"bgcolor="#FFFFFF">留言者</td><tdwidth="220"bgcolor="#FFFFFF"> <%=Rs("User")%></td><tdwidth="80"align="center"valign="middle"bgcolor="#FFFFFF">留言時(shí)間</td><tdwidth="220"bgcolor="#FFFFFF"> <%=Rs("PostTime")%></td></tr><tdheight="30"align="center"valign="middle"bgcolor="#FFFFFF">留言主題</td><tdcolspan="3"bgcolor="#FFFFFF"> <%=Rs("Title")%></td></tr><tdheight="30"align="center"valign="middle"bgcolor="#FFFFFF">留言內(nèi)容</td>代碼如下。<tdcolspan="3"bgcolor="#FFFFFF"><%=UnHtml(Rs("Content"))%></td></tr><tdheight="30"align="center"valign="middle"bgcolor="#FFFFFF">留言回復(fù)</td><tdcolspan="3"bgcolor="#FFFFFF"><%=UnHtml(Rs("Reply"))%><br> [<%=Rs("ReplyTime")%>]</td></tr><tr><tdheight="30"colspan="4"align="center"valign="middle"bgcolor="#FFFFFF"> <ahref="Book_Edit.ASP?ID=<%=Rs("ID")%>&Page=<%=Page%>">回復(fù)留言</a>     <ahref="javascript:if(window.confirm('你確實(shí)要刪除嗎?')==true){window.location='?action=Delbook&ID=<%=Rs("ID")%>&Page=<%=Page%>';}">刪除留言</a></tr></table><p></p><% PageSize=PageSize-1Rs.MoveNext Loop%><tablewidth="550"align="center"cellpadding="0"cellspacing="0"><tr><tdalign=right><% Response.Write"每頁"&Rs.PageSize&"條/共"&Rs.RecordCount&"條

第"&Page&"頁/共"&Rs.PageCount&"頁 "Response.Write"<ahref=?Page=1>首

頁</a> "IfCInt(Page)>1thenResponse.Write"<ahref=?Page="&1&">上一頁</a> "ElseResponse.Write"上一頁 "EndIfIfCInt(Page)<Rs.PageCountthenResponse.Write"<ahref=?Page="&Page+1&">下一頁</a> "ElseResponse.Write"下一頁 "EndIfResponse.Write"<ahref=?Page="&Rs.PageCount&">末

頁</a> " EndIf Rs.CloseSetRs=nothing%></td></tr></table> </td></tr></table></body></html><%IfRequest("action")="Delbook"ThenCallDel_Book()EndIfSubDel_Book()id=Request("id")Page=Request("Page")Conn.Execute("DeleteFromGuest_BookWhereID="&id)Response.Redirect"?Page="&Page&""EndSub%><tdcolspan="3"bgcolor="#FFFF任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)一、留言板系統(tǒng)管理頁面——分頁顯示、刪除頁面Book_List.ASP二、留言的回復(fù)、修改頁面Book_Edit.ASP任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)一、留言板系統(tǒng)管理頁面——分頁二、留言的回復(fù)、修改頁面Book_Edit.ASP圖7-11留言板系統(tǒng)管理員回復(fù)、修改頁面二、留言的回復(fù)、修改頁面Book_Edit.ASP圖7-11代碼如下。<!--#includefile="Conn.ASP"--><!--#includefile="inc/function.asp"-->

<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>留言本-修改回復(fù)</title><linkhref="inc/main.css"rel="stylesheet"type="text/css"><Scriptlanguage="javascript">functionChkBook(){ if(document.AddBook.Title.value=="") {alert('請留下留言主題！'); document.AddBook.Title.focus(); returnfalse;} if(document.AddBook.Content.value=="") {alert('請輸入留言內(nèi)容！'); document.AddBook.Content.focus(); returnfalse;}}</Script></head><bodyleftmargin="0"topmargin="0"><tablewidth="100%"border="0"align="center"cellpadding="0"cellspacing="0"><tr><tdheight="25"background="IMAGES/BJ.GIF">留言管理>回復(fù)、管理留言</td></tr><tr><tdheight="25"></td></tr><tr><td><tr><td><% DimRs,Sql ID=trim(Request("ID")) SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookwhereID="&ID Rs.OpenSql,Conn,1,1 IfRs.EofAndRs.EofThen Response.Write"<palign=center>目前還沒有留言！</p>" Else Page=Request("Page")

%><formname="AddBook"method="post"action="?action=EditBook&Page=<%=Page%>&ID=<%=ID%>"onSubmit="return(ChkBook());"><tablewidth="600"border="0"align="center"cellpadding="0"cellspacing="1"bgcolor="#5DBBFF"><tr><tdwidth="80"height="30"align="center"valign="middle"bgcolor="#FFFFFF">留言者</td><tdwidth="220"bgcolor="#FFFFFF"> <inputname="User"type="text"id="User"value="<%=Rs("User")%>"></td><tdwidth="80"align="center"valign="middle"bgcolor="#FFFFFF">留言時(shí)間</td><tdwidth="220"bgcolor="#FFFFFF"> <%=Rs("PostTime")%></td></tr><tr><tdheight="30"align="center"valign="middle"bgcolor="#FFFFFF">留言主題</td><tdcolspan="3"bgcolor="#FFFFFF"> <inputname="Title"type="text"id="Title"value="<%=Rs("Title")%>"size="50"></td></tr><tr><tdheight="150"align="center"valign="middle"bgcolor="#FFFFFF">留言內(nèi)容</td>代碼如下。DimRs,Sql<tdcolspan="3"bgcolor="#FFFFFF"> <textareaname="Content"cols="60"rows="8"><%=Rs("Content")%></textarea></td></tr> <tr><tdheight="150"align="center"valign="middle"bgcolor="#FFFFFF">留言回復(fù)</td> <tdcolspan="3"bgcolor="#FFFFFF"> <textareaname="Reply"cols="60"rows="8"><%=Rs("Reply")%></textarea></td></tr><tr><tdheight="30"colspan="4"align="center"valign="middle"bgcolor="#FFFFFF"> <inputtype="submit"name="Submit2"value="提交">     <inputtype="reset"name="Submit3"value="重置"></td></tr></table></form><% EndIf Rs.CloseSetRs=nothing%> </td></tr></table></body></html>

<% Iftrim(Request("action"))="EditBook"Then CallSave_Book() EndIf

SubSave_Book() DimUser,Title,Content,Reply,Rs,Sql 'ID=Trim(Request.Form("ID")) User=Trim(Request.Form("User")) Title=Trim(Request.Form("Title")) Content=Trim(Request.Form("Content")) Reply=Trim(Request.Form("Reply"))

SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookWhereID="&ID&"" Rs.OpenSql,Conn,2,3 Rs("User")=User Rs("Title")=Title Rs("Content")=Content 'Rs("PostTime")=Now() Rs("Reply")=Reply Rs("ReplyTime")=Now() Rs.Update Rs.Close SetRs=nothing Response.Redirect"Book_list.asp?Page="&Page EndSub %>

<tdcolspan="3"bgcolor="#FFFTheendTheend電子商務(wù)網(wǎng)站建設(shè)與維護(hù)李海平電子商務(wù)李海平課程內(nèi)容項(xiàng)目1電子商務(wù)網(wǎng)站的整體策劃

1項(xiàng)目2電子商務(wù)網(wǎng)站的開發(fā)和運(yùn)行環(huán)境的搭建2項(xiàng)目3網(wǎng)站數(shù)據(jù)庫的建設(shè)和使用3項(xiàng)目4網(wǎng)站注冊與登錄功能的設(shè)計(jì)和制作4項(xiàng)目5網(wǎng)站顯示商品功能的實(shí)現(xiàn)5項(xiàng)目6開發(fā)電子商務(wù)網(wǎng)站的新聞發(fā)布系統(tǒng)6項(xiàng)目7制作留言版系統(tǒng)7項(xiàng)目8開發(fā)電子商務(wù)網(wǎng)站在線訂單系統(tǒng)8項(xiàng)目9發(fā)布與管理電子商務(wù)網(wǎng)站9課程內(nèi)容項(xiàng)目1電子商務(wù)網(wǎng)站的整體策劃1項(xiàng)目2電子項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析一個電子商務(wù)網(wǎng)站一定會在網(wǎng)站上的提供留言本，用來記載客戶的反饋信息，與客戶建立一個交流平臺。

本項(xiàng)目的任務(wù)就是采用ASP技術(shù)建立留言板系

統(tǒng)，包括顯示網(wǎng)站瀏覽者即用戶進(jìn)行留言、留言修改、留言刪除，管理人員登入管理后臺進(jìn)行修改、留言刪除、留言回復(fù)。一個電子商務(wù)網(wǎng)站一定會在網(wǎng)站上的提供留言本，用來記載客戶的反一、模塊功能分析留言板系統(tǒng)的邏輯功能如圖7-1所示：身份驗(yàn)證身份驗(yàn)證登錄用戶簽寫留言修改留言刪除留言管理后臺查看留言商城客戶管理員圖7-1留言板系統(tǒng)的邏輯功能圖未注冊瀏覽者回復(fù)留言修改留言刪除留言一、模塊功能分析留言板系統(tǒng)的邏輯功能如圖7-1所示：身份驗(yàn)證整個新聞系統(tǒng)可以劃分為以下幾個功能塊：1、留言信息分頁顯示為了便于將網(wǎng)站瀏覽者查看留言。2、簽寫留言注冊并登錄用戶可以簽寫留言，向數(shù)據(jù)庫添加記錄。3、修改留言注冊并登錄用戶可以修改自己簽寫的留言，更新數(shù)據(jù)庫記錄。4、刪除留言注冊并登錄用戶可以刪除自己簽寫的留言，刪除數(shù)據(jù)庫記錄5、管理留言管理員通過正確的用戶名和密碼登錄管理后臺，從而擁有管理員的身份，才具有管理留言的操作權(quán)限，對留言進(jìn)行回復(fù)、修改、刪除。整個新聞系統(tǒng)可以劃分為以下幾個功能塊：任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)創(chuàng)建一個動態(tài)站點(diǎn)，前臺訪問文件放在站點(diǎn)目錄下，后臺管理文件放在ADMIN文件夾下，數(shù)據(jù)庫放在DATA文件夾中，所有圖像文件放在IMAGES文件夾中。如圖7-2.圖7-2留言板系統(tǒng)各文件及文件夾的對應(yīng)關(guān)系二、規(guī)劃系統(tǒng)創(chuàng)建一個動態(tài)站點(diǎn)，前臺訪問文件放在站點(diǎn)目錄下，后各頁面的功能如下：Index.ASP：網(wǎng)上購物系統(tǒng)首頁。Conn.ASP：前臺數(shù)據(jù)庫連接程序文件。Book_List.ASP：留言內(nèi)容列表頁面。

Book_Write.ASP：留言簽寫頁面。Book_Edit.ASP：留言修改頁面。

Login.ASP：前臺用戶登錄頁面。Logout.ASP：前臺用戶注銷頁面。

Reg.ASP：前臺用戶注冊頁面。Edit_UserINfo.ASP：前臺用戶注冊信息修改頁面。User_Info.ASP：前臺用戶注冊信息顯示頁面。Top.ASP：網(wǎng)上購物系統(tǒng)前臺頁面頂部。ADMIN文件夾下：Conn.ASP：后臺數(shù)據(jù)庫連接程序文件。Book_List.ASP：管理員留言管理顯示留言內(nèi)容列表頁面。Book_Edit.ASP：管理員留言修改、回復(fù)留言頁面。Index.ASP：后臺管理框架頁面。

Munu.ASP：管理頁面左側(cè)菜單。Main.ASP：后臺管理主頁面。

Login.ASP：管理員登錄頁面。Logout.ASP：管理員注銷頁面。

User_All.ASP：前臺用戶管理頁面。各頁面的功能如下：任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析三、數(shù)據(jù)庫設(shè)計(jì)留言信息表存儲的內(nèi)容和字段如圖7-3所示圖7-3留言信息存儲表Guest_Book在整個網(wǎng)站的數(shù)據(jù)庫DATA中建立一個表Guest_Book用于存放留言信息，包含字段ID（新聞ID，設(shè)為主鍵）、User（留言用戶）、Title（留言標(biāo)題）、Content（留言內(nèi)容）、PostTime（留言時(shí)間）、IP（留言用戶的IP地址）、Reply（回復(fù)內(nèi)容）、ReplyTime（回復(fù)時(shí)間）。三、數(shù)據(jù)庫設(shè)計(jì)留言信息表存儲的內(nèi)容和字段如圖7-3所示圖7任務(wù)1：系統(tǒng)功能分析一、模塊功能分析二、規(guī)劃系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)四、公共頁面任務(wù)1：系統(tǒng)功能分析一、模塊功能分析四、公共頁面1、數(shù)據(jù)庫連接文件數(shù)據(jù)庫連接文件Conn.ASP，利用該頁面可以建立每個ASP頁面與數(shù)據(jù)庫的連接，便于程序是維護(hù)。代碼如下：<% DimConn,Str,db db="data/data.mdb" SetConn=Server.CreateObject("ADODB.Connection") Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(""&db&"") Conn.OpenStr%>在其它頁面中可使用“<!--#includefile="Conn.ASP"-->”的方法將此文件包含進(jìn)來。四、公共頁面1、數(shù)據(jù)庫連接文件<%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.CSS"rel="stylesheet"type="text/css">”的方法鏈接到該文件。2、樣式表文件body,tr,td{font-family3、公共函數(shù)新聞系統(tǒng)在顯示新聞內(nèi)容時(shí)會對出現(xiàn)的回車符、換行符和空格符等特殊字符進(jìn)行處理才能顯示出來。公共函數(shù)頁面Functiong.ASP放在保存于INC文件夾中，代碼如下：<% FunctionUnHtml(str) UnHtml=str Ifstr<>""Then UnHtml=replace(UnHtml,"&","&") UnHtml=replace(UnHtml,"<","<") UnHtml=replace(UnHtml,">",">") UnHtml=replace(UnHtml,chr(34),""") UnHtml=replace(UnHtml,chr(13),"<br>") UnHtml=replace(UnHtml,chr(32)," ") EndIf EndFunction%>在其它頁面中可使用“<!--#includefile="INC/Function.ASP"-->”的方法將此文件包含進(jìn)來。3、公共函數(shù)<% 項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)任務(wù)3：后臺留言管理系統(tǒng)的實(shí)現(xiàn)項(xiàng)目7制作留言版系統(tǒng)任務(wù)1：系統(tǒng)功能分析任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_List.ASP二、Book_Write.ASP：留言簽寫頁面三、Book_Edit.ASP：留言修改頁面任務(wù)2：留言發(fā)布頁面的實(shí)現(xiàn)一、留言內(nèi)容顯示頁面Book_L一、留言內(nèi)容顯示頁面Book_List.ASP客戶查看留言從表Guest_Book中查詢所有記錄是否有記錄設(shè)置每頁記錄數(shù)取得頁碼，設(shè)定頁碼設(shè)置計(jì)數(shù)器判斷是否還有記錄或計(jì)數(shù)已到顯示留言信息（根據(jù)是否是登錄用戶和是否有回復(fù)顯示修改和刪除鏈接）顯示分頁鏈接結(jié)束顯示沒有新聞是否否是圖7-4留言內(nèi)容顯示頁面流程一、留言內(nèi)容顯示頁面Book_List.ASP客戶查看從表圖7-5留言顯示頁面圖7-5留言顯示頁面<!--#includefile="Conn.ASP"--><!--#includefile="INC/Function.ASP"--><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>客戶留言-列出留言</title><linkhref="INC/Main.CSS"rel="stylesheet"type="text/css"></head><bodyleftmargin="0"topmargin="0"><tablewidth="900"border="0"align="center"cellpadding="0"cellspacing="0"><tr><td><!--#includefile="top.asp"--></td></tr><tr><tdheight="32"align="right"><ahref="Book_Write.ASP">簽寫留言</a>   </td></tr><tr><td>

<% DimRs,Sql SetRs=Server.CreateObject("ADODB.Recordset") Sql="Select*FromGuest_BookOrderByIDDesc" Rs.OpenSql,Conn,1,1 IfRs.EofAndRs.EofThen Response.Write"<palign=center>目前還沒有留言！</p>" Else Page=Request("Page") Rs.PageSize=5 PageSize=Rs.PageSize IfPage=""ThenPage=1 Rs.AbsolutePage=Page DoWhileNotRs.Eof AndPageSize>0%><tablewidth="600"border="1"align="center"cellpadding="0"cellspacing="0"bordercolor="#CCCCCC"><tr><tdwidth="80