A. 急，十万火急！如何用asp 做留言板的添加留言和删除留言要源代码
1、用ACCESS新建一个数据库，位置放在你站点的根目录下，名称为：test.mdb
2、新建一个表，表名con
3、在con表里面建两个字段：id，类型为【自动编号】；comment，类型为【备注】
4、保存并关闭。
5、运行下面的程序。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("test.mdb")
dim Rs
set Rs = Server.CreateObject("ADODB.Recordset")
dim sql
dim action
action = request.Form("action")
If action = "add" then
Sql = "insert into con (comment) values ('"&request.Form("commentDetial")&"')"
Conn.execute(Sql)
elseif action = "del" then
Sql = "delete from con where id="&request.Form("thisID")
Conn.execute(Sql)
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言版</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="index.asp">
<textarea name="commentDetial" id="commentDetial" cols="45" rows="5"></textarea>
<input name="action" type="hidden" value="add" />
<input type="submit" name="button" id="button" value="提交" />
</form>
<form id="form2" name="form2" method="post" action="index.asp">
要删除留言的ID：<input type="text" name="thisID" id="thisID" />
<input name="action" type="hidden" value="del" />
<input type="submit" name="button2" id="button2" value="删除" />
</form>
<div>
<%
Sql="select * from con order by id asc"
Rs.open Sql,Conn,1,1
if not Rs.Eof then
do until Rs.Eof
response.Write("ID是："&Rs("id")&"<br>留言是："&Rs("comment")&"<hr>")
Rs.movenext
loop
end if
%>
</div>
</body>
</html>
B. 如何在用asp制作的留言板中删除已有留言求源代码！
delete from notes where id=$id
C. 怎么制作ASP留言板删除功能
<!--#include file="数据库连接文件.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=trim(Request.form("ID"))
mySQL = "DELETE FROM guest WHERE ID = '"&id&"'"
Conn.execute mySQL
Conn.close
response.redirect("返回文件.asp")
%>
如果你是新人，建议你学习asp.net开始好了，asp已经很久以前的语言了。
D. 如何对删除留言进行权限审核 ASP代码
最好发个完整的可调试的代码；
500错误一般都是代码语法错误，你把浏览器internet选项 高级 显示友好http错误前面的勾去掉看下具体是什么错误；
E. 如何用asp.net做一个简单的留言板，可以让管理员删除修改的那种
去网上找一下,再自己改一下好了
F. asp.net留言板的删除
把模式对话框附加到linkbutton（lbtnDelete）上，当你点击lbtnDelete时，就会弹出确定删除对话框
G. 如何把网站中原来的留言板去掉
楼主可以去我的论坛看，里面有图片，看起来更方便些，下面这个留言本绝对可行的
一、安装与调试
常听朋友感叹ASP程序难学不易懂，不过我起初学习这门技术的时候也有过这样的感悟。从今天开始，我将以我学ASP的经验来做一个简单的ASP留言本，这个留言本用了Access数据库，所以务必请大家要跟我一起做的朋友都安装好Office软件，相信各位自己的电脑上都有了。好了，开始。
创建ASP的运行环境（安装IIS）
IIS(Internet Information Service)是构建ASP站点所必须的，所以，我们应该先确认自己的电脑已安装了IIS信息服务，如果没有安装好的话，请按以下步骤：
1、打开“控制面板”
2、双击“添加/删除程序”
3、单击“添加/删除Windows组件”，打开添加/删除Windows组件对话框：
3、从下拉的列表中选择“Internet 信息服务(IIS)”单击“下一步”：
4、出现组件安装进度窗口，如弹出需要安装盘的话，放入Windows2000安装盘，按提示操作即可。直至最后安装完毕。
二、设计数据库
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 自动编号 设置“自动编号”
user 文本 留言者姓名
qq 数字 留言者的QQ，因为QQ号是由数字组成
email 文本 留言者的电子邮件
content 备注 留言内容
data 日期/时间 留言时间，设定默认值为Now()
数据库设计好了以后，可以直接在数据库里添加两条记录，以后测试时候用！
三、连接数据库
在上一节，我们已经为我们的程序创建了一个数据库，在这一节中，我们来用ASP把程序和数据库连接起来，以后就可以连接到数据库、在ASP中显示数据库中的数据以及更复杂的插入、修改和删除。
一起看以下代码，这就是ASP程序中常用的连接数据库的代码：
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")
conn.open connstr
%>
解释一下以上代码：
<% 这是ASP程序的起始
set conn=server.createobject("adodb.connection") 在服务器上创建了一个连接数据库的对象
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb") 告诉ASP数据库的接接方法以及路径
conn.open connstr 创建了对象后就用来打开数据库进行连接
%> 一切OK了!结束ASP程序
将上面的代码另存为conn.asp文件，放在服务器目录下面就可以了。怎么样，简单吧？
四、制作留言本首页
前面我们已经连接好了数据库，就要让它在这里发挥一下作用了，这一节将讲述如何将数据库里的数据用ASP读取出来，在页面中显示出来，这样就等于是查看留言本了。
利用DW制作如下页面（这里我就不讲如何去做这个页面了，最后我将会给出HTML代码下载）
将制作好的文件存为index.asp，下面就创建数据记录集，用来显示数据库的数据到这个页面中：
用记事本打开index.asp，在页头加入以下代码：
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.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
%>
代码拷贝框
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.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
%>
[Ctrl+A 全部选择 然后拷贝]
解释一下：
第一行，表明ASP使用的是VB脚本
第二行，是用include包含文件，这里包含的是数据库连接文件。
第三行，ASP程序开始
第四行，利用Server内置对象创建一个记录集
第五行, SQL语句，这里的意思是选择数据库中的user,qq,email,content,data字段，指定该数据表的名称是“main”数据 的排列顺序是倒序。
第六行，用刚才创建的名为rs的记录集打开数据库，设置属性为只读（1,1为只读数据,1,3为插入数据，2,3是修改数据。
这样就打开了数据库，接下来就可以显示了。
将“留言人”代替为“<%=rs("user")%>
“时间”代替为“<%=rs("data")%>
“留言内容在此”代替为“<%=rs("content")%>
“QQ”链接到：<;%=rs("qq")%>
“邮件”链接到：mailt<%=rs("email")%>
最后将“填写留言”链接 add.asp “管理留言”链接 admin.asp
好了，再次保存，浏览看看！
怎么了？只显示一条记录？原来我们在数据库里添加了两条记录的哦！还有一条呢？别急，因为我们没有指定ASP循环显示，所以就只有一条啦。。。
在刚才的代码后面添加一行
<%do while not rs.eof%>
并在页面的第一个表格的末尾加上
<%
rs.movenext
loop
%>
上面的代码就是说用rs记录集指针一条一条往下一条移动，直到末尾，loop是循环的意思。。哈哈，再次浏览这个文件
看明白了吗，这样就可以让数据库中的数据全部显示在页面中了。
五、制作添加留言页面，实现留言功能
我们是做的一个留言本，实现留言的功能就十分重要了，要不然就算不上留言本了，接下来就一起来实现这个功能。
用DW制作以下这样的页面：
设置表单的属性如下：
姓名：设置为单行文本域，名称为“user”
QQ号：设置为单行文本域，名称为“qq”
邮件：设置为单行文本域，名称为“email”
内容：设置为多行文本域，名称为“content”
最后将表单的“Action”动作指向addsave.asp就可以了。
保存文档名为add.asp，OK！下一步！
表单是做好了，但是还需要后台程序的支持，一起来使用ASP编写一个添加留言处理程序，添加留言代码：
<%@LANGUAGE="VBScript" codepage="936"%> 表明ASP使用的是VB脚本
<!--#include file="conn.asp"--> 是用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 销毁数据库连接
%>
代码拷贝框
<%@LANGUAGE="VBScript" codepage="936"%> 表明ASP使用的是VB脚本
<!--#include file="conn.asp"--> 是用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 销毁数据库连接
%>
[Ctrl+A 全部选择 然后拷贝]
将以上文件存为addsave.asp，测试下！咦？怎么填好提交以后就出现空白了，为什么？这是因为在addsave.asp中没有设置数据成功提交好后的转向页面，这里不用做那么复杂的，只要做一个刷新页面就行了，在程序的后面加上：
<meta http-equiv="refresh" content="2;URL=index.asp">
然后在页面中添加提示信息，比如：“您的留言已经成功提交，2秒钟后将自动返回留言本首页”
好了，这个留言的功能总算实现了，最后再测试下，看看效果！
OK！
六、制作管理登陆页面
留言本的管理功能对于留言本来说就不言而喻了，像论坛的登陆功能就是一个很好的例子，不过我们做留言本基本上有删除功能就行了，写这个教程是为了更多的ASP入门者更好的了解ASP，所以旨在学习用，当然也可以在这基础上添加更多的功能，比如回复留言者。
好了，开始了，还是按照以前的，用Dreamweaver做一个登陆页面，如下图：
把用户名的表单名称设置为admin，密码的表单名称设为password，把动作指向checkpass.asp，，存admin.asp这样登陆页面就好了，
下面就做检测密码的ASP程序了，看以下代码解释：
<!--#include file="conn.asp"--> 把conn.asp包含进来连接数据库
<% ASP起始
admin=request.form("admin") 定义admin的值是表单传过来的用户名域名称admin
password=request.form("password") 定义admin的值是表单传过来的用户名域名称admin
if admin="" or password="" then 这句的意思是假如用户名和密码没有输入的话那么执行下一句
response.Write("<script language=javascript>alert(请填写完整!);history.go(-1)</script>") 用javascript脚本提示用户
end if 结束if语句
sql="select * from admin where admin="&admin&" and password="&password&"" 这句很重要，我们放到后面讲
set rs=conn.execute(sql) 设定记录集rs，用conn执行SQL语句
if rs.eof or rs.bof then 当没有符合筛选结果时，则执行下面的句子
response.write "<script language=javascript>"
response.write "alert(用户或密码不对!);"
response.write "javascript:history.go(-1);"
response.write "</script>" 用javascript脚本提示用户
else 如果符合条件的时候
session("admin")=admin 新建session，值等于表单传来的用户名
response.redirect "mymanage.asp" 转向到mymanage.asp，进入管理页
end if 结束if语句
%> ASP结束
代码拷贝框
<!--#include file="conn.asp"--> 把conn.asp包含进来连接数据库
<% ASP起始
admin=request.form("admin") 定义admin的值是表单传过来的用户名域名称admin
password=request.form("password") 定义admin的值是表单传过来的用户名域名称admin
if admin="" or password="" then 这句的意思是假如用户名和密码没有输入的话那么执行下一句
response.Write("<script language=javascript>alert(请填写完整!);history.go(-1)</script>") 用javascript脚本提示用户
end if 结束if语句
sql="select * from admin where admin="&admin&" and password="&password&"" 这句很重要，我们放到后面讲
set rs=conn.execute(sql) 设定记录集rs，用conn执行SQL语句
if rs.eof or rs.bof then 当没有符合筛选结果时，则执行下面的句子
response.write "<script language=javascript>"
response.write "alert(用户或密码不对!);"
response.write "javascript:history.go(-1);"
response.write "</script>" 用javascript脚本提示用户
else 如果符合条件的时候
session("admin")=admin 新建session，值等于表单传来的用户名
response.redirect "mymanage.asp" 转向到mymanage.asp，进入管理页
end if 结束if语句
%> ASP结束
[Ctrl+A 全部选择 然后拷贝]
将以上代码保存为checkpass.asp
这样，用户在admin.asp页面中输入用户名和密码后，就把用户名和密码值传给checkpass.asp处理，当用户名和密码的值和数据库中的字段相匹配时，就进入mymanage.asp这个管理页面，同时建一个session，这个session的会话变量将在后面起作用，
七、制作管理页面
上节中讲的是制作登陆页面和检测用户，当用户名和密码正确时就转到管理页面，好了，开始实现它。
其实这个留言本的管理页面和用户直接看到的首页没有多大的区别，只是用了Session会话变量用作保护和增加了一个删除链接，当点击这个链接的时候，就会自动删除这条留言，好了，其本的目的知道了，那就GO！
刚才讲了，这个页面和首页的index.asp相似，那么就先复制就行了，然后再改一下
首先找到下面这句：
sql="select user,qq,email,content,data from main order by id desc"
把它改为
sql="select id,user,qq,email,content,data from main order by id desc"
这样，就选取到了id这个自动编号的值，以便删除留言时锁定这个id。
然后在“邮件”这个链接后面增加一个链接“删除”，链接：del.asp?id=<%=rs("id") ，修改代码后为<a href="del.asp?id=<%=rs("id")%>" onclick="return confirm(是否确定删除本留言？);">删除</a> 这样，待会我们做del这个页的时候，就会知道为什么了！
改过后存为mymanage.asp
现在打开浏览器看看！
怎么不用输入用户名和密码都可进入呀？别急，上节中，我们不是建了一个session的会话变量，这时就派上用场了，直接用记事本打开。在<%@LANGUAGE="VBScript" codepage="936"%>这句的后面加上<%if session("admin")<>"" then%>这句，在末尾写上：
<%
else
response.Redirect("admin.asp")
end if%>
下面来讲解一下。
<%if session("admin")<>"" then%> 就是说如果session这个("admin")的值不是空的话就执行。
<%
else
response.Redirect("admin.asp")
end if%> 为空的话就转向登陆页，重新登陆，这样的话，直接输入网址的话就会跳到admin.asp，简单吧！
八、删除留言
上节我们增加了一个删除留言的链接，以下是这个del.asp的代码
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sql="select * from main where id="&id
rs.open sql,conn,2,3
rs.delete
rs.update
%>
很明了吧，才几句，第1、2、3句都不用我解释了，大家都在上几节中明白了。
第4句：
id=Request.QueryString("id") 用id取值字符串中传的id，回头看一下删除的链接：del.asp?id=<%=rs("id")%> 就是这个链接才把id的值传来的，<%=rs("id")%>是读取数据库中的自动编号字段中的id。
第5句：
用sql定义SQL语句，这里的*是通配符，表示所有，而Where有点像我们汉语中的“当”，整句话的意思是选择所有来自表名为main的字段，它的条件是当数据库中的id字段是字串所传来的id。如果这个没有的话这个一时间不明白也不要紧，慢慢接触就知道了。
第6句是打开符合条件的记录，确切的讲不应该叫记录集了，因为经过我们这样筛选的话，记录绝对是一条，2，3指定可以对数据库中的数据进入修改。
第7、8句
rs.delete 看了就明白了，原来这才是整个程序的精髓，就是执行删除了。
rs.update 这是更新数据库中的表，删除后就更新。
最后大家自己用rs.close和conn.close释放。
经过些学习，大家应该对ASP有所了解和认识了，这个做ASP留言本的教程就到此结束了。欢迎大家到新视野QQ群里面共同讨论学习。
H. ASP留言板源代码：有主页，回复和删除三个版面。
主程序
<html>
<head>
<title>业牧粞员?lt;/title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="VBScript">
sub check()
if form.userid.value=empty then
msgbox "请输入您的昵称！"
focusto(0)
exit sub
end if
if form.email.value=empty then
msgbox "请输入您的E-mail地址！"
focusto(1)
exit sub
end if
if instr(form.email.value, "@")=0 then
msgbox "您的E-mail地址不正确，是不是记错了？再想想！"
focusto(1)
exit sub
end if
if form.content.value=empty then
msgbox "请输入您的留言内容！"
focusto(5)
exit sub
end if
form.submit
end sub
sub focusto(x)
document.form.elements(x).focus()
end sub
</script>
<body bgcolor="#CCFFCC" text="#333333">
<table width="90%" border="0" bordercolorlight="#E2F3F2" height="77" align="center">
<tr>
<td height="47" colspan="2" bgcolor="#00FFFF"><div align="center"> <font face="华文行楷" size="+6"><font color="#FF0000" face="行楷"><strong>留言本</strong></font></font>
</div> </td>
</tr>
<tr>
<td colspan="2" height="2">
<p align="center"><font face="隶书" size="+2"><font face="楷体_GB2312"><b><a href="show.asp"><font size="+1">查看留言</font></a></b></font>< /font></p>
</td>
</tr>
</table>
<table width="90%" border="0" align="center">
<tr bgcolor="#E2F3F2" align="center" valign="middle">
<td height="385">
<form action="show.asp" method="post" name="form" id="form">
<table align=center bgcolor=#E2F3F2 border=1
cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr bgcolor="#CCFFCC">
<td width=96 height="34"><div align="center"><font color="#0000FF">昵 称:</font></div></td>
<td width="441" height="34">
<input maxlength=30 name="userid">
<font color="#FF0000">* </font></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="35"><div align="center"><font color="#0000FF">伊妹儿:</font></div></td>
<td width="441" height="35" colspan=3>
<input type="text" name="email">
<font color="#FF0000">* </font></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="36"><div align="center"><font color="#0000FF">主 题:</font></div></td>
<td width="441" height="36" colspan=3>
<input maxlength=200 name=subject size=40></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="36"><div align="center"><font color="#0000FF">你的QQ:</font></div></td>
<td width="441" height="36" colspan=3>
<input name="qq" type="text" id="qq" maxlength="10"></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="37"><div align="center"><font color="#0000FF"> 你的主页：</font></div></td>
<td width="441" height="37" colspan=3>
<input name="site" type="text" id="site" value=""></td>
</tr>
<tr bgcolor="#CCFFCC">
<td width=96 height="147"><div align="center"><font color="#0000FF">留言内容:</font></div></td>
<td width="441" height="147" colspan=3>
<textarea cols=50 name=content rows=12></textarea></td>
</tr>
<tr align=middle bgcolor="#CCFFCC">
<td height="56" colspan=4>
<div align="center">
<input name=button1 type=button value=" 发 表 " onclick="check()">
<input name=button2 type=reset value=" 重 写 ">
</div></td>
</tr>
</tbody>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>
保存程序
<%@ language=VBScript%>
<html>
<head>
<title>保存留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#CCFFCC" text="#0000FF">
<p align="center"><strong><font color="#FF0000" size="+6" face="行楷">我的留言本</font></strong></p>
<%
'获得表单内的信息
userid = Request.Form ("userid")
title= Request.Form("subject")
site=Request.Form("site")
content= Request.Form("content")
email=Request.Form("email")
wtime=now()
from=Request.ServerVariables("REMOTE_ADDR")
email="<a href=mailto:" & email & ">" & email & "</a>"
if title="" then
title="无标题"
end if
On Error Resume Next
Application.Lock
'以ForAppending模式开启留言文件
set fso = CreateObject("Scripting.FileSystemObject")
'取得save和oldsave两个文件的完整路径
filepath=server.MapPath("save.txt")
oldfilepath=server.MapPath("oldsave.txt")
'将save改名为oldsave
fso.CopyFile filepath ,oldfilepath
'打开oldsave文件
set readf=fso.OpenTextFile(oldfilepath,1,true)
t=readf.ReadAll
'打开save文件
set showf=fso.CreateTextFile(filepath,true)
'将新的留言内容添加(append)到留言文件中
showf.WriteLine arrow & "<b>留言者</b>：" & userid & "<br>"
showf.WriteLine arrow & "<b>伊妹儿</b>：" & email & "<br>"
showf.WriteLine arrow & "<b>来自于</b>：" & from & "<br>"
showf.WriteLine arrow & "<b>发表日期</b>：" & wtime & "<br>"
showf.WriteLine arrow & "<b>留言者主页</b>：" & site & "<br>"
showf.WriteLine arrow & "<b>留言标题</b>：" & title & "<br>"
showf.WriteLine arrow & "<b>留言内容</b>："& content & "<p>"
showf.WriteLine
showf.WriteLine "<hr>"
' 读出oldsave的内容，写入save中
showf.WriteLine t
'关闭oldsave文件
readf.Close
'删除oldsave文件
fso.DeleteFile oldfilepath,true
Application.UnLock
'顺便将留言内容输出到浏览器中
Response.Write "<h3>"
Response.Write "以下是 <i>" & userid & "</i> 的留言内容:"
Response.Write "</h3><hr>"
Response.Write arrow & "<b>来自于</b>：" & from & "<br>"
Response.Write arrow & "<b>伊妹儿</b> ：" & email & "<br>"
Response.Write arrow & "<b>发表日期</b>：" & wtime & "<br>"
Response.Write arrow & "<b>留言者主页</b>：" & site & "<br>"
Response.Write arrow & "<b>留言标题</b>：" & title & "<br>"
Response.Write arrow & "<b>留言内容</b>：" & content & "<p>"
Response.Write "<hr>"
%>
<p align="center">点击<A href="show.asp"><font color="#FF00FF">这里</font></A>，<font color="#0000FF">查看所有留言!</font></p>
</body>
</html>
显示程序
@ language=VBScript%>
<html>
<head>
<title>所有留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#CCFFCC" text="#0000FF">
<p align="center"><font face="华文行楷" size="+6"><font color="#FF0000" face="行楷"><strong>留言本</strong></font></font> </p>
<hr>
<p align="center"></p>
<%
on error resume next
set fso = CreateObject("Scripting.FileSystemObject")
filepath=server.MapPath("save.txt")
set showall=fso.OpenTextFile(filepath,1,true)
t=showall.ReadAll
Response.write(t)
showall.close
%>
</body>
</html>
I. asp如何自动删除留言信息
想要自动删除的话必须是要有独立的服务器,在任务计划里加个任务,用来执行你的SQL这样才可以~否则无法实现
J. 如何用asp做网页留言
文本框输入提交到数据库
点击查看可以显示出来
可以删除和管理
就这样很简单