📄 manlog.asp
字号:
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
dim nowpage,howturn,sn,conn,rs,cls
nowpage=Request("page")
if nowpage="" then nowpage=1
nowpage=int(nowpage)
if nowpage<1 then nowpage=1
howturn=Request("turn")
if howturn="" then howturn="time"
if howturn<>"" and howturn<>"kind" and howturn<>"who" and howturn<>"manager" and howturn<>"liyou" and howturn<>"time" and howturn<>"memo" then Response.Redirect "err.asp?kind=22"
sn=false
cls=false
function kindit(v)
select case v
case 1 Response.Write "踢人"
case 2 Response.Write "封锁IP"
case 3 Response.Write "轰炸"
case 4 Response.Write "解封IP"
case 5 Response.Write "升级(锁定)"
case 6 Response.Write "降级(锁定)"
case 7 Response.Write "升级(不锁)"
case 8 Response.Write "降级(不锁)"
case 9 Response.Write "锁定级别"
case 10 Response.Write "解锁级别"
end select
end function
if IsArray(Session("info")) then
%>
<!--#INCLUDE FILE="config.asp" -->
<%
info=Session("info")
gradeinfo=Application("gradeinfo")
if gradeinfo(info(1),30)=true then sn=true
if info(0)=zzbird_master then cls=true
end if
function ni(v)
if v=true and sn<>true then
Response.Write "(匿名管理员)"
else
Response.Write tmanager
end if
end function
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open Application("zzbird_conn")
Set Rs=server.createobject("adodb.recordset")
sql="select * from manlog order by "&howturn&" desc"
rs.open sql,conn,3,3
rs.pagesize=15 '每页显示数
howpage=rs.pagecount '共几页
if nowpage>howpage then nowpage=howpage
if rs.recordcount<>0 then rs.absolutepage=nowpage '当前页
dim tkind
dim tmanager
dim twho
dim tip
dim tliyou
dim ttime
dim tniming
dim tmemo
set tkind=Rs("kind")
set tmanager=Rs("manager")
set twho=Rs("who")
set tip=Rs("ip")
set tliyou=Rs("liyou")
set ttime=Rs("time")
set tniming=Rs("niming")
set tmemo=Rs("memo")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理日志</title>
<style>
<!--
.put { width:100%; height:18; font-size:9pt }
.in { border-style:solid; border-width:0; height:15; font-size:9pt; background-color:buttonface }
-->
</style>
</head>
<body oncontextmenu=self.event.returnValue=false style="border: 3px double buttonface; font-size:10pt" bgcolor="buttonface" link="#000000" vlink="#000000" alink="#800000">
<form method="POST" action="findotherok.asp" name="myform">
<fieldset style="padding: 2">
<legend><font color="#A20000"><img border="0" src="images/top.gif">管理日志</font></legend>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size: 10pt" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="100%" style="border: 2px inset #FFFFFF" colspan="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size: 10pt" width="100%" id="AutoNumber1">
<tr>
<td height="16" width="10%">
<input type="button" value="操作类型" name="b2" <%if howturn="kind" then%>style="border: 2px inset buttongace"<%else%> onclick="location.href='manlog.asp?turn=kind';"<%end if%> class="put"></td>
<td height="16" width="13%">
<input type="button" value="管理员" name="b4" <%if howturn="manager" then%>style="border: 2px inset buttonface"<%else%> onclick="location.href='manlog.asp?turn=manager';"<%end if%> class="put"></td>
<td height="16" width="13%">
<input type="button" value="管理对象" name="b5" <%if howturn="who" then%>style="border: 2px inset buttonface"<%else%> onclick="location.href='manlog.asp?turn=who';"<%end if%> class="put"></td>
<td height="16" width="39%">
<input type="button" value="操作理由" name="b6" <%if howturn="liyou" then%>style="border: 2px inset buttonface"<%else%> onclick="location.href='manlog.asp?turn=liyou';"<%end if%> class="put"></td>
<td height="16" width="16%">
<input type="button" value="操作时间" name="b3" <%if howturn="time" then%>style="border: 2px inset buttonface"<%else%> onclick="location.href='manlog.asp?turn=time';"<%end if%> class="put"></td>
<td height="16" width="10%">
<input type="button" value="备注" name="b1" <%if howturn="memo" then%>style="border: 2px inset buttonface"<%else%> onclick="location.href='manlog.asp?turn=memo';"<%end if%> class="put"></td>
</tr>
<%for i=1 to rs.pagesize
if not Rs.Eof then%>
<tr>
<td height="18" width="10%">
<input type="text" class="in" size=10 readonly name="28" value="<%kindit(tkind)%>"></td>
<td height="18" width="13%">
<input type="text" class="in" size=12 readonly name="25" value="<%ni(tniming)%>"></td>
<td height="18" width="13%">
<input type="text" class="in" size=12 readonly name="24" value="<%Response.Write twho
if tip<>"0.0.0.0" then Response.Write "(" & tip & ")"%>"></td>
<td height="18" width="39%">
<input type="text" class="in" size=40 readonly name="29" value="<%=tliyou%>"></td>
<td height="18" width="16%">
<input type="text" class="in" size=16 readonly name="20" value="<%=ttime%>"></td>
<td height="18" width="10%">
<input type="text" class="in" size=7 readonly name="110" value="<%=tmemo%>"></td>
</tr>
<%
rs.movenext
else
%>
<tr>
<td height="18" width="10%">
<input type="text" class="in" size=10 readonly name="27"></td>
<td height="18" width="13%">
</td>
<td height="18" width="13%">
</td>
<td height="18" width="39%">
</td>
<td height="18" width="16%">
</td>
<td height="18" width="10%">
</td>
</tr>
<%end if
next%>
</table>
</td>
</tr>
<tr>
<td width="61%">共<font color="#A20000"><%=rs.recordcount%></font>条，分<font color="#A20000"><%=howpage%></font>页
，当前<select size="1" name="nowpage" style="font-size: 8pt; color:#A20000" onchange="window.open(this.options[this.selectedIndex].value,'_self')">
<%for i=1 to howpage%>
<option value="manlog.asp?turn=<%=howturn%>&page=<%=i%>" <%if nowpage=i then%>selected<%end if%>><%=i%></option>
<%next%>
</select>页</td>
<td width="39%" align="right"><%if nowpage=1 or rs.recordcount=0 then%><font color="#808080">首页 上页</font> <%else%><a href="manlog.asp?turn=<%=howturn%>&page=1">首页</a> <a href="manlog.asp?turn=<%=howturn%>&page=<%=nowpage-1%>">上页</a><%end if
if nowpage=howpage then%>
<font color="#808080">下页 末页</font><%else%>
<a href="manlog.asp?turn=<%=howturn%>&page=<%=nowpage+1%>">下页</a> <a href="manlog.asp?turn=<%=howturn%>&page=<%=howpage%>">末页</a><%end if%></td>
</tr>
</table>
</fieldset><div align="center">
<%if cls=true then%>
<input type="button" value=" 清 理 " name="B1" style="border-style:outset; border-width:1; width: 76; height: 22; color: #FF0000" onclick="javascript:location.href='manlog_clear.asp';">
<%else%>
<input type="button" value=" 清 理 " name="B1" style="border-style:outset; border-width:1; width: 76; height: 22" disabled>
<%end if%>
<input type="button" value=" 确 定 " name="B2" style="border-style:outset; border-width:1; width: 76; height: 22" onclick="javascript:window.close();">
<input type="button" value=" 取 消 " name="B3" style="border-style:outset; border-width:1; width: 76; height: 22" onclick="javascript:window.close();">
</div>
<div align="right">
<a href="http://aspxer.com/go.aspx?action=nowchat" target="_blank"><font style="font-size: 8pt" color="#808080">NowChat 2.2 - Powered by 喳喳鸟</font></a></div>
</form>
</body>
</html>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -