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

  • 格式:doc
  • 大小:96.00 KB
  • 文档页数:9

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

鲍平平

摘要:留言板是动态网页技术的最常见的应用形式,既实用,又贴近学生的实际,同时其所应用的技术包含讲授的重要知识点——数据库的添加、删除和修改。因此,基于asp技术开发一个简易的留言板系统能实现其基本的功能。

关键词:留言板;数据库;添加;删除;修改

1.设计思想

Web 留言板类似于BBS, 但BBS的版面过多, 不同的留言放在不同的主题中, 由于庞大的信息量影响到网页信息搜索的速度,不适合应用于小型网站。本文所设计的是用于一个班级同学之间进行信息交流的场所, 规模小、设计简单的Web 留言版就可以实现信息交流的功能, 而且它小巧简单, 因此更易于实现, 在速度上比 BBS 也占优。

该系统界面设计环境:Dreamweaver ;

调试运行程序的环境:Windows2000 Server、Intertnet Information Services ( IIS);

后台数据库:Microsoft Access 2010;

代码编写环境:Active Server Page 服务器环境

服务器软件:Internet Information Services ( IIS);

脚本语言:VBScript;

操作系统:Windows 2000 Server

2.系统结构

2.1系统功能模块

留言板主要有以下6个功能模块组成,如图1所示。

班级首页 新用户注册

用户登录 发表留言

显示留言

修改留言

删除留言 图1 留言板功能模块图

2.2系统功能分析

在班级首页里面实现用户身份验证,如果用户能输入正确的用户名和密码,那么页面跳转到发表留言页面,否则弹出新用户注册页面。在发表留言页面,用户可以发表自己的留言,提交以后在新的页面能显示所有的留言内容,并且对任意一条留言,点击相应的按钮可以修改或删除相应的留言。

2.3数据库结构

2.3.1数据库的访问流程

整个数据库的访问流程结构如图2所示:

图2 数据库的访问流程

2.3.2系统后台数据库结构

数据库名为:留言

表名:新用户注册表,留言表,留言编辑表。

表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)

浏览器 业务处理请求 web服务器

应用程序服务器 数据库 业务处理结果 数据存取请求

数据存取结果 3.系统实现

留言板系统主要分成五个主要页面,分别是首页(含用户登录)——Index..asp;发表留言页面——Fbly.asp;显示留言页面——Xsly.asp;修改留言页面——Bjly.asp;删除留言页面——Schu.asp。页面之间的链接关系如图3所示。

图3 留言表页面之间链接关系图

3.1用户登录身份验证

图4 留言板用户登录身份验证页面

部分实现代码:

<%

set conn=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft

Access Driver(*.mdb)};DBQ="&Server.MapPath("留言.mdb")

username=request.form("username")

password=request.form("password")

if username="" or password="" then %>

"

<% response.redirect ("index.asp")

else

set rs=Server.Createobject("adodb.recordset")

sql="select * from user where username='"&username&"' and password=’”&password&”’” Index.asp

Fbly.asp

Xsly.asp

Bjly.asp Schu.asp rs.open.sql conn,1,3

if username=rs("username") and password=rs("password") then

response.redirect "fbly.asp"

else%>

<% response.redirect ("index.asp”)

<%end if%>

<%end if%>

<%

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

3.2发表留言

发表留言页面fbly.asp界面如图5所示:

图5 发表留言页面

部分实现代码:

(1)获取用户输入

<%x=request.form("zhuti") y=request.form("neirong")

z=request.form("name")

w=request.form("email")

session("x")=x

session("y")=y

session("z")=z

session("w")=w

if request.Form("zhuti")="" then %>

<%else

if request.Form("neirong")="" then %>

<%else

response.redirect("ok.asp")

%>

<%end if

end if

%>

(2)当留言者填写完需要留言的内容,并点击提交按钮以后,就实现向数据库插入一条留言,其代码实现如下:

<%@language="VBscript" codepaeg="936"%>

<%set conn=server.CreateObject("adodb.connection")

conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("留言.mdb")

set rs=server.CreateObject("adodb.Recordset")

conn.open

title=session("x")

body=session("y")

author=session("z")

email=session("w")

rs.open "liuyan",conn,1,3

rs.addnew

rs("zhuti")=title

rs("neirong")=body

rs("name")=author

rs("email")=email

rs.update

rs.close

set rs=nothing

conn.Close

Response.Redirect "xsly.asp"

%>

3.3显示数据库中留言内容

显示留言页面(xsly.asp)如图6:

图 6 显示留言页面

(1)显示出数据库中留言表所有内容的代码

<%

response.Write("

")

set conn=server.CreateObject("adodb.connection")

conn.connectionstring="provider=microsoft.jet.oledb.4.0;data

source="&server.mappath("留言.mdb")

conn.open

set rs=conn.execute("select * from liuyan")

response.Write("

")

for i=0 to rs.fields.count-1

response.Write("

")

next

response.Write("

")

while not rs.eof

response.Write("

")

for j=0 to rs.fields.count-3

response.Write("

")

<%response.Write("

")%>

<%response.Write("

")%>

<%response.Write("

")%>

<%end if

"&rs(i).name&"编辑
"&rs(j)&"")%>

">删除

<%response.Write("

")%>

">编辑

<%response.Write("