dim sqlset rs=server.createobject("adodb.recordset")sql="select * from message"rs.open sql,conn,1,1%>消 息if not(rs.eof or rs.bof) then数据分页显示If rs.recordcount>0 Then 记录集不为空则处理记录 %>rs.pagesize = 20

id=replace(request("checkbox")," ","")id=split(id,",")for i=0 to UBound(id)conn.execute("delete from message where id=" & id(i))nextresponse.write("" &chr(13) & "window.location.href = display.ASP"