📄 admin_log.asp
字号:
<!--#include file =setup.asp-->
<!--#include file =check.asp-->
<%
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_log.asp
' 更新日期：2006-11-20
' 官方网站：www.newasp.net QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim LogType,WhereSQL,i
Dim TotalNumber,TotalPageNum,CurrentPage,maxperpage
Admin_header
If Not ChkAdmin("999") Then
Server.Transfer("showerr.asp")
Response.End
End If
ConnectionLogDatabase
LogType = Trim(Request("type"))
Select Case Trim(LCase(Request("Action")))
Case "del"
Call BatchDel
Case Else
Call LogMain
End Select
If Founderr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
CloseConn
Sub Logmain()
%>
<TABLE width='98%' align=center cellpadding=3 cellspacing=1 border=0 class=tableBorder>
<TR>
<TH colspan=5>后台日志管理</TH>
</TR>
<TR height=25>
<TD colspan=5 class=TableRow2> <B>选择查看日志事件：</B>
<A HREF=admin_log.asp>查看全部日志</A> | <A HREF=admin_log.asp?type=0>查看事件0</A> | <A HREF=admin_log.asp?type=1>查看事件1</A></TD>
</TR>
<TR>
<TH noWrap>操作</TH>
<TH noWrap>操 作 人</TH>
<TH noWrap> 对 象 </TH>
<TH width='70%'>事件内容</TH>
<TH noWrap>日期时间/IP</TH>
</TR><form action=admin_log.asp?action=del&LogType= method=post name=even>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
maxperpage = 20 '###每页显示数
If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
Response.Write ("错误的系统参数!请输入整数")
Response.Write
End If
If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
CurrentPage = CInt(Request("page"))
Else
CurrentPage = 1
End If
If LogType = "" Then
WhereSQL = ""
Else
WhereSQL = "where LogType=" & LogType
End If
TotalNumber = lConn.Execute("Select count(logid) from [NC_LogInfo] "& WhereSQL &"")(0)
TotalPageNum = CInt(TotalNumber / maxperpage) '得到总页数
If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
SQL = "select * from NC_LogInfo "& WhereSQL &" order by logid desc"
Rs.Open SQL, lConn, 1, 1
If Rs.bof And Rs.EOF Then
Response.Write "<tr><td colspan=5 class=TableRow1>还没有找到任何日志！</td></tr>"
Else
If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
i = 0
Do While Not Rs.EOF And i < CInt(maxperpage)
%>
<TR height=22>
<TD class=TableRow1 align=center><input type=checkbox name=logid value="<%=Rs("logid")%>"></TD>
<TD class=TableRow1 noWrap><%=Server.HTMLEncode(Rs("username"))%></TD>
<TD class=TableRow1 noWrap><%=Server.HTMLEncode(Rs("ScriptName"))%></TD>
<TD class=TableRow1><%=Server.HTMLEncode(Rs("ActContent"))%></TD>
<TD class=TableRow1 noWrap><%=Rs("LogAddTime")%><BR><%=Rs("UserIP")%></TD>
</TR>
<%
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close:Set Rs = Nothing
%>
<TR height=25>
<TD class=TableRow1 align=center colspan=5><B>请选择要删除的日志事件:<B>
<input type=checkbox name=chkall value=on onclick="CheckAll(this.form)"> 全选
<input class=Button type=submit name=act value=删除日志 onclick="{if(confirm('您确定执行的操作吗?')){this.document.even.submit();return true;}return false;}">
<input class=Button type=submit name=act onclick="{if(confirm('确定清除所有的日志纪录吗?')){this.document.even.submit();return true;}return false;}" value=清空日志>
<input class=Button type=submit name=act onclick="{if(confirm('确定压缩日志数据库吗?')){this.document.even.submit();return true;}return false;}" value=压缩数据库></TD>
</TR></form>
<TR height=25>
<TD class=TableRow2 align=center colspan=5><%Call showpage%></TD>
</TR>
</TABLE>
<%
End Sub
Private Sub showpage()
Dim n,ii
If totalnumber Mod maxperpage = 0 Then
n = totalnumber \ maxperpage
Else
n = totalnumber \ maxperpage + 1
End If
Response.Write "<table cellspacing=1 width='100%' border=0><form method=Post action=?type=" & Request("type") & "><tr><td align=center> " & vbCrLf
If CurrentPage < 2 Then
Response.Write "共有日志 <font COLOR=#FF0000><strong>" & totalnumber & "</strong></font> 条 首 页 上一页 "
Else
Response.Write "共有日志 <font COLOR=#FF0000><strong>" & totalnumber & "</strong></font> 条 <a href=?page=1&type=" & Request("calsid") & ">首 页</a> "
Response.Write "<a href=?page=" & CurrentPage - 1 & "&type=" & Request("type") & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "下一页 尾 页" & vbCrLf
Else
Response.Write "<a href=?page=" & (CurrentPage + 1) & "&type=" & Request("type") & ">下一页</a>"
Response.Write " <a href=?page=" & n & "&type=" & Request("type") & ">尾 页</a>" & vbCrLf
End If
Response.Write " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
Response.Write " 转到："
Response.Write " <select name='page' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>" & vbCrLf
For ii = 1 To n
Response.Write "<option value='" & ii & "' "
If CurrentPage = CInt(ii) Then
Response.Write "selected "
End If
Response.Write ">第" & ii & "页</option>"
Next
Response.Write "</select> " & vbCrLf
Response.Write "</td></tr></FORM></table>" & vbCrLf
End Sub
Sub BatchDel()
Dim logid
If Request("act")="删除日志" Then
If request.form("logid")="" Then
ErrMsg = "请指定相关事件。"
Founderr = True
Exit Sub
Else
logid=replace(Request.Form("logid"),"'","")
logid=replace(logid,";","")
logid=replace(logid,"--","")
logid=replace(logid,")","")
End If
End If
If Request("act")="压缩数据库" Then
If CompressMDB("Logdata.Asa") Then OutHintScript("恭喜您 ^_^ 日志数据库压缩成功！")
ElseIf Request("act")="删除日志" Then
lConn.Execute("delete from NC_LogInfo where Datediff('D',LogAddTime, Now()) > 3 And logid in ("&logid&")")
ElseIf Request("act")="清空日志" Then
If request("LogType")="" or IsNull(Request("LogType")) Then
lConn.Execute("delete from NC_LogInfo Where Datediff('D',LogAddTime, Now) > 3")
Else
lConn.Execute("delete from NC_LogInfo where Datediff('D',LogAddTime, Now()) > 3 And LogType="&CInt(request("LogType"))&"")
End If
End If
Succeed ("成功删除日志。注意：三天内的日志会被系统保留。")
End Sub
'================================================
' 函数名：CompressMDB
' 作 用：压缩ACCESS数据库
' 参 数：dbPath ----数据库路径
' 返回值：True ---- False
'================================================
Public Function CompressMDB(DBPath)
Dim fso, Engine, strDBPath, JET_3X
CompressMDB = False
If DBPath = "" Then Exit Function
If InStr(DBPath, ":") = 0 Then DBPath = Server.MapPath(DBPath)
strDBPath = Left(DBPath, InStrRev(DBPath, "\"))
Set fso = CreateObject(Newasp.FSO_ScriptName)
If fso.FileExists(DBPath) Then
fso.CopyFile DBPath, strDBPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
fso.CopyFile strDBPath & "temp1.mdb", DBPath
fso.DeleteFile (strDBPath & "temp.mdb")
fso.DeleteFile (strDBPath & "temp1.mdb")
Set fso = Nothing
Set Engine = Nothing
CompressMDB = True
Else
CompressMDB = False
End If
End Function
%>
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -