基于技術(shù)的留言板系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、基于ASP技術(shù)的留言板系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)鮑平平江蘇省南通中等專(zhuān)業(yè)學(xué)校 信息技術(shù)系 江蘇 南通 226001作者簡(jiǎn)介：鮑平平 女 1984江蘇南通人講師，碩士 研究方向 職業(yè)教育學(xué)。摘要：留言板是動(dòng)態(tài)網(wǎng)頁(yè)技術(shù)的最常見(jiàn)的應(yīng)用形式，既實(shí)用，又貼近學(xué)生的實(shí)際，同時(shí)其所應(yīng)用的技術(shù)包含講授的重要知識(shí)點(diǎn)數(shù)據(jù)庫(kù)的添加、刪除和修改。因此，基于asp技術(shù)開(kāi)發(fā)一個(gè)簡(jiǎn)易的留言板系統(tǒng)能實(shí)現(xiàn)其基本的功能。關(guān)鍵詞：留言板；數(shù)據(jù)庫(kù)；添加；刪除；修改1設(shè)計(jì)思想Web 留言板類(lèi)似于BBS, 但BBS的版面過(guò)多, 不同的留言放在不同的主題中, 由于龐大的信息量影響到網(wǎng)頁(yè)信息搜索的速度，不適合應(yīng)用于小型網(wǎng)站。本文所設(shè)計(jì)的是用于一個(gè)班級(jí)

2、同學(xué)之間進(jìn)行信息交流的場(chǎng)所, 規(guī)模小、設(shè)計(jì)簡(jiǎn)單的Web 留言版就可以實(shí)現(xiàn)信息交流的功能, 而且它小巧簡(jiǎn)單, 因此更易于實(shí)現(xiàn), 在速度上比 BBS 也占優(yōu)。該系統(tǒng)界面設(shè)計(jì)環(huán)境：Dreamweaver ； 調(diào)試運(yùn)行程序的環(huán)境：Windows2000 Server、Intertnet Information Services ( IIS)；后臺(tái)數(shù)據(jù)庫(kù)：Microsoft Access 2010；代碼編寫(xiě)環(huán)境：Active Server Page 服務(wù)器環(huán)境服務(wù)器軟件：Internet Information Services ( IIS)；腳本語(yǔ)言：VBScript； 操作系統(tǒng)：Windows 20

3、00 Server2系統(tǒng)結(jié)構(gòu)21系統(tǒng)功能模塊留言板主要有以下6個(gè)功能模塊組成，如圖1所示。班級(jí)首頁(yè)新用戶(hù)注冊(cè)用戶(hù)登錄發(fā)表留言顯示留言修改留言刪除留言圖1 留言板功能模塊圖22系統(tǒng)功能分析 在班級(jí)首頁(yè)里面實(shí)現(xiàn)用戶(hù)身份驗(yàn)證，如果用戶(hù)能輸入正確的用戶(hù)名和密碼，那么頁(yè)面跳轉(zhuǎn)到發(fā)表留言頁(yè)面，否則彈出新用戶(hù)注冊(cè)頁(yè)面。在發(fā)表留言頁(yè)面，用戶(hù)可以發(fā)表自己的留言，提交以后在新的頁(yè)面能顯示所有的留言?xún)?nèi)容，并且對(duì)任意一條留言，點(diǎn)擊相應(yīng)的按鈕可以修改或刪除相應(yīng)的留言。數(shù)據(jù)庫(kù)結(jié)構(gòu)數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)流程整個(gè)數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)流程結(jié)構(gòu)如圖2所示：瀏覽器業(yè)務(wù)處理請(qǐng)求web服務(wù)器應(yīng)用程序服務(wù)器數(shù)據(jù)庫(kù)業(yè)務(wù)處理結(jié)果數(shù)據(jù)存取請(qǐng)求數(shù)據(jù)存取結(jié)果圖2

4、數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)流程系統(tǒng)后臺(tái)數(shù)據(jù)庫(kù)結(jié)構(gòu)數(shù)據(jù)庫(kù)名為：留言表名：新用戶(hù)注冊(cè)表，留言表，留言編輯表。 表1 新用戶(hù)注冊(cè)表(user)Name（主鍵）Password（密碼）文本（8）文本（8）表2 留言表(liuyan)ID(主鍵)Name（姓名） Zhuti（主題）Email(郵箱)Neirong（留言）自動(dòng)編號(hào)文本（8）文本（8）文本（8）文本（8）表3 留言編輯表(bjliuyan) ID(主鍵) Name(姓名) Zhuti（主題）Neirong（留言）Email(郵箱)Bianji（編輯留言）Shanchu（刪除留言）自動(dòng)編號(hào)文本（8）文本（8）文本（50）文本（8）文本（8） 文本（8）3系

