ASP下批量删除数据的两种方法

id=request.form("checkbox")
id=Split(id,",")
shu=0
for i=0 to UBound(id)
sql="select * from jiang_fname where id="id(i)
set rs=conn.execute(sql)
if not rs.eof then
delete_file(rs("fname"))
end if
rs.close
set rs=nothing
sql="delete from jiang_fname where id="id(i)
conn.execute sql,shu1
shu=shu+1
next

if shu>0 then
response.Write("script>alert('删除成功');location.href='"url"';/script>")
else
response.write("Script>alert('删除失败');javascript: history.back();/script>")
end if
conn.close
set conn=nothing

!--#include file="conn.asp"-->
%'数据库的连接文件我就不多说了%> html>
head>
title>管理新闻/title>
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
link rel="stylesheet" href="../index/style.css" type="text/css">
script>
function del () //用于判断记录有没有选中的函数
{
var flag=true;
var temp="";
var tmp;
if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
flag=false;
temp=document.form1.answer.value
}
}else{
for (i=0;idocument.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp==""){
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp +","+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert("对不起，你还没有选择！")}
else{ name=document.form1.name.value
//alert(name)
if (confirm("确实要删除？")){
window.location="delnews.asp?id=" + temp;
}
}
return !flag;
}
/script>
/head>
body>
script language=Javascript>
function checkall(all)//用于判断全选记录的函数
{
var a = document.getElementsByName("answer");
for (var i=0; ia.length; i++) a[i].checked = all.checked;
}
/script>
%
set rs=server.createobject("adodb.recordset")
sql="select * from news order by addtime desc"
rs.open sql,conn,1,3 %>
% if rs.eof then %>
table width="50%" border="0" align="center" ID="Table2">
tr>
td align="center">
没有新闻！
/tr>
/table>
% else %>
form method="POST" id=form1 name=form1>
table width="90%" border="0" align="center" class="tabDocborder" ID="Table3">
tr>
td>
table width="80%" align="center" id=TabDocMain border='1' cellspacing='0' cellpadding='0' bordercolorlight='#82b4dd' bordercolor='#b6d3eb' 　　　　class="TabDocMain">
thead>
tr>
td colspan="7" align="center">
新闻管理中心
/td>
/tr>
/thead>
tbody>
tr>
td align=center>
删除框
/td>
td align=center>
新闻标题
/td>
td align=center>
发布时间
/td>
td align=center>
管理
/td>
/tr>
%
do while not rs.eof
%>

　　tr>
td align=center>input type="checkbox" name="answer" value="%=rs("id")%>" ID="Checkbox1">
/td>
td align=left>%If Len(rs("title"))=30 Then%>%=rs("title")%>%else%>
%=(Left(rs("title"),30))%>...
%end if %>/td>
td align=left>%=rs("addtime")%>/td>
td align=center>a href="editnews.asp?id=%=rs("id")%>">编　辑/a>/td>
/tr>
/tbody>
%
rs.movenext
loop
%>

　　tr>
td colspan="7" align="center">
input type="checkbox" name="chkall" value="on" onclick="checkall(this)" ID="Checkbox2">选中所有的显示新闻　　　
input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onclick="del()" ID="Button1">
/td>
/tr>
/table>
/form>
/td>
/tr>
%end if%>
/table>
% set rs=nothing
conn.close
set conn=nothing
%>
/body>
/html>

!--#include file="conn.asp"-->
%
arrdel=Request("id")
'Response.Write arrdel
sql="delete from news where id in ("arrdel")"
'Response.Write sql
conn.Execute sql
set conn=nothing
response.write"SCRIPT language=JavaScript>alert('删除成功！');"
response.write"javascript: history.go(-1)/SCRIPT>"
response.end
%>