制作留言板

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平台上强大的数据库平台) 的连接串，因为我正在全力以赴的准备做一个现在的http://www.asp888.net 的aspx版本的站点，如果只是为这个留言版单独

做一个conn连接串，未免太。。。，在asp+中MS 抄袭了 jsp(SUN企业级应用的首选) 的一些概念和做法,在jsp(SUN企业级应用的首选)中有config.xml(标准化越来越近了)文件asp+中有config.web 把这个文件放到留言版所在的虚拟目录下，将连接串放在这里，大家请看我的连接串

好了，准备工作都做好以后，准备开始做留言版的录入部分,开始想纯粹使用vs7自代的web forms 功能，后来发现有一些实际使用的不方便，所以还是用了一些传统的方法和web forms 结合使用，但是这样 vs7的智能感知 功能就不能用了，好可惜。default.aspx 的内容如下

豆腐技术站亲情奉献

您的呢称：
您的联系Email：
您的发言主题：
您的留言内容

察看所有留言

呵呵，这个页面我用来测试web form 所以搞了一些 没名堂的 东西，呵呵：)

本文来源于 WEB开发网 原文链接：http://www.cncms.com.cn/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"

%>

Haneng.com的简单留言板制作源程序例子

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"

%>