<%@ LANGUAGE=VBScript.Encode codepage ="936" %> <%Response.Expires=0 if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=Int(TWT_ArrArg(2)) myid=TWT_ArrArg(1) userip=Request.ServerVariables("REMOTE_ADDR") if nickname="" then Response.Redirect "../error.asp?id=440" page=Request.QueryString("page") if page="" then page=1 if Not(IsNumeric(page)) then page=1 if page<1 then page=1 page=int(page) Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr sql="SELECT logtime,name,ip,opertion FROM logdata ORDER BY logtime DESC" rs.open sql,conn,1,1 rs.PageSize=15 totalrec=rs.RecordCount totalpage=rs.PageCount if page>totalpage then page=totalpage if totalrec>0 then rs.AbsolutePage=page p=1+(page-1)*rs.PageSize Dim show() i=0 j=1 Do while (Not rs.Eof) and (i 管理日志

【管理日志】

刷新

［注意事项］　　本页刷新时间：<%=sj%>
　　管理日志用于监督六扇门的管理，本公开栏只保留最近 7 天的记录。目前共有 <%=totalrec%> 条记录。 <%if totalrec>0 then%>

<%for i=1 to totalpage if page=i then Response.Write " [" & i & "]" else Response.Write " [" & i & "]" end if next if grade>=10 then Response.Write "　【清理】　" if grade>=10 then Response.Write "　【全部清除】　" %>

<%if grade>=10 then j=0 for i=1 to UBound(show) step 4 '不看IP 'Response.Write "

第 " & p+j & " 条　" & show(i) & " " & show(i+1) & " " & show(i+3) & "

" Response.Write "

第 " & p+j & " 条　" & show(i) & " " & show(i+1) & "(" & show(i+2) & ") " & show(i+3) & "

" j=j+1 next else j=0 for i=1 to UBound(show) step 4 Response.Write "

第 " & p+j & " 条　" & show(i) & " " & show(i+1) & " " & show(i+3) & "

" j=j+1 next end if end if%>