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

2019-09-02 09:06asp之家 ASP教程

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

方法二：巧用in关键字实现数据的批量删除
managenews.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;

temptemp = 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 

	%>