制作留言板
1、留言板分为填加留言、保存留言、显示留言、管理留言等模块。显示留言页面应为系统默认页面或首页，管理页面由站长进行回复与删除管理。
2、文件说明：default.asp(留言显示页面)显示留言按时间的降序排列。
add.asp(添加留言页面)将留言信息存入数据库。
admin.asp(管理页面)显示留言并提供站长回复和删除功能。
del.asp(删除页面)
reply.asp(站长回复页面)
login.asp(管理登陆页面)
error.htm(登陆错误页面)
3、(1)建立数据库board.mdb(message admin两个表)message表的字段变量：name、subject、content、oicq、homepage、time、email、reply；admin表的字段变量：admin、password
其中time的默认值：now();reply的默认值：“---尚无回复---”content、reply字段类型为备注型，name、subject、content为必添字段。
(2)设置ODBC系统DSN,并指定数据库路径。
4、编辑default.asp,
(1) 先建立conn.asp连接文件。
(2)、建立记录集，打开绑定面板选择记录集
记录集名为rsGuestBook,连接选择conn,数据表选择message并按ID字段降序排列。
(3)、绑定数据，打开绑定面板,将姓名、留言的动态数据绑定到相应位置(插入到相应位置)。
(4)、图片连接效果，A、选择图片点击link右边的"浏览文件"图标弹出"选择文件"对话框选择"数据源"弹出记录集的全部变量，选择相应变量进行连接；B、选择图片，在绑定面板点击动态数据"name",点击"绑定",选择"img.alt",在替代框内填加说明文字。
(5)、添加重复区域行为,选择要做重复区域的表格(留言数据),打开服务器行为的重复区域。
(6)、填加导航(打开服务器行为,插入动态文本)；
(7)、填加记录集导航信息(打开插入菜单选择应用程序对象插入记录集导航条)；
５、编辑add.asp
(1)、验证表单(行为-->检查表单)；
(2)、Insert Record 服务器行为；然后页面跳转到default.asp
６、编辑admin.asp，建立记录集rsGuestBook.
(1)、绑定动态数据；
(2)、选中“站长回复”文字，选择服务器行为>转到详细页；详细页链接:"reply.asp",传递参数值为:"ID";
(3)、将rsGuestBook记录集中的"ID"动态数据绑定到CheckBox的Value上。选中CheckBox,将CheckBox的Nmae:"ID";将该表单的"动作"设为"del.asp"并将删除按钮的按钮名称设为空；
(4)、添加重复区域行为。
(5)、填加导航(打开服务器行为,插入动态文本)；
(6)、填加记录集导航信息(打开插入菜单选择应用程序对象插入记录集导航条)。
７、编辑del.asp
(1)、打开绑定面板>命令选项菜单
名称:commDel;连接:conn;类型:删除;SQL:DELETE FROM message
WHERE strCondition;变量名:strCondition;运行时值为Replace(Request.Form,"&","or"
(2)、打开代码在最后一行填加：Response.Redirect("admin.asp")
8、编辑reply.asp
(1)、建立记录集rsGuestBook;利用Admin.asp传递的ID号取记录;
(2)、进行数据绑定(姓名；标题；回复)；
(3)、利用修改记录的服务器行为做站长回复；
9、编辑login.asp
(1)、打开服务器行为面板-->用户身份验证-->用户登陆
通过验证，go to:admin.asp,未通过验证，go to:error.htm;
10、为了限制非法用户的访问admin.asp、del.asp、reply.asp都要填加上述限制非法用户的服务器行为。打开服务器行为面板-->用户身份验证-->限制对页访问。；
11、使用Server.Mappath方法修改conn.asp
"Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("data\board.mdb")
asp+版本简单的留言板的制作(一)
前言：
俗话说，眼看千遍，不如手写一遍，的确，很多纯粹理论性的东西，看多了，只是有了个简单的认识，其实在具体的程序调试过程中，肯定会遇到很多很多的问题一直想给大家写个什么程序的，但是 豆腐最近特别忙，年底了，什么事情都要结算，再加上我一直要想办法写一些文章来奉献给大家，终于抽出来一个下午，来做了一个这样的程序，结果忘记关OICQ了，很多的网友的信息 都没有时间回复，在这里向 jsp(SUN企业级应用的首选)funs 和 蓝 表示道歉。
程序开始前的准备工作：
首先要考虑的就是 如何在一个 所有的程序都可以访问到的地方设置sql server(WINDOWS平台上强大的数据库平台) 的连接串，因为我正在全力以赴的准备做一个现在的 的aspx版本的站点，如果只是为这个留言版单独
做一个conn连接串，未免太。。。，在asp+中MS 抄袭了 jsp(SUN企业级应用的首选) 的一些概念和做法,在jsp(SUN企业级应用的首选)中有config.xml(标准化越来越近了)文件asp+中有config.web 把这个文件放到留言版所在的虚拟目录下，将连接串放在这里，大家请看我的连接串
好了，准备工作都做好以后，准备开始做留言版的录入部分,开始想纯粹使用vs7自代的web forms 功能，后来发现有一些实际使用的不方便，所以还是用了一些传统的方法和web forms 结合使用，但是这样 vs7的智能感知 功能就不能用了，好可惜。default.aspx 的内容如下
豆腐技术站亲情奉献
察看所有留言
呵呵，这个页面我用来测试web form 所以搞了一些 没名堂的 东西，呵呵：)
本文来源于 WEB开发网 原文链接：/aspnet/5737.htm
default.asp
-------------------------------
This is my guestbook. Use this form to submit your greeting:
MyFile = "c:\guestbook.txt"
'Opens the guestbook file if it exists
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile)
'Reads a line, and outputs it
WHILE NOT MyTextFile.AtEndOfStream
%>
WEND
'Closes the textfile
MyTextFile.Close
END IF' Does file exist
%>
----------------------------
write.asp
----------------------------
'Type in the path of the file to use. Make sure that the script has write access.
MyFile = "c:\guestbook.txt"
'Ready Scripting.FileSystemObject
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
'Opens textfile. 8 = add line to file, true = create if it doesn't exists
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
'Writes the line to the file
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
'Closes the file
MyOutStream.Close
'Sends them back to the default page
Response.Redirect "default.asp"
%>
的简单留言板制作源程序例子
default.asp
-------------------------------
This is my guestbook. Use this form to submit your greeting:
MyFile = "c:\guestbook.txt"
'Opens the guestbook file if it exists
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
IF MyFileObj.FileExists(MyFile) THEN
Set MyTextFile=MyFileObj.OpenTextFile(MyFile)
'Reads a line, and outputs it
WHILE NOT MyTextFile.AtEndOfStream
%>
WEND
'Closes the textfile
MyTextFile.Close
END IF' Does file exist
%>
----------------------------
write.asp
----------------------------
'Type in the path of the file to use. Make sure that the script has write access.
MyFile = "c:\guestbook.txt"
'Ready Scripting.FileSystemObject
Set MyFileObj=Server.CreateObject("Scripting.FileSystemObject")
'Opens textfile. 8 = add line to file, true = create if it doesn't exists
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)
'Writes the line to the file
New_line = Request.Form("new_line")
New_line = Server.HTMLEncode(New_line)
'Adds the time and date it was posted
New_line = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)
'Closes the file
MyOutStream.Close
'Sends them back to the default page
Response.Redirect "default.asp"
%>
