可以定义复选框的value为rs.absolutepostion，点击submit按钮后，将复选框的值request到，然后temparray=split(复选框值,",")，最后运行一个循环，将temparray内的记录一一删掉即可。

谢谢楼上两位大虾。能不能帮我看看下面的代码为什么会出错好吧？
发送：
">

接收：
<%
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
DBPath = Server.MapPath("../db/info.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

strDeleteList = Request.Form ("cone")

strsql="DELETE FROM free WHERE ID IN ('"&strDeleteList&"')"
rs.open strsql, conn
%>
报错的是rs.open strsal,conn

问题解决了，谢谢。