asp，设计一个简单的留言板，在线等
'这是添加留言的页面add.asp
'我没看见你的数据库表的名字，于是就用的lyb,你可以改，95%手打，望采纳
新增留言
<%
if request("action") = "add" then
call add()
end if
%>
主题
内容
姓名
邮箱
<%
sub add()
zt=request("zt")
nr=request("nr")
xm=request("nr")
yx=request("yx")
set rs = server.CreateObject ("adodb.recordset")
sql="select * from lyb"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.AddNew
rs("title")=zt
rs("body")=nr
rs("name")=xm
rs("yx")=email
rs("submit_date")=now()
rs.update
response.write("添加成功！")
else
reponse.write("添加失败！")
end if
rs.close
set rs=nothing
end sub
%>
'这是留言查看页面带删除功能 index.asp
留言板
<%
if request("action") = "del" then
call del()
end if
%>
主题
内容
姓名
邮箱
删除
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select *from lyb order by submit_date desc" '这里的表名为数据库表名，排序为时间降序
rs.open sql conn 3,1
do while rs.eof=false
%>
" onClick="JavaScript:return confirm('确认删除吗？！')">删除
<%
rs.movenext
loop
%>
<%
sub del()
id=request("id")
set rs=conn.execute("delete from lyb where id="&id)
response.write("删除成功！")
end sub
%>
'这是数据库连接文件 conn.asp
<%
set connection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Guest.mdb")
connection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
%>
求一个简单的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 "记录添加成功!"
%>
