留言板的设计与实现(毕业论文)

2．数据库各个表的介绍：

Admin表存放的是后台管理员的用户名和密码，详细设计如下图所示：

Admin表 ：

表 4-2

表user：

表4-3

13

表Message：

表4-4

表Reply：

表4-5

14

第三章 系统实现

3.1创建与连接数据库

3.1.1数据库的连接

Access是文件型数据库，一个文件就是一个数据库，可以利用ASP中的语法直接连接。在连接数据库之前，必须先声明一个对象来当作数据库与ASP程序之间的媒介，具体连接方式如下：

<%

'============================================================== '强制声明变量

'==============================================================

Option Explicit Dim Page,i,Action

Dim conn,connstr,rs,sql

'============================================================== '数据库连接

'==============================================================

Set Conn=Server.CreateObject(\Set Rs=Server.CreateObject(\Connstr=\Source=\& Server.MapPath(\ '数据库路径和名称

Conn.Open Connstr

'============================================================== '取得参数

'==============================================================

Set Rs = Conn.Execute(\

Dim para

Dim Systemname,Systemversion

para = split(Trim(Rs(\

Systemname = \在线留系统\

Rs.Close 关闭数据

15

Set Rs = Nothing %>

上面在打开数据库并完成相应的操作后，应关闭数据库连接。当不再需要连接时将其

关闭，可以减少对数据库服务器的要求并可以使其他用户能够使用该连接。

用Connection对象的Close方法终止Connection对象和数据库之间的连接。

3.1.2 数据添加

Rs.Addnew '添加一条 Rs(\ Rs(\ Rs(\

Rs(\ Rs(\ If u_id = 0 Then Rs(\

Rs(\名字 Rs(\ Rs(\地址

Rs(\电话 Rs(\'地址

Rs(\性别 Else Dim rss

Set Rss = Conn.Execute(\ IF Not Rss.Eof Then

Rs(\ Rs(\ Rs(\ Rs(\ Rs(\

Rs(\ Rs(\ Else

ReturnError(\操作错误！\ End If End If

Rs.Update '更新数据库

16