基于技术的留言板系统的设计与实现

1、基于ASP技术的留言板系统的设计与实现鲍平平江苏省南通中等专业学校 信息技术系 江苏 南通 226001作者简介：鲍平平 女 1984江苏南通人讲师，硕士 研究方向 职业教育学。摘要：留言板是动态网页技术的最常见的应用形式，既实用，又贴近学生的实际，同时其所应用的技术包含讲授的重要知识点数据库的添加、删除和修改。因此，基于asp技术开发一个简易的留言板系统能实现其基本的功能。关键词：留言板；数据库；添加；删除；修改1设计思想Web 留言板类似于BBS, 但BBS的版面过多, 不同的留言放在不同的主题中, 由于庞大的信息量影响到网页信息搜索的速度，不适合应用于小型网站。本文所设计的是用于一个班级

2、同学之间进行信息交流的场所, 规模小、设计简单的Web 留言版就可以实现信息交流的功能, 而且它小巧简单, 因此更易于实现, 在速度上比 BBS 也占优。该系统界面设计环境：Dreamweaver ； 调试运行程序的环境：Windows2000 Server、Intertnet Information Services ( IIS)；后台数据库：Microsoft Access 2010；代码编写环境：Active Server Page 服务器环境服务器软件：Internet Information Services ( IIS)；脚本语言：VBScript； 操作系统：Windows 20

3、00 Server2系统结构21系统功能模块留言板主要有以下6个功能模块组成，如图1所示。班级首页新用户注册用户登录发表留言显示留言修改留言删除留言图1 留言板功能模块图22系统功能分析 在班级首页里面实现用户身份验证，如果用户能输入正确的用户名和密码，那么页面跳转到发表留言页面，否则弹出新用户注册页面。在发表留言页面，用户可以发表自己的留言，提交以后在新的页面能显示所有的留言内容，并且对任意一条留言，点击相应的按钮可以修改或删除相应的留言。数据库结构数据库的访问流程整个数据库的访问流程结构如图2所示：浏览器业务处理请求web服务器应用程序服务器数据库业务处理结果数据存取请求数据存取结果图2

4、数据库的访问流程系统后台数据库结构数据库名为：留言表名：新用户注册表，留言表，留言编辑表。 表1 新用户注册表(user)Name（主键）Password（密码）文本（8）文本（8）表2 留言表(liuyan)ID(主键)Name（姓名） Zhuti（主题）Email(邮箱)Neirong（留言）自动编号文本（8）文本（8）文本（8）文本（8）表3 留言编辑表(bjliuyan) ID(主键) Name(姓名) Zhuti（主题）Neirong（留言）Email(邮箱)Bianji（编辑留言）Shanchu（删除留言）自动编号文本（8）文本（8）文本（50）文本（8）文本（8） 文本（8）3系

5、统实现 留言板系统主要分成五个主要页面，分别是首页（含用户登录）Index.asp；发表留言页面Fbly.asp；显示留言页面Xs；修改留言页面Bjly.asp；删除留言页面S。页面之间的链接关系如图3所示。IFXS 图3 留言表页面之间链接关系图用户登录身份验证图4 留言板用户登录身份验证页面部分实现代码：<% 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 ”用户名和密码不能为空” </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 ”用户名或密码输入错误，请确认!” </script><% ect ("index.asp”)<%end if%> <%end if%> <% rs.close set rs=nothing conn.close set conn=nothing %> 发表留言发表留言页面5所示：图5 发表留言页面部分实现代码： （1）获取用户输入 <%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 "内容不能为空"</script><%elseresponse.redirect("ok.asp")%><%end ifend if%>（2）当留言者填写完需要留言的内容，并点击提交按钮以后，就实现向数据库插入一条留言，其代码实现如下：<%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;显示数据库中留言内容显示留言页面(xsly.asp)如图6：图 6 显示留言页面（1）显示出数据库中留言表所有内容的代码<%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("留言编号")%>">删除</a> <%response.Write("</td>")%> <%response.Write("<td>")%> <a href=&quo

16、t;bianji2.asp?id=<%=rs("留言编号")%>">编辑</a> <%response.Write("</td>")%> <%response.Write("</tr>")%> <%end ifnextresponse.Write("<br>")wend %>“编辑”两字时可以修改某一条留言 修改留言页面(bjly.asp)如图7所示图7 修改留言页面修改留言页面的代码如下：<%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）当点击xsly.asp中删除按钮后，删除相应的留言，代码如下：<%set conn=server.CreateObject("adodb.connection")conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("留言.mdb")set rs=server.CreateObject("a