大家帮我看看，我这段修改数据库的代码怎么修改不成功的啊，谢谢了哦

[dolphin77]

<%
sub ddcl()
id=request("id")
zt="已经处理"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
sql="update buyer set zt='"&zt&"' where ddbh="&id
conn.execute(sql)
end sub
%>

[dolphin77]

最好是有高人能给我解释下这当中出错的原因，在线等待的，谢谢了哦

[clbaddd]

这样写
<%
sub ddcl()
id=request("id")
zt="已经处理"
sql="update buyer set zt='"&zt&"' where ddbh="&id
conn.execute(sql)
end sub
%>
把rs去掉

[clbaddd]

另外你应该在sub中加入一个参数
sub ddcl(id)
id = Request("ID")
...
end sub

[dolphin77]

好的，谢谢你了啊，你有qq吗，能加我吗？

[dolphin77]

大哥，我试了你说的，还是不能修改的啊，是不是什么地方不正确啊，你能加我的qq110742314吗？

[wudi626]

试试看
<%
sub ddcl(id)
id=request("id")
zt="已经处理"
sql="update buyer set zt='"&zt&"' where ddbh="&id&""
conn.execute(sql)
end sub
%>
在提交的时候应该要 调用 ddcl()的函数

[ahhisoft]

<%
sub ddcl(id)
zt="已经处理"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
sql="select zt from buyer where ddbh="&id
rs("zt")=zt
end sub
%>

[dolphin77]

<%
Sub Ddcl()
Id=request("id")
Zt="已经处理"
Conn.execute("Update Buyer Set Zt='"&zt&"' where Ddbh="&id)
End Sub
%>

[dolphin77]

<%
on error resume next
Conn.execute("Update Buyer Set Zt='已经处理' where Ddbh='"&Request("id")&"'")
if err then
Response.Write ("Update Buyer Set Zt='已经处理' where Ddbh='"&Request("id")&"'")&"<p>"
Response.Write Err.Number & Err.Description
response.End
End if
%>
最后用的这个解决的问题