<%if request("yhm") <> "" then yhm = request("yhm")
page =int(Request("page"))
id = request("id")
if id<>"" then
fid = " where id in (" + left(id,len(id)-1) + ")"
exec="delete from yrwl_tb_dlxx " + fid
conn.execute exec
conn.close
response.redirect "tb_dlxx.asp?page="+cstr(page)
end if
exec="select * from yrwl_tb_dlxx where yhm='"+yhm+"' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,1
rs.PageSize =20
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page%>
序号
登陆窗口
登陆时间
IP
<%For i = 1 To rs.PageSize
If rs.EOF Then Exit For
ck = rs("ck")
id = rs("id")
sj = rs("sj")
ip = rs("ip")%>