response.Write "<table align=center width=95% border=0 cellpadding=3 cellspacing=1 bgcolor=#b9d8f3>" response.Write "<tr><td>选</td><td>姓名</td><td>时间</td><td>事件</td><td>详情</td><tr>" do while not rs.eof and i<rs.pagesize response.Write "<tr bgcolor=#F4FAFF><td><input type='checkbox' value='"&rs("ID")&"'></td><td>"&rs(1)&"</td><td>"&rs(2)&"</td><td>"&rs(3)&"</td><td><a href='detail.asp?id="&rs(0)&"'>详情</a></td></tr>" i=i+1 rs.movenext loop
response.Write "<tr><td colspan=9><a href='check.asp?"&str&"&page=1'>首页</a>|" if rs.pagecount>1 then response.Write "<a href='check.asp?"&str&"&page="&page-1&"'>上一页</a>|" response.Write " "&page&" |" response.Write "<a href='check.asp?"&str&"&page="&page+1&"'>下一页</a>|" end if
selectid=request("selectid") if selectid<>"" then conn.execute "delete from 你的表名 where id in ("&selectid&")" response.Redirect "删除完去的页面地址" response.End end if
response.Write "<table align=center width=95% border=0 cellpadding=3 cellspacing=1 bgcolor=#b9d8f3>" response.Write "<form>" response.Write "<tr><td>选</td><td>姓名</td><td>时间</td><td>事件</td><td>详情</td><td>选择</td><tr>" do while not rs.eof and i<rs.pagesize response.Write "<tr bgcolor=#F4FAFF><td><input type='checkbox' value='"&rs("ID")&"'></td><td>"&rs(1)&"</td><td>"&rs(2)&"</td><td>"&rs(3)&"</td><td><a href='detail.asp?id="&rs(0)&"'>详情</a></td><td><input name=""selectid"" type=""checkbox"" id=""selectid"" value="""&rs("ID")&"""></td></tr>" i=i+1 rs.movenext loop