www.gusucode.com > 栽豆迷你博客 MiniBlog 3.0 正式版源码程序 > Admin_Log.asp

    <!--#include file="include/conn.asp" -->
<!--#include file="include/const.asp" -->
<!--#include file="include/const_admin.asp" -->
<!--#include file="include/md5.asp" -->
<!--#include file="include/Function.asp" -->
<%
Dim Cmd,Rs
Cmd=Request("cmd")
Admin.Header
Response.Write "<div class=wtable><div class=wtable_name>系统运行日志</div><div class=wtable_cont>"
Select Case Cmd
Case "verify"
	Caluoob.Execute("delete from cb_log where RunTimes < now()-2")
	Response.Write "<br><p align=center>成功删除日志。注意：两天内的日志会被系统保留。<a href=""javascript:history.back(-1)"">返回上一页。</a></p><br>"
Case Else
	Response.Write "<table width=""100%"" border=0 cellpadding=4 cellspacing=1 bgcolor=#DADADA>"
	Response.Write "<tr bgcolor=#E6EBF7 align=center>"
	Response.Write "<td width=""20%"">执行脚本</td>"
	Response.Write "<td width=""20%"">执行参数</td>"
	Response.Write "<td width=""20%"">用户名</td>"
	Response.Write "<td width=""20%"">IP记录</td>"
	Response.Write "<td width=""20%"">执行时间</td>"
	Response.Write "</tr>"
Dim Sqlstr,AllPage,Page,MaxPage,StrHreF,jj
MaxPage=20
page=ValidInteger(Request("p"))
If page="" then page=1
If Not IsObject(Conn) Then ConnectionDatabase
Caluoob.SqlQueryNum=Caluoob.SqlQueryNum+1
	Set rs=server.CreateObject("ADODB.recordset")
		Sqlstr="Select ScriptName,Arguments,UserName,UserIP,RunTimes From cb_log order by id desc"
			rs.Open sqlstr,conn,1,1
	If Not(Rs.eof or Rs.bof) then
		AllPage=rs.RecordCount
		rs.MoveFirst
		rs.Move (Page-1)*MaxPage
		For jj=1 to MaxPage
			Response.Write "<tr bgcolor=white>"
			Response.Write "<td>"&Rs(0)&"</td>"
			Response.Write "<td style=""cursor:pointer;"" title="&Rs(1)&">"&Rs(1)&"</td>"
			Response.Write "<td>"&Rs(2)&"</td>"
			Response.Write "<td>"&Rs(3)&"</td>"
			Response.Write "<td>"&Rs(4)&"</td>"
			Response.Write "</tr>"
			rs.movenext
			If rs.EOF Then Exit For
			next
			Response.Write "<tr  bgcolor=white><td colspan=5>"&SubClassPage(Page,MaxPage,AllPage,StrHreF)&"</td></tr>"
	Else
			Response.Write "<tr bgcolor=white align=center><td colspan=5><br>暂无操作记录。<br><br></td></tr>"
	End If
Rs.Close
Set Rs=Nothing
	Response.Write "<tr bgcolor=white>"
	Response.Write "<td colspan=5 style=""line-height:180%;"">考虑数据库负载，运行记录仅对某些删除操作进行记录，且目前仅记录参数和所操作文件以及一些比较常用的参数。<a href=?cmd=verify>删除记录</a>后系统将保留近两天的记录信息。"
	Response.Write "</td></tr>"
	Response.Write "</table>"
End Select
Response.Write "</div></div>"
Admin.Footer
%>