大家帮我看看吧

[butterfly_444]

删除记录的错误
代码是:
<%
dim conn,rs
set conn=server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../db/db1.mdb")
id=trim(request.Form("id"))
exec="delete from zhengshu where id="&id
rs.open exec,conn,1,2
%>

错误是:

Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/admin/zhengshu_del.asp，行 7

第7行是rs.open exec,conn,1,2

如果我改成:

<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../db/db1.mdb")
id=trim(request.Form("id"))
conn.Execute = "delete from zhengshu where id="&id
%>

则提示错误是 id丢失

[butterfly_444]

我把代码改成
<%
dim conn,rs
set conn=server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../db/db1.mdb")
id=trim(request.Form("id"))
response.write ("nihao")
response.end
exec="delete from zhengshu where id="&id
rs.open exec,conn,1,2
%>
运行结果是 界面显示"nihao" 是id传值的问题 可是 我真的不知道该怎么修改 大家小妹我吧

[butterfly_444]

问题解决了
正确的代码是:
<%
dim conn,rs
set conn=server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../db/db1.mdb")
conn.execute("delete from zhengshu where id="&request("id")&" ")
%>
希望能给同样困惑的朋友们提个醒

[butterfly_444]

帮帮我 帮帮我

[BoyHaXin]

嘿嘿,

还是你哦

一样的,
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../db/db1.mdb")
id=trim(request.Form("id"))
response.write ID
response.end

conn.Execute("delete from zhengshu where id="&id)
%>
先显示ID值看看

[BoyHaXin]

如果ID没有显示值的话,就是你传参的问题罗

[butterfly_444]

呵呵 是啊 我试过了 改成你说的那样之后 页面什么也没有 没有id显示 也没有报错 也不跳转到指定页面