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

所属分类：网络编程 / ASP编程阅读数： 633

收藏 0赞 0分享

方法一：

 
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 

方法二：巧用in关键字实现数据的批量删除
managenews.asp

复制代码代码如下:

 
<!--#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;i<document.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; i<a.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> 

delnews.asp文件

复制代码代码如下:

 
<!--#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 
%> 

更多精彩内容其他人还在看