on error resume next
dim reback
reback=request.form("reback")
if reback<>"" then
sql="select * from cndb where id="&request("id")
rs.open sql,cn,3,2
if not rs.eof then
rs.addnew
rs("reback")=reback
rs.update
rs.close
set rs=nothing
response.Redirect("留言板.asp")
response.end
end if
end if
我发现回复内容写不进数据库的哦