selectid=request.form("selectid")
if selectid<>"" then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from table where id in ("&selectid&")"
rs.open sql,conn,1
if not rs.eof then
response.write "总共删除记录"&rs.recordcount&"条。<br>"
do while not rs.eof
conn.Execute("delete from table where id="&rs(0))
rs.movenext
loop
end if
rs.close
set rs=nothing
end if