191问答库 > 急，十万火急！如何用asp 做留言板的添加留言？和删除留言？要源代码

急，十万火急！如何用asp 做留言板的添加留言？和删除留言？要源代码

2025-03-01 08:57:27

推荐回答（3个）

回答1：

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
%>

留言版

<%
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")&"
留言是："&Rs("comment")&"

")
Rs.movenext
loop
end if
%>

回答2：

要原代码是吧，哪我怎么给你呢？要不你留一个mail我好发给你。

回答3：

XYCMS留言板，免费的，可以在搜索引擎里搜索一下然后下载，最新2.0版本，方便学习和研究，祝你学习顺利