Question

asp 怎么删除数据库中所有的相关数据

代码在下面，传递的参数是ad，我要删除数据库中所有包含传递来的字符的数据。
然后再写入新数据
要怎么添加删除代码
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("count.mdb")
%>
<%
ip=request.servervariables("remote_addr")
ad=request("ad")
Dim rsadd
set rsadd=server.CreateObject("adodb.recordset")
rsadd.Open "select * from mz",conn,1,3
rsadd.AddNew
rsadd("ip")=ip
rsadd("ad")=ad
rsadd("t")=now
rsadd.Update
rsadd.Close
set rsadd=nothing
response.write "添加完成！"
%>

Answer 1

<%
 ip=request.servervariables("remote_addr")
 ad=request("ad")
 Dim rsadd
 conn.execute("DELETE FROM  mz where ad like '%"&ad&"%'")
 response.write "删除完成！"
 '下面添加不变
 set rsadd=server.CreateObject("adodb.recordset")
 rsadd.Open "select * from mz",conn,1,3
 rsadd.AddNew
 rsadd("ip")=ip
 rsadd("ad")=ad
 rsadd("t")=now
 rsadd.Update
 rsadd.Close
 set rsadd=nothing 
 response.write "添加完成！"
%>

执行语句前要备份数据库。这个执行是删除全部包含AD的数据，不可恢复。

追问

好屌，给个QQ吧

追答

你好，很高兴能为你解答。有问题继续提问就可以。谢谢！

追问

好吧，ad传递过来的是中文。
写入数据库后都变乱码了。response.write ad 这样显示也是乱码
这个asp文件代码只有上面这些，没有别的，要怎样才能让他正常显示

追答

出现乱码是你网页编码的问题。提交的页面和asp页面编码要一致。
提交数据的页面写
asp页面最顶部写

Answer 2

假设你传递过来的参数ad代表数据库中某字段，完全相等（就是传递参数比如是id）
ad=request.QueryString("ad")
conn.execute("delete from table where 字段='"&ad&"'")
或者 包含参数
conn.execute("delete from table where 字段 like '%"&ad&"%'")

Answer 3

sql="Select * from mz where ad_field'="&ad&"'"
rsadd.Open sql,conn,3,3
rsadd.delete
rsadd.update
rsadd.close

追问

Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/ip/w.asp，行 12

追答

我后面是写了个条件。。。你得按你实际情况写啊