请问如何象163,sina等邮箱那样同时删除多个记录？代码如何写？

[zhengshier]

请问如何象163,sina等邮箱那样同时删除多个记录？代码如何写？

[lordwudee]

用多选框加循环实现
在表单中输出每条数据，每条数据前加多选框，name和value都是rs("id")
处理页面，用循环删除数据：
do while not rs.eof
if request.form(""&rs("id"))-rs("id")=0 then
rs.delete
end if
rs.movenext
loop

[boywind]

delete from table where id in request("id")

[xing0091]

用复选框
<input name="ck" type="checkbox" id="ck" value="<%=rs("id")%>">
if request("ck")<>"" then
ckuser=split(request("ck"),",")
for i=0 to ubound(ckuser)
sql="delete user where userid ="&ckuser(i)
conn.execute sql
next
end if

[colinliu]

<input name="ck" type="checkbox" id="ck" value="<%=rs("id")%>">
sql="delete user where userid in request("ck")
conn.execute sql

我感覺這裡的處理效率可能會高一點.............

[luckweb]

改一下 xing0091() 的
用复选框
dim sql
sql=""
<input name="ck" type="checkbox" id="ck" value="<%=rs("id")%>">
if request("ck")<>"" then
ckuser=split(request("ck"),",")
for i=0 to ubound(ckuser)
sql=sql & "delete user where userid ="&ckuser(i) &";"
next
end if
conn.execute sql

[andraw2002]

它们前面都有个同名的复选框：a，它的value是你这邮件的ID号：
strID = Trim(Request.Form("a"))
strSql = "Delete From [邮件表] Where id in (" & strID & ")"
Conn.Execute strSql

[javasam]

它们前面都有个同名的复选框：a，它的value是你这邮件的ID号：
i=request.Form("a").count
if i<>0 then
ID = Request.Form("a")
strSql = "Delete From 邮件表 Where id in (" & ID & ")"
Conn.Execute strSql
end if

[jervis82]

复选表单的全选这一个功能怎样实现？