📄 adminlog.asp

📁 苹果风格的论坛 asp编写
💻 ASP
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->

<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="admin.css" type="text/css">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%

if request("mode") = "del" then

	errstr = ""
	
	if IsNumeric(request("lognum")) then
		lognum = clng(request("lognum"))
	else
		errstr = errstr & "<LI>参数必须为数字<BR>"
	end if

	if errstr = "" then
		rs.close
		Set rs = Server.CreateObject("ADODB.Recordset")
		if lognum < 100 then lognum = 100
		strsql = "select top " & lognum & " adminlogid from sf_adminlog order by adminlogid DESC"
		rs.Open strsql, Conn, 1, 1
		if rs.bof or rs.eof then
			errstr = errstr & "<LI>当前无任何记录<BR>"
		else
			rs.movelast
			Conn.Execute("delete sf_adminlog where adminlogid<" & rs("adminlogid"))
		end if
	end if

	if errstr = "" then
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">多余的操作记录已清理完毕</TD>
  </TR>
</TABLE>
<%
	else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF">错误:<BR><%= errstr %></TD>
  </TR>
</TABLE>
<%
	end if

else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
 <TR bgcolor="#D1E3BF" align="center"> 
   <TD colspan="6"><B>论坛管理日志</B></TD>
 </TR>
<%
	page = request("page")
	if page = "" then
		page = 1
	else
		if not IsNumeric(page) then
			page = 1
		else
			page = clng(page)
		end if
	end if

	Set rs = Server.CreateObject("ADODB.Recordset")
	strsql = "select * from sf_adminlog order by adminlogid DESC"
rs.Open strsql, Conn, 3, 2
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
	if not (rs.bof or rs.eof) then
		i = 1
		rs.PageSize = 50
		if page > rs.PageCount then page = rs.PageCount
		rs.AbsolutePage = page
		pagecount = rs.PageCount
		response.write  "<tr bgcolor=""#EEEEEE""><td width=""20%"" align=""center"">时间</td><td width=""10%"" align=""center"">IP地址</td><td width=""20%"" align=""center"">操作者名称</td><td width=""35%"" align=""center"">脚本名称</td><td width=""15%"" align=""center"">扩展信息</td></tr>"
		do until rs.eof or i > rs.PageSize
			if (i mod 2) = 0 then
				response.write "<tr bgcolor=""#FFFFFF"">"
			else
				response.write "<tr bgcolor=""#F5F5F5"">"
			end if
			response.write "<td>" & rs("adminlogdate") & "</td><td>" & rs("ipaddress") & "</td><td>" & "<a href=""../showuser.asp?userid=" & rs("userid") & """ target=_blank><b>" & rs("username") & "</b></a></td><td>" & rs("script") & "</td><td>" & rs("extrainfo") & "</td></tr>"
			i = i + 1
			rs.MoveNext
		loop
		response.write  "</table><br><br>"
		response.write "<p align=""center"">共"& rs.RecordCount & "条记录, 当前为第" & page & "页, 选择页数:"
		Set Conn = nothing
		Set rs = nothing
		for i=1 to pagecount
			response.write "&nbsp;<a href=""forumlog.asp?page=" & i & """>" & i & "</a>"
		next
		response.write "</p>"
%>
<FORM name="form1" method="post" action="adminlog.asp">
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
    <TR bgcolor="#E4EEDB">
      <TD> 
        只保留最近<INPUT type="text" name="lognum" size="5" value="100">条记录, 其余的删除 (至少要保留最近的100条记录)
      </TD>
    </TR>
    <TR bgcolor="#F5F5F5">
      <TD> 
  <input type="hidden" name="mode" value="del">
  <input type="submit" value="确 定">
      </TD>
    </TR>
</TABLE>
</FORM>
<%
	else
		response.write "<tr bgcolor=""#F5F5F5""><td>记录为空</td></tr></table>"
	end if
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -