UC知道ASP提交数据库
来源：百度知道 编辑：UC知道 时间：2024/06/01 13:15:28
点提交后显示提交成功，但数据库里没有数据set Rs=server.createobject("adodb.recordset")
Sql="select * from Leexii_Feedback where (ID is null)"
Rs.open Sql,conn,1,3
Rs.addnew
Rs("Name") = Request.Form("Name")
Rs("Title") = Request.Form("Title")
Rs("Tel") = Request.Form("Tel")
Rs("Mob") = Request.Form("Mob")
Rs("Email") = Request.Form("Email")
Rs("Content") = Request.Form("Content")
Rs("State") = 0
Rs("IP") = Cstr(Request.ServerVariables("REMOTE_ADDR"))
Rs("AddDate") = Now()
Rs.update
Rs.close
set Rs=nothing
conn.close
set conn=nothing
Response.write "<script language='javascript'>" & chr(13)
response.write "alert('留言成功!我们会尽快和你取得联系！');" & Chr(
Sql="select * from Leexii_Feedback where (ID is null)"
Rs.open Sql,conn,1,3
Rs.addnew
Rs("Name") = Request.Form("Name")
Rs("Title") = Request.Form("Title")
Rs("Tel") = Request.Form("Tel")
Rs("Mob") = Request.Form("Mob")
Rs("Email") = Request.Form("Email")
Rs("Content") = Request.Form("Content")
Rs("State") = 0
Rs("IP") = Cstr(Request.ServerVariables("REMOTE_ADDR"))
Rs("AddDate") = Now()
Rs.update
Rs.close
set Rs=nothing
conn.close
set conn=nothing
Response.write "<script language='javascript'>" & chr(13)
response.write "alert('留言成功!我们会尽快和你取得联系！');" & Chr(
Sql="select * from Leexii_Feedback where (ID is null)"
Rs.open Sql,conn,1,3
不是很理解你的做法，(ID is null) 然后再执行添加 ？
你将这两句改为：
rs.open "Leexii_Feedback",conn,1,3
试试看是你需要达到的效果不 ？
如果你是想达到修改 (ID is null)的字段，就将rs.addnew 及rs.update去掉 。
我给你我的一个完整的留言数据 你自己参考
我的包含留言内容隐藏等内容 你看着修改
<%
sub addto()
dim username, email, homeurl, qq, body, addtime, sql, Rs, ip, face, brow
username=htmlencode2(trim(Request.form("username")))
email=htmlencode2(trim(Request.form("email")))
homeurl=htmlencode2(trim(Request.form("homeurl")))
qq=htmlencode2(trim(Request.form("qq")))
body=htmlencode2(Request.form("body"))
face=Request.form("face")
ip=Request.ServerVariables("REMOTE_ADDR")
brow=Request.form("brow")
hide=Request.form("hiden")
if username = "" then
message=