ASp后台批量删除代码

Question

我的后台批量删除 全选以及验证按钮 都能正常使用 但是功能除全选外！其他都不起作用！
有谁能帮我远程！看一看是什么原因？
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id,xid,i,u,str1,str2,username,tupian,objFSO,fileExt,sql1,rs1
username=request.cookies("cnmai")("username")
xid=trim(request("xid"))
id=trim(request("selectedid"))
if trim(id)="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有选择记录！');" & "history.back()" & "</script>"
response.end
end if
str1=split(xid,",")
str2=split(id,",")
for i=0 to ubound(str1)
Conn.Execute("Update jle_xinxi Set hfcs=0 where id="&cstr(xid))
next
set rs1 = Server.CreateObject("ADODB.RecordSet")
for u=0 to ubound(str1)
sql1="delete from [hf] where id="&id&" "
rs1.open sql1,conn,1,3
next
response.write "删除回复信息成功！"
response.write "<meta http-equiv=refresh content=""1;URL=xxhflist.asp"">"
response.end
rs.close
set rs=nothing
closedb
%>
这段是调用删除页的代码@请问哪里出错了？

Answer 1

首先你要确认你的xid和id的形式是像（1,2,3,4）这样的形式，只有这样你在用str1=split(xid,",")得到的数组才不会包含有空值，具体是不是你可以在执行str1=split(xid,",")之前都把xid打印出来看一下；也就是先加上response.write(xid)；如果你保证形式正确了，可以用另外一种方式去批量删除，把set rs1 = Server.CreateObject("ADODB.RecordSet")
for u=0 to ubound(str1)
sql1="delete from [hf] where id="&id&" "
rs1.open sql1,conn,1,3
next
改为：set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1 = "delete from [hf] where id in ("& cstr(xid) &")"
rs1.open sql1,conn,1,1；根本不用多次执行sql语句，这样可以节省很多资源，而且执行得更快；
所以；你循环更新的那条语句也可以改成这样，因为你都是更新hfcs=0而已，
可以把 str1=split(xid,",")
str2=split(id,",")
for i=0 to ubound(str1)
Conn.Execute("Update jle_xinxi Set hfcs=0 where id="&cstr(xid))
next
改成：Conn.Execute("Update jle_xinxi Set hfcs=0 where id in("& cstr(xid) &")"
希望对你有用

Answer 2

asp 不会，asp.net到会呵呵