我还是不太清楚，没实验成功过，所以把代码弄出来！

<table width="719" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->
<tr>
<td width="228" height="22">&nbsp;</td>
<td width="74" align="center" valign="middle">id:</td>
<td width="344" valign="middle">&nbsp;&nbsp;&nbsp;&nbsp;姓 名: </td>
<td width="68" align="center" ><input type='submit' class=buttonface value='删 除'></td>
</tr><%do while not rs.eof%>
<tr>
<td height="21">&nbsp;</td>
<td align="center" valign="middle"><%=rs("id")%>&nbsp;</td>
<td valign="middle">&nbsp;&nbsp;&nbsp;&nbsp;<a href="dao2.asp?id=<%=rs("id")%>"><%=rs("name")%></a></td>
<td valign="top"><form id="form1" name="form1" method="post" action="">
<label>
<input type="checkbox" name="selAnnounce" value="<%=cstr(rs("id"))%> "/>
</label>
</form> </td>
<%

rs.movenext
loop
%>

然后呢
有一个过程
<%
sub deleteannounce(id)
dim rs,sql
response.write "<center><font color=red>"
set rs=server.createobject("adodb.recordset")
sql="delete from img where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
else
response.write "删除成功！<br>"
end if
response.write "</font></center>"
End sub
%>

调用过程的是
<%
dim idlist
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
dim sql
dim rs
%>

idArr=split(idlist)
应该是
idArr=split(idlist,",")

版主能贴过例子来吗？这样感觉很麻烦咯！

回家睡觉吧，这样很简单！

让你改一条语句都闲麻烦，我无话可说！

我想实现批量删除功能,最好用for...each  next语句,因为它可以逐个读出传送过来的表单的数据,如request.form("item")的值是1,3,5,7,那么用for ...each next就能将所选的项目读出并从数据库中删除了.我经常用它.

版主误会了，我以为版主有更好的，才这样问的！
如果我就是改一下都不愿改的话，我又何必来这发贴呢？

也谢谢楼上的答复，我理解下先！

批量删除用这个行不？
conn.execute("delete from liuyan where id in (" & Request.Form("ID") & ")")

Request.Form("ID")这可以是复选框的ID号。

可以，但要将它放在for..each next之中，这样可以每次只读出一个reqeust.form("id").

还有应将"in"改为"="

conn.execute("delete from img where id in (" & Request.Form("ID") & ")")
我经常用这个