5、統(tǒng)實(shí)現(xiàn) 留言板系統(tǒng)主要分成五個(gè)主要頁(yè)面，分別是首頁(yè)（含用戶(hù)登錄）Index.asp；發(fā)表留言頁(yè)面Fbly.asp；顯示留言頁(yè)面Xs；修改留言頁(yè)面Bjly.asp；刪除留言頁(yè)面S。頁(yè)面之間的鏈接關(guān)系如圖3所示。IFXS 圖3 留言表頁(yè)面之間鏈接關(guān)系圖用戶(hù)登錄身份驗(yàn)證圖4 留言板用戶(hù)登錄身份驗(yàn)證頁(yè)面部分實(shí)現(xiàn)代碼：<% set conn=Server.Createobject("adodb.connection")adoconn.Open"Driver=Microsoft Access Driver(*.mdb);DBQ="&Server.Map

6、Path("留言.mdb") username=request.form("username") password=request.form("password") if username="" or password="" then %><script language=”Vbscript”>Msgbox ”用戶(hù)名和密碼不能為空” </script>" <% ect ("index.asp")else set rs=Server

7、.Createobject("adodb.recordset") sql="select * from user where username='"&username&"' and password=”&password&”rs.open.sql conn,1,3 if username=rs("username") and password=rs("password") then ect "fbly.asp" else%> <

8、;script language=”Vbscript”>Msgbox ”用戶(hù)名或密碼輸入錯(cuò)誤，請(qǐng)確認(rèn)!” </script><% ect ("index.asp”)<%end if%> <%end if%> <% rs.close set rs=nothing conn.close set conn=nothing %> 發(fā)表留言發(fā)表留言頁(yè)面5所示：圖5 發(fā)表留言頁(yè)面部分實(shí)現(xiàn)代碼： （1）獲取用戶(hù)輸入 <%x=request.form("zhuti")y=request.form("nei

9、rong")z=request.form("name")w=request.form("email")session("x")=xsession("y")=ysession("z")=zsession("w")=wif request.Form("zhuti")="" then %><script language="vbscript">MsgBox "主題不能為空"&

10、lt;/script><%elseif request.Form("neirong")="" then %><script language="vbscript">MsgBox "內(nèi)容不能為空"</script><%elseresponse.redirect("ok.asp")%><%end ifend if%>（2）當(dāng)留言者填寫(xiě)完需要留言的內(nèi)容，并點(diǎn)擊提交按鈕以后，就實(shí)現(xiàn)向數(shù)據(jù)庫(kù)插入一條留言，其代碼實(shí)現(xiàn)如下：<%langu

11、age="VBscript" codepaeg="936"%><%set conn=server.CreateObject("adodb.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("留言.mdb")set rs=server.CreateObject("adodb.Recordset")title=sessi

12、on("x")body=session("y")author=session("z")email=session("w")rs.open "liuyan",conn,1,3rs("zhuti")=titlers("neirong")=bodyrs("name")=authorrs("email")=emailset rs=nothingResponse.Redirect "xsly.asp"%&g

13、t;顯示數(shù)據(jù)庫(kù)中留言?xún)?nèi)容顯示留言頁(yè)面(xsly.asp)如圖6：圖 6 顯示留言頁(yè)面（1）顯示出數(shù)據(jù)庫(kù)中留言表所有內(nèi)容的代碼<%response.Write("<table align=center border=1>")set conn=server.CreateObject("adodb.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("留言.mdb&q

14、uot;)set rs=conn.execute("select * from liuyan")response.Write("<tr>")response.Write("<td>"&rs(i).name&"</td>")nextresponse.Write("<td>編輯</td>")response.Write("<tr>")response.Write("<td>

15、;"&rs(j)&"</td>")<%response.Write("<td>")%><p><a href="bjly.asp?id=<%=rs("留言編號(hào)")%>">刪除</a> <%response.Write("</td>")%> <%response.Write("<td>")%> <a href=&quo

16、t;bianji2.asp?id=<%=rs("留言編號(hào)")%>">編輯</a> <%response.Write("</td>")%> <%response.Write("</tr>")%> <%end ifnextresponse.Write("<br>")wend %>“編輯”兩字時(shí)可以修改某一條留言 修改留言頁(yè)面(bjly.asp)如圖7所示圖7 修改留言頁(yè)面修改留言頁(yè)面的代碼如下：<%Id

17、=request.querystring(“id”)Session(“id”)=id%><%title=Request.form("zhuti")body=Request.form ("neirong")name1=Request.form ("name")set conn=server.CreateObject("adodb.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=&quo

18、t;&server.mappath("留言.mdb")set rs=server.CreateObject("adodb.Recordset")sql="select * from liuyan where id="&session("id")rs.open sql,conn,1,3rs("zhuti")=titlers("neirong")=bodyrs("name")=authorrs.update set rs=nothingresponse.Redirect("xsly.asp")%>（3）當(dāng)點(diǎn)擊xsly.asp中刪除按鈕后，刪除相應(yīng)的留言，代碼如下：<%set conn=server.CreateObject("adodb.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("留言.mdb")set rs=server.CreateObject("a