| 提议监督记录 |
<%conn.Execute("DELETE FROM tyrecord WHERE datediff('d',tytime,'"&now()&"')>7")
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tyrecord ORDER BY ID desc"
rootRs.Open sql,conn,1,1
If rootRs.Bof OR rootRs.Eof Then%> | 最近7天没有任何提议记录 |
<%else
pagesize=20
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%>
| 序号 | 姓名 | ＩＰ | 时间 |
事件 |
<%top_num=(page-1)*pagesize+1
Do While (Not rootRs.Eof) AND RowCount>0
response.write ""
rootRs.MoveNext
top_num=top_num+1
RowCount=RowCount-1
Loop%> | 序号 | 姓名 | ＩＰ | 时间 |
事件 |
<%End If
rootRs.close
set rootRs=nothing
rsparam.close
set rsparam=nothing
conn.close
Set conn=nothing%>
[后退] |