asp批量删除数据库，程序如下

news.asp

<%

newsid=request("newsid")
if newsid<>"" then

  conn.execute "delete from news where newsid in ("&newsid&")"
  response.Redirect "news.asp"

end if
%>

<table>
  <tr>
    <td>ID</td>
    <td>Title</td>
    <td>Del</td>
  </tr>
<form method="post" action="news.asp">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select newsid,title,ordernumber from news order by newsid desc"
rs.open sql,conn,1,1
if rs.eof And rs.bof then
else
  do while not rs.eof
%>

  <tr>
    <td><%=rs("newsid")%></td>
    <td><%=rs("title")%></td>
    <td><input name="newsid" type="checkbox" value="<%=rs("newsid")%>"></td>
  </tr>

<%
  rs.movenext
  loop
end if
rs.close
set rs=nothing
%>
 <tr>
   <td colspan="3" align="right"><input type="submit" name="Submit" class="go-wenbenkuang" value="删 除" onClick="return confirm('确认删除吗？');"></td>
 </tr>

</form>
</table>