ASP留言板实训报告书

数据库实训做的有关留言板的网页,主要运用asp语言编写

留言板实训报告

一、内容描述

随着互联网的发展，越来越多的用户已经可以使用互联网进行信息交互，而企业留言本的开发解决了信息交互复杂和交互困难的难题，通过留言本可以加强企业与用户之间的信息交互，同时也解决了企业与用户沟通不便等情况

留言板主要提供网上的一个信息发布的平台，大多作为网站的辅助功能存在。浏览网页的用户可以通过该留言板进行留言的查看和签写。而管理员则可以对用户的留言进行回复和删除等操作。

二、需求分析 2.1目标

随时了解广大客户的需求、对企业产品的意见、反馈信息及用户数据，便于企业更加方便的同用户进行信息交互，帮助企业更好的进行完善和改进，以满足广大客户的需求，促进企业与广大用户的友好关系

2.2软硬件条件

1硬件条件：较高的处理器，较大的内存空间，畅通的网络

2软件条件：windows2000/windows xp的操作系统；装有iis的web服务器；SQL2000的数据库；IE浏览器；Dreamweaver软件、记事本等

2.3功能设计

留言板分为三个模块：查看留言板、签写留言和管理留意模块

查看留言板模块：用户可以在该页面上查看所有的留言内容、留言主题、留言者姓名、QQ、主页、个人图像、留言时间及企业管理员对该留言的回复等信息

签写留言板模块：在该页面中用户必须填写自己的“姓名” 、“留言主题”、及“留言内容”，其它可以选择不填，用户的信息提交后将被保存到数据库的数据表中

管理留言模块：管理员登陆成功后进入管理页面（这里为简单起见，我们直接连接到主页manage.asp中）管理员可以通过“留言管理”查看留言信息，并对留言进行回复及对不良留言的删除或屏蔽等操作

数据库实训做的有关留言板的网页,主要运用asp语言编写

基本功能需求已经完成，以下是该留言板的功能模块划分图：

功能设计图 三、数据库设计

1概念模型

该留言板分为两个部分：一个是管理员信息，另一个是用户信息，该系统关系图如下所示：

管理员设计图

留言设计图 2关系模型

admin(id,admin,password)

main(id,name,sex,pic,oicq,yj,home,title,content,datel,repcontent) 3物理模型

在数据库中创建两个表，表admin和表main，如下所示：

数据库实训做的有关留言板的网页,主要运用asp语言编写

四 页面设计

4.1查看留言（该留言系统的主页）

该页面是留言的主要交流内容，进入留言首页看到的就是这个留言列表页，这里将页面分页显示，以便用户进行更直观的查看，通过该页面用户可以进入留言签写页面，管理员也可以通过该页面进入到管理页面，进行登陆验证等操作 4.2签写留言页面

数据库实训做的有关留言板的网页,主要运用asp语言编写

在查看留言页面单击“签写留言”便可进入留言签写页面，通过该页面用户可以填写任何留言，其中姓名和留言内容必须填写，其它可进行选择，该页面还提供了一些图片，供用户选择。填写完后点“写好了”按钮即可提交留言，用户发表留言成功，数据表中相应留言表增加一条记录 4.3管理员登陆页面

该页面主要是对管理员身份进行验证，数据表中已经建好管理员的登录名和相应的密码，管理员点“提交”后,如果该信息与数据库中一致则进入到管理页面（这里既为主页），通过该页面管理员可以对留言进行回复和删除

数据库实训做的有关留言板的网页,主要运用asp语言编写

4.4留言回复页面

管理员登陆成功后进入管理页面，然后点想要回复的留言，便可进入到该页面，对相应留言进行回复 4.5留言删除页面

由于时间关系留言的删除页面只是简单的链接在该留言系统的主页（即查看留言页面）上，管理员点“删除留言”后页面不会跳转，只是该条留言记录被删除，图同查看留言页（略）

五．程序设计

5.1主页程序 <%

dim conn,rs dim sql

set conn=server.createobject("adodb.connection") conn.open"driver={sql

server};server=127.0.0.1;database=liuyanban;trusted_connection=true" set rs=server.createobject("adodb.recordset") sql="select * from main " rs.open sql,conn,1,1 %> <%

dim page,pagenum rs.pagesize=5

pages=rs.pagecount

if request("page")="" or trim(request("page"))>trim(pages)then rs.absolutepage=1

数据库实训做的有关留言板的网页,主要运用asp语言编写

pageno=1 else

rs.absolutepage=request("page") pageno=request("page") end if j=0

do while not rs. eof and j<rs.pagesize %> <%

rs.movenext j=j+1 loop rs.close

set rs=nothing conn.close

set conn=nothing %>

<p align="center" class="STYLE1"><a href="manage.asp?page=1">首页</a>|<a href="manage.asp?page=<%=pageno-1%>">上一页</a>|<a href="manage.asp?page=<%=pageno+1%>">下一页</a>|<a href="manage.asp?page=<%=pages%>">尾页</a></p> 5.2签写留言程序 <%

dim conn dim rs dim sql

set conn=server.createobject("adodb.connection") conn.open"driver={sql

server};server=127.0.0.1;database=liuyanban;trusted_connection=true;" set rs=server.createobject("adodb.recordset") sql="select * from main" rs.open sql,conn,2,2 rs.addnew

rs("name")=request.form("xm") rs("sex")=request.form("sex") rs("pic")=request.form("pic") rs("oicq")=request.form("qq") rs("yj")=request.form("yj") rs("home")=request.form("zy") rs("title")=request.form("zt") rs("content")=request.form("nr") rs("datel")=request.form("time") rs.update rs.close

数据库实训做的有关留言板的网页,主要运用asp语言编写

set rs=nothing conn.close

set conn=nothing %>

5.3管理员身份验证 <%

dim cn dim admin dim password

set conn=server.createobject("adodb.connection") conn.open "driver={SQL

Server};server=127.0.0.1;database=liuyanban;Trusted_Connection=True" admin=request.form("user") password=request.form("pasw") if admin=""or password=""then

response. write("<script language=javascript>alert('请填写完整！');history.go(-1)</script>") end if

sql="select * from admin where admin='"&admin&"'and password='"&password&"'" set rs=conn.execute(sql) if rs. eof or rs. bof then

response.write"<script language=javascript>" response.write"alert('用户或密码不对！')；" response.write"javascript:history.go(-1);" response.write"</script>" else

session("admin")=admin

response.redirect("manage.asp") end if %>

5.4留言回复 <%

dim conn,rs dim sql

set conn=server.createobject("adodb.connection") conn.open "driver={SQL

Server};server=127.0.0.1;database=liuyanban;Trusted_Connection=True;" set rs= Server.CreateObject("adodb.recordset")

sql="select * from main where id =" &request("id") rs.open sql,conn,1,3 %> <%

数据库实训做的有关留言板的网页,主要运用asp语言编写

rs("repcontent")=request.form("hf") rs.update %>

5.5留言删除 <%

dim cn,rs dim sql dim id

id=request("id")

sql="delete from main where id="&"'"&id&"'" set cn=server.createobject("adodb.connection") cn.open"driver={sql

server};server=127.0.0.1;database=liuyanban;trusted_connection=true;" set rs=server.createobject("adodb.recordset") sql="select * from main" rs.open sql,cn,2,3 rs.delete rs.update rs.close

set rs=nothing cn.close

set cn=nothing

id=id&"信息已删除！"

response.Redirect("manage.asp") %>

本文来源：https://www.bwwdw.com/article/3554.html