<%response.expires=0%> <%conn.Execute("DELETE FROM record WHERE DATEDIFF('d',occ_time,now())>10") dim rootRs Set rootRs=Server.CreateObject("ADODB.RecordSet") sql="select * from record order by id desc" pagesize=20 rootRs.Open sql,conn,1,1%>

<%If rootRs.Bof OR rootRs.Eof Then%> <%else rootRs.pagesize=pagesize page=Request("page") if not IsNumeric(page) or page="" then page=1 if (page-1)<0 then page=rootRs.pagecount elseif (page-rootRs.pagecount)>0 then page=1 end if rootRs.AbsolutePage=page RowCount =rootRs.pagesize If Not rootRs.Eof Then%> <%End If End if rootRs.close Set rootRs=nothing conn.close Set conn=nothing%> 聊务公开 本聊务公开用于监督管理员的行为，只保留最近10天的记录。 没有找到任何记录。 第<%=page%>页 共<%=rootRs.pagecount%>页 上一页 下一页 刷新浏览 转到 页 第<%=page%>页 共<%=rootRs.pagecount%>页 上一页 下一页 刷新浏览 转到 页 [后退]