动态网页程序设计报告(留言板)

留言板

摘要：

本课程设计的对象是一个留言板。本留言板有两个方向，五大模块，七大功能。五大模块：显示留言，删除留言，添加留言，版主登陆，用户登陆留言。七大功能：显示留言，删除留言，添加留言，利用数据库存取组件，将信息保存到数据库中，登陆，用户登陆留言。在主界面中选择你的身份进行登录，用户或版主可以在主界面留言界面输入要留言的内容，当点击提交按钮时，数据会插入并存储到数据库中。当点击回复时，界面会跳转到回复界面，在回复界面回复后，点击提交，又会跳转到留言主界面里显示。当点击删除时，输入密码后会删除该条信息，并返回留言主界面。

关键字：

主界面；用户身份；提交按钮；显示留言；数据库；留言回复界面；显示留言回复；留言删除界面；密码；登陆；注册

1. 课程设计介绍

本课程设计是一个动态的网页设计—留言板，并用JavaScript作为脚本语言。设计的文件主要包括:一个用户身份登录界面（index.asp），一个用户留言界面（liuyanzhe.asp），一个数据库及表（guest.mdb）,一个主界面（index1.asp），一个插入界面（add.asp），一个删除界面（delete.asp），一个留言回复界面（readd.asp）,一个函数文件（funtion.asp）用来保存在各页面中用到的函数,一个样式文件（guest.asp）,一个配置文件（config.asp）,一个数据库链接文件（odbc_connection.asp）。

当用户在地址栏里输入地址，进入到版主身份选择界面，用户可以进行版主或者留言者（过客）的身份的选择。当用户为过客时，仅仅能进行留言操作。当用户以版主的身份登录时，必须进行版主身份验证方可进入留言主界面，在此版主可以进行恢复删除等操作来管理自己的留言板，在版主登陆后，界面最上部分是访问次数。界面中上半部分是为留言者留言的地方。当输入留言信息点击提交按钮时，客户端会根据你提交的留言信息进行核对，若留言主题、留言人姓名和留言者email格式没有按规定填写则会给用户以信息提示。填写完整留言板并提交后，便提交到插入界面，使留言信息通过调用update语句而写入到数据库guest中。主界面的中下半部分是用来显示留言内容的，当留言信息插入到数据库后，主界面通过服务器执行来select语句调用数据库的信息，并显示出来，以供留言人查看。界面的下部是用来分页显示的。

需要留言回复时，点击回复连接，跳转到留言回复界面。留言回复界面通过回复的留言id号来获取留言主题，填写好回复内容和密码时，点击提交按钮，若密码正确则通过update 语句写入数据库中，若不正确则不能写入数据库并给予必要的提示信息。当正确输入密码通过调用select语句将留言回复信息显示到主界面上。

当点击主界面上的删除连接时，会跳转到删除界面此时也获取了该条信息的id号。因为删除涉及到管理员的权限，故需要管理员输入密码后才能删除留言。当输入密码后，点击提交按钮，会执行delete语句来删除数据库中的该条留言信息，然后更新数据库执行select 语句并显示到主界面上，以供查看是否删除此条信息。

当用户在地址栏里输入地址，进入到留言者身份选择界面时，过客（留言者）正确留言后会给予提示不能再做其他非法操作。

本设计用到了分页技术来管理由于留言条数太长而带来的不便，并且将按照留言的时间先后进行排序显示，并把留言提交给版主。

2. 基本原理或方法

本课程是以留言板形式为主题设计，主要是通过对数据库的操作来完成留言信息的写入，读取，更新，存储。

设计动态网站必须要有与数据库的连接操作。

1）、本课程设计的网站与数据库access的链接代码如下：

<%

Dim db

Set db=Server.CreateObject("Adodb.Connection")

db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("guest.mdb")

%>

2）、插入库留言信息到数据代码如下：

<%

Dim title,body,name,email

title=myReplace(request.form("title"))

body=myReplace(request.form("body"))

name=myReplace(request.form("name"))

email=myReplace(request.form("email"))

Dim sqla,sqlb,strsql

sqla = "Insert Into guest(name,title,submit_date"

sqlb = "values('" & name & "','" & title & "',#" & Now() & "#"

If body<>"" Then

sqla = sqla & ",body"

sqlb = sqlb & ",'" & body & "'"

End If

if email<>"" then

sqla = sqla & ",email"

sqlb = sqlb & ",'" & email & "'"

end if

strsql = sqla & ") " & sqlb & ")"

db.Execute(strsql)

db.Close

Set db=Nothing

Session("page_no")=1

response.redirect "index.asp"

%>

3）、写入回复到数据库代码如下：

<%

If Request.Form("password")=Password Then

Dim strSql

strSql="Update guest Set reback='" & myReplace(request("reback")) & "' where id=" & Request.Form("id")

db.execute(strSql)

response.redirect("index.asp")

Else

Response.Write "

请输入正确的密码"

end if