留言板
摘要：
本课程设计的对象是一个留言板。本留言板有两个方向，五大模块，七大功能。五大模块：显示留言，删除留言，添加留言，版主登陆，用户登陆留言。七大功能：显示留言，删除留言，添加留言，利用数据库存取组件，将信息保存到数据库中，登陆，用户登陆留言。在主界面中选择你的身份进行登录，用户或版主可以在主界面留言界面输入要留言的内容，当点击提交按钮时，数据会插入并存储到数据库中。当点击回复时，界面会跳转到回复界面，在回复界面回复后，点击提交，又会跳转到留言主界面里显示。当点击删除时，输入密码后会删除该条信息，并返回留言主界面。
关键字：
主界面；用户身份；提交按钮；显示留言；数据库；留言回复界面；显示留言回复；留言删除界面；密码；登陆；注册
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语句并显示到主界面上，以供查看是否删除此条信息。
当用户在地址栏里输入地址，进入到留言者身份选择界面时，过客（留言者）正确留言后会给予提示不能再做其他非法操作。
本设计用到了分页技术来管理由于留言条数太长而带来的不便，并且将按照留言的时间先后进行排序显示，并把留言提交给版主。
javascript登录注册界面
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
direct "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)
        direct("index.asp")
    Else
        Response.Write "<p align='center'>请输入正确的密码"
    end if
    %>
4）、在主界面显示留言信息需要用到Recordset类，为其建立一个对象来获取数据库表中的信息。设计代码如下：
Dim rs,strsql
    '建立Recordset对象，因为要分页显示数据，所以请注意Open方法的参数

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。