留言板实训报告
一、内容描述
随着互联网的发展，越来越多的用户已经可以使用互联网进行信息交互，而企业留言本的开发解决了信息交互复杂和交互困难的难题，通过留言本可以加强企业与用户之间的信息交互，同时也解决了企业与用户沟通不便等情况
留言板主要提供网上的一个信息发布的平台，大多作为网站的辅助功能存在。浏览网页的用户可以通过该留言板进行留言的查看和签写。而管理员则可以对用户的留言进行回复和删除等操作。
二、需求分析 2.1目标
随时了解广大客户的需求、对企业产品的意见、反馈信息及用户数据，便于企业更加方便的同用户进行信息交互，帮助企业更好的进行完善和改进，以满足广大客户的需求，促进企业与广大用户的友好关系
2.2软硬件条件
1硬件条件：较高的处理器，较大的内存空间，畅通的网络
2软件条件：windows2000/windows xp的操作系统；装有iis的web服务器；SQL2000的数据库；IE浏览器；Dreamweaver软件、记事本等
2.3功能设计
留言板分为三个模块：查看留言板、签写留言和管理留意模块
查看留言板模块：用户可以在该页面上查看所有的留言内容、留言主题、留言者姓名、QQ、主页、个人图像、留言时间及企业管理员对该留言的回复等信息
签写留言板模块：在该页面中用户必须填写自己的“姓名” 、“留言主题”、及“留言内容”，其它可以选择不填，用户的信息提交后将被保存到数据库的数据表中
管理留言模块：管理员登陆成功后进入管理页面（这里为简单起见，我们直接连接到主页manage.asp中）管理员可以通过“留言管理”查看留言信息，并对留言进行回复及对不良留言的删除或屏蔽等操作
基本功能需求已经完成，以下是该留言板的功能模块划分图：
留言板 查看留言模块 签写留言模块 管理留言模块 留言出管理 管理员登陆 功能设计图 三、数据库设计
1概念模型
该留言板分为两个部分：一个是管理员信息，另一个是用户信息，该系统关系图如下所示：
管理员 编号 姓名 密码 管理员设计图
编号 姓名 性别 留言 图像 内容 回复 时间 QQ 电子邮件 主页 主题
留言设计图 2关系模型
admin(id,admin,password)
main(id,name,sex,pic,oicq,yj,home,title,content,datel,repcontent) 3物理模型
在数据库中创建两个表，表admin和表main，如下所示：
四 页面设计
4.1查看留言（该留言系统的主页）
该页面是留言的主要交流内容，进入留言首页看到的就是这个留言列表页，这里将页面分页显示，以便用户进行更直观的查看，通过该页面用户可以进入留言签写页面，管理员也可以通过该页面进入到管理页面，进行登陆验证等操作 4.2签写留言页面
在查看留言页面单击“签写留言”便可进入留言签写页面，通过该页面用户可以填写任何留言，其中姓名和留言内容必须填写，其它可进行选择，该页面还提供了一些图片，供用户选择。填写完后点“写好了”按钮即可提交留言，用户发表留言成功，数据表中相应留言表增加一条记录 4.3管理员登陆页面
该页面主要是对管理员身份进行验证，数据表中已经建好管理员的登录名和相应的密码，管理员点“提交”后,如果该信息与数据库中一致则进入到管理页面（这里既为主页），通过该页面管理员可以对留言进行回复和删除
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
pageno=1 else
rs.absolutepage=request(\"page\") pageno=request(\"page\") end if j=0
do while not rs. eof and j <%rs.movenext j=j+1 loop rs.close
set rs=nothing conn.close
set conn=nothing %>
首页|\">上一页|\">下一页|\">尾页
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
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(\"\") 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\"\" 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 %> <%
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\") %>
