admin_log.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="admin_conn.asp"-->
<!--#include file="../include/admin_setting.asp"-->
<!--#include file="admin_function.asp"-->
<!--#include file="../include/md5.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
Call admin_top()
Call navMenu()
if getPopedom("eventLogAdmin")=false then
	popedomMsg
else
Select Case LCase(Request("action"))
	Case LCase("delLog")
		 Call delLog()
	Case LCase("clearAll")
		Call clearAll()
	Case Else
		Call logList()
End Select
end if
Call admin_foot()

Sub navMenu()%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="text table_border mainTable">
  <tr><td colspan="2" class="td_titleT">操作记录管理</td></tr>
  <tr><td width="95" height="30" class="td_bgcolor">管理快捷导航：</td><td class="td_bgcolor">
  <a href="admin_log.asp">事件日志管理</a>&nbsp;|&nbsp;
  <a href="admin_sqlin.asp">SQL注入日志管理</a>
  </td></tr>
</table>
<%table(5)
End Sub
Sub logList()%>
<table width="100%" border="0" cellpadding="4" cellspacing="1"  class="text table_border mainTable">
  <tr class="td_titleT"> 
    <td height="24" colspan="5" valign="middle">日志管理</td>
  </tr>
  <tr class="td_topT"> 
    <td width="80" height="19" align="center" valign="middle">操作人</td>
    <td width="120" align="center" valign="middle">操作对象</td>
    <td width="*" align="center" valign="middle">操作信息</td>
    <td width="100" align="center" valign="middle">日期/IP</td>
    <td width="40" align="center" valign="middle">操作</td>
  </tr>
<form name="form1" action="?action=delLog" method="post">
<%
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from ms_adminLog order by operateTime desc",connstr,1,1
if not rs.bof and not rs.eof then
dim url:url="admin_log.asp?"
nextpage=pagetitle(rs,20,url,"条日志")
lineNo=1
do while not rs.eof and lineNo<=rs.pagesize%>  
  <tr valign="middle" class="td_bgcolor"> 
    <td height="17"><%=rs("userName")%></td>
    <td><%=rs("scriptName")%></td>
    <td><%=rs("operateInfo")%></td>
    <td><%=rs("operateTime")&"<br/>"&rs("operateIP")%></td>
    <td><input type="checkbox" name="id" value="<%=rs("id")%>"></td>
  </tr>
<%rs.MoveNext
lineNo=lineNo+1 
loop
rs.close
set rs=nothing%>
  <tr class="td_bottomT"> 
    <td height="24" colspan="5" valign="middle"><input type="checkbox" name="checkall" id="checkall" value="checkbox" onclick="checkalldele(this.form)"><label for="checkall">选择所有</label> 
      <input type="submit" name="Submit" value="删除日志"> <input type="button" name="Submit2" onclick="javascript:window.location.href='?action=clearAll'" value="清空日志"> 
    </td>
  </tr>
</form>
  <tr class="td_titleB"> 
    <td height="24" colspan="5" valign="middle"><%=(nextpage)%></td>
  </tr>
<%else%>
  <tr class="td_bgcolor"> 
    <td height="40" colspan="5" valign="middle" align="center">没有任何记录</td>
  </tr>
<%end if%>
</table>
<script type="text/javascript">
function checkalldele(obj){
	var len=obj.elements.length;
	for(var i=0;i<len-3;i++){
		obj.elements(i).checked=obj.checkall.checked;
	}
}
</script>
<%End Sub
Sub delLog()
dim id,idArr
id=trim(replace(Request("id")," ",""))
idArr=split(id,",")
for i=0 to ubound(idArr)
	if isInteger(idArr(i))=false then
		idArr(i)=0
	end if
next
if ubound(idArr)<0 then
	adminShowMsg "出错信息","请选择至少一个进行操作"
	exit sub
end if
dim operateNum
conn.Execute "delete from ms_adminLog where id in ("&id&")",operateNum
adminShowMsg "操作成功信息","恭喜恭喜,本次操作共删除 <font color=""#ff0000"">"&operateNum&"</font> 条记录！"
End Sub
Sub clearAll()
dim operateNum
conn.Execute "delete from ms_adminLog",operateNum
adminShowMsg "操作成功信息","恭喜恭喜,本次操作共删除 <font color=""#ff0000"">"&operateNum&"</font> 条记录！"
End Sub
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>