1.数据库用office2000或者office2003的access做的，里面的内容要根据输入的内容来确定，数据库名字和表的名字由conn.asp和调用语句决定，当然也可以先确定数据库的再确定调用的
创新互联是一家集网站建设,潜江企业网站建设,潜江品牌网站建设,网站定制,潜江网站建设报价,网络营销,网络优化,潜江网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
2.不懂的话做个不用数据库的留言板：文本文件不是好办法，建议使用XML 补充一点，PHP支持XML，ASP反而不支持
3.
数据库系统留言板de制作2007/11/23 15:46 数据库系统留言板---主页asp
1.建个数据库，名为Message 字段为：id user email towho addtime contert
2.建个表单，名为〈index.asp〉
SCRIPT language=VBScript
'定义检查输入信息格式的函数Check()
Sub Check()
Dim strEmail, Position1, EmailLen, strDomainName
strEmail = Form1.Email.Value
Position1 = Instr(strEmail, "@")
EmailLen = Len(strEmail)
strDomainName = Mid(strEmail, Position1 + 1, EmailLen - Position1 )
'以下每一项信息都不能为空，VBScript中的empty表示为空信息
If Form1.User.Value = empty Then
MsgBox "请输入您的名字！"
FocusTo(0)
Exit Sub
ElseIf Form1.Email.Value = empty Then
MsgBox "请输入您的电子邮件地址！"
FocusTo(1)
Exit Sub
'如果在邮件地址中缺少账号和域名的分隔符，提示出错
ElseIf Position1 = 0 Or Instr(strDomainName, ".") = 0 Then
MsgBox "请正确填写您的电子邮件地址！"
FocusTo(1)
Exit Sub
ElseIf Form1.Content.Value = empty Then
MsgBox "请输入您的留言内容！"
FocusTo(2)
Exit Sub
End If
Form1.Submit
End Sub
'在Check()中调用以下FocusTo()函数来确定出错时的输入焦点
Sub FocusTo(x)
Document.Form1.Elements(x).Focus()
End Sub
/SCRIPT
HTML
HEADTITLE留言本/TITLE/HEAD
BODY bgcolor=LightYellow
P Align=centerFONT size=5 face=华文彩云 color= blue留 言 板/FONT
FORM method=post action=MessageAdd.asp name=Form1HR
TABLE bgcolor=LightBlue align=center border=1 width=500
TRTD height=35 align=center留言者/TD
TDINPUT maxlength=30 name=User/TD/TR
TRTD height=35 align=centerE-mail/TD
TD colspan=3INPUT name=Email /TD/TR
TRTD height=35 align=center标 题/TD
TD colspan=3INPUT maxlength=200 name=Subject size=40/TD/TR
TRTD height=35 align=center留给谁/TD
TD colspan=3INPUT name=ToWho /TD/TR
TRTD height=35 align=center内 容/TD
TD colspan=3TEXTAREA cols=51 name=Content rows=8/TEXTAREA/TR
TR align=middleTD height=40 colspan=4 align=center
INPUT type=button value=提交 OnClick=Check()
INPUT type=reset value=重写/TD/TR
/TABLE
/FORM
A href=MessageBrowse.asp查看留言/A
/BODY
/HTML
3.建个〈Messageadd.asp〉
%
' 该程序因为不在窗口内显示内容，只弹出一个对话框进行提示，所以不
' 用再加入HTML/HTML，HEAD/HEAD，BODY/BODY标记对
' 声明对象、变量
Dim User, Email, ToWho, Content, AddTime
Dim objConn, objRS
Dim strSQL
' 获取由Index.asp页面传送过来的变量
User = Request("User")
Email = Request("Email")
ToWho = Request("ToWho")
Content = Request("Content")
' 获取服务器当前时间
AddTime = Date()
' 使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=" Server.MapPath("Message.mdb")
objConn.Open
' 建立Recordset对象并以追加记录方式打开数据表Message
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "Message", objConn, 1, 2
' 采用数组形式将记录追加到数据库中
objRS.AddNew Array("User", "Email", "ToWho", "AddTime", "Content"), _
Array(User, Email, ToWho, AddTime, Content)
objRS.Update
' 释放变量占用的内存空间
Set objRS = Nothing
Set objConn = Nothing
' 在客户端显示弹出对话框后返回前一个页面Index.asp
msg = "记录已添加！"
%
SCRIPT language=VbScript
Msgbox "记录已添加！"
history.back()
/SCRIPT
4.建个messagebrowse.asp
%
' ShowPage子程序负责显示PageNo参数所指定的页次的所有记录
Sub ShowPage(objRS, PageNo)
' 显示留言并加以格式化
objRS.AbsolutePage = PageNo
For I = 1 To objRS.PageSize
User = objRS("User")
ToWho = objRS("ToWho")
Email = objRS("Email")
Content = objRS("Content")
AddTime = objRS("AddTime")
Response.Write User " 给 " ToWho " 的留言BR"
Response.Write "E-mail: A href=mailto:" Email "" Email "/ABR"
Response.Write "内 容：" Subject "BR"
Response.Write "TABLE width=100% bgcolor=LightBlueTRTD"
Response.Write Content "/TD/TR/TABLE时 间：" AddTime "HR"
objRS.MoveNext
If objRS.EOF Then Exit For '若到记录结尾就结束For循环
Next
Response.Write "/TABLE"
End Sub
%
HTML
HEAD
TITLE显示留言本/TITLE
/HEAD
BODY bgcolor=LightYellow
CENTERFONT size=5 face=华文彩云 color= blue留 言 显 示/FONT
/CENTERHR
A href="Index.asp"返回留言板/ABR
%
' 声明对象、变量
Dim objConn, objRS
Dim strSQL
Dim User, ToWho, Email, Content, AddTime
' 使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
"Data Source=" Server.MapPath("Message.mdb")
objConn.Open
' 建立Recordset对象并返回表Message的所有记录
strSQL = "SELECT * FROM Message"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 1, 1
' 判断记录数是为空有多种方法，可以用Recordset对象的RecordCount属性是否为零，
' 也可以判断刚打开RecordSet对象的记录指针的开始位置是否等于文件的结束位置，
' 以下程序使用后一种方法来判断记录数是否为零
If objRS.Eof And objRS.Bof Then
Response.Write "当前没有留言！BR"
Response.Write "A href=Index.asp返回留言表单/A"
Else
' 若有留言，调用子程序ShowPage显示数据表中的数据
objRS.PageSize = 5
' 显示页次超链接
PageNo = Request("PageNo") '读取浏览者所点取的页次超链接
Response.Write "["
For I = 1 To objRS.PageCount
If I = CInt(PageNo) Then '若到浏览者所点取的页次超链接，便不再当成超链接
Response.Write I " | "
Else
Response.Write "A HREF='MessageBrowse.asp?PageNo=" I "'" _
I "/A" " | " '超链接到MessageBrowse.asp并将页次当成参数传送
End If
Next
Response.Write "]HR"
' 根据页次调用ShowPage子程序来显示留言，若没有指定页次，就显示第1页
If PageNo "" Then
ShowPage objRS, PageNo
Else
ShowPage objRS, 1
End If
End If
' 释放内存变量占用空间
Set objRS = Nothing
Set objConn = Nothing
%
/BODY
/HTML
制作一个简单留言板，需要
创建一个数据库
创建一个表
创建一个公共的连接数据库的脚本，里边包括，连接数据库（mysql_connect），选择数据库（mysql_select_db）
一个动态页，输出留言的内容（一般用的while循环输出）
一个表单，来接受用户留言
留言板说白了，就是对数据库的删改工作，需要执行对应的sql语句来实现，mysql_query($sql)
增添 $sql="insert into table_name(字段名) values(值)";
删除 $sql="delete from table_name where 主键="$_GET['id'];
修改 $sql="update table_name set 字段名=新值";（多个的话用逗号隔开）
还有涉及到的分页问题，这个我觉得楼主可以自己去尝试一下，是个不错的锻炼！
新年快乐~
一个html表单，包含留言信息，提交给一个php文件，然后php把数据存入相应数据库。
查看留言则是php从数据库读出相应数据，然后显示给用户。
