如何用asp做一个简单的留言版
<%
name=request("name")
email=request("mail")
subject=request("subject")
memo=request("memo")
if name=""or email=""or subject=""or nemo="" then
response.write"输入框不能为空白"
response.end
end if
line1="留言人："&name
line1=line1 & string(5,"")
email=""&email &""
line1=line1 &"email "&email&""
line2="主题:"&subject&""
memo=replace(memo,vbcrlf,"")
line3=""
line3=line3& memo&" "
line4="时间：" &now()
on error resume next
set fso=server.createobject("scripting.filesystemobject")
application.lock
filepath=server.mappath("book.txt")
oldpath=server.mappath("bookold.txt")
fso.movefile filepath,oldfilepath
set fin=fso.opentextfile(oldfilepath,,true)
set foun=fso.createtextfile(filepath)
fout.writeline line1
fout.writeline line2
fout.writeline line3
fout.writeline line4
fout.writeline ""
fout.writeline fin.readall
fin.close
fso.deletefile oldfilepath,true
applition.unlock
response.redirect"showbook.asp"
%>
还可以参考各种各样的留言簿，自己选吧。
http://www.downcode.com/down/J_Sort/J_1_2_1.Html
求asp留言本制作的具体步骤
设计数据库
ASP程序本身并不能储存数据，众所周知，留言本有以下信息需要保存：留言者姓名、联系方式、留言内容等等。因为ASP并不能储存数据，所以数据库在这种环境之下就产生了。数据库的种类也很多，针对不同的程序也有适用于它的数据库，比如Access和Ms SQL就比较适用ASP和ASP.net程序，至于其它的数据库和程序，就不属于本文所讨论的问题了，有兴趣的朋友可以查看其它一些资料。
那么既然Access和MS SQL都适用ASP，那么具体又如何来选择呢？我们可以打一个比方：比如钉一枚小钉子，聪明的人一定不会用一个大的棒槌，而是选择小的铁锤，虽然用大的棒槌也一样的可以把钉子钉进去，可是没有人愿意这样做。
数据库也一样：Access比较适用小型的应用，而MS SQL则适用于大中型的数据库应用，所以要做一个留言本，理所当然是选择Access更好一些，但是如果你决心使用MS，没有人会极力阻止你。好了，废话少说，切入正题，下面开始创建数据库。
Access是微软office办公软件中的其中一个，默认的安装Office是有这个Access的，好了，打开程序，开始了,GO!
进入实战了。打开程序后，出现一个对话框，这里我们选择第一个选项”空Access数据库”点击确定，弹出一个新建数据库的文件框，选择你上次你建的站点目录，起个data的文件名，点击创建，OK! 双击”使用设计器创建表”打开表创建窗口”如图
创建表的结构如下表：
字段名称
数据类型
备注(笔者注释)
id 自动编号 设置“自动编号”
name 文本 留言者姓名
qq 数字 留言者的QQ，因为QQ号是由数字组成
email 文本 留言者的电子邮件
content 备注 留言内容
data 日期/时间 留言时间，设定默认值为Now() 三、连接数据库
在上一节，我们已经为我们的程序创建了一个数据库，在这一节中，我们来用ASP把程序和数据库连接起来，以后就可以连接到数据库、在ASP中显示数据库中的数据以及更复杂的插入、修改和删除。
一起看以下代码，这就是ASP程序中常用的连接数据库的代码：
<%
set conn=server.createobject("adodb.connection")
c&server.mappath("data.mdb")
conn.open connstr
%>
解释一下以上代码：
<% '这是ASP程序的起始
set conn=server.createobject("adodb.connection") '在服务器上创建了一个连接数据库的对象
c&server.mappath("data.mdb") '告诉ASP数据库的接接方法以及路径
conn.open connstr '创建了对象后就用来打开数据库进行连接
%> '一切OK了!结束ASP程序
将上面的代码另存为conn.asp文件，放在服务器目录下面就可以了。怎么样，简单吧？
这一节是最重要的，一定要弄明白，否则以后操作数据库将变得不现实，如果有不懂的问题，欢迎和我讨论，我的电子邮件地址是。这一节就到此，下节我们就将数据库中的数据显示在页面中（这就实现了留言本的查看功能）
---------------------------------------------------------------------------------------------
四、制作留言本首页
前面我们已经连接好了数据库，就要让它在这里发挥一下作用了，这一节将讲述如何将数据库里的数据用ASP读取出来，在页面中显示出来，这样就等于是查看留言本了。
利用DW制作首页面（这里我就不讲如何去做这个页面了，最后我将会给出HTML代码下载）
将制作好的文件存为index.asp，下面就创建数据记录集，用来显示数据库的数据到这个页面中：
用记事本打开index.asp，在页头加入以下代码：
<%
set rs=server.createobject("adodb.recordset")
sql="select user,qq,email,content,data from main order by id desc"
rs.open sql,conn,1,1
%>
解释一下：
第一行，表明ASP使用的是VB脚本
第二行，是用include包含文件，这里包含的是数据库连接文件。
第三行，ASP程序开始
第四行，利用Server内置对象创建一个记录集
第五行, SQL语句，这里的意思是选择数据库中的user,qq,email,content,data字段，指定该数据表的名称是“main”数据 的排列顺序是倒序。
第六行，用刚才创建的名为rs的记录集打开数据库，设置属性为只读（1,1为只读数据,1,3为插入数据，2,3是修改数据。
这样就打开了数据库，接下来就可以显示了。
将“留言人”代替为“
“时间”代替为“
“留言内容在此”代替为“
“QQ”链接到 http://search.tencent.com/cgi-bin/friend/user_show_info?ln=
“邮件”链接到：mailto:
最后将“填写留言”链接 add.asp “管理留言”链接 admin.asp
好了，再次保存，浏览看看！
怎么了？只显示一条记录？原来我们在数据库里添加了两条记录的哦！还有一条呢？别急，因为我们没有指定ASP循环显示，所以就只有一条啦。。。
在刚才的代码后面添加一行
并在页面的第一个表格的末尾加上
<%
rs.movenext
loop
%>
上面的代码就是说用rs记录集指针一条一条往下一条移动，直到末尾，loop是循环的意思。。哈哈，再次浏览这个文件
看明白了吗，这样就可以让数据库中的数据全部显示在页面中了，好了，这节就到这，下节讲一个也很重要的部份（添加留言功能。)
--------------------------------------------------------------------------------------------------
五、制作添加留言页面，实现留言功能
我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。
用DW制作以下这样的页面：
设置表单的属性如下：
姓名：设置为单行文本域，名称为“user”
QQ号：设置为单行文本域，名称为“qq”
邮件：设置为单行文本域，名称为“email”
内容：设置为多行文本域，名称为“content”
最后将表单的“Action”动作指向addsave.asp就可以了。
保存文档名为add.asp，OK！下一步！
表单是做好了，但是还需要后台程序的支持，一起来使用ASP编写一个添加留言处理程序，添加留言代码：
'表明ASP使用的是VB脚本
'是用include包含文件，这里包含的是数据库连接文件
<%
set rs=server.createobject("adodb.recordset") '利用Server内置对象创建一个记录集
sql="select user,qq,email,content,data from main" 'SQL语句，上节有详解
rs.open sql,conn,1,3 '用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据
rs.addnew '用记录集新添加一条数据
user=request.form("user") '请求表单的变量，定义变量为user，这里request.form是请求表单的意思
qq=request.form("qq") '请求表单的变量，定义变量为qq，这里request.form是请求表单的意思
email=request.form("email") '请求表单的变量，定义变量为email，这里request.form是请求表单的意思
content=request.form("content") '请求表单的变量，定义变量为content，这里request.form是请求表单的意思
rs("user")=user '将请求到的表单值传向记录集中代表user字段的名称
rs("qq")=qq '将请求到的表单值传向记录集中代表qq字段的名称
rs("email")=email '将请求到的表单值传向记录集中代表email字段的名称
rs("content")=content '将请求到的表单值传向记录集中代表content字段的名称
rs.update '更新一下数据库中的数据。
rs.close '关闭记录集
set rs=nothing '销毁记录集
conn.close '关闭数据库连接
set rs=nothing '销毁数据库连接
%>
将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上：
然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页”
求一个简单的ASP留言板代码
再也不能简单的留言系统啦！
数据库字段为：
id name message 三个字段。
下面是一个文本域，可以再里面留言。
文件名是：001.html
网络大名：
将文本域提交的内容写进数据库。
文件名为：001.asp
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("003.mdb")
name=request.form("name")
message=request.form("message")
exec="insert into guestbook(name,message)values('"+name+"'，'"+message+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%>
