📄 manrzview.asp
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
If nickname = "" Then Response.Redirect "manerr.asp?id=100"
If inthechat<>"1" Then Response.Redirect "manerr.asp?id=100"
If inthechat<>"1" and nickname<>"聊天室管理员" then Response.Redirect "manerr.asp?id=110"
If grade <> 12 Then
qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
qx0 = qx(24)
qx1 = qx(25)
qx2 = qx(26)
qx3 = qx(27)
qx4 = qx(28)
qx5 = qx(29)
End If
id = Request.QueryString("id")
page = Request.QueryString("page")
If id = "" Or Not IsNumeric(id) Then id = 0
id = Int(id)
If id < 0 Or id > 6 Then id = 0
If page = "" Or Not IsNumeric(page) Then page = 1
page = Int(page)
If page < 1 Then page = 1
If grade <> 12 Then
If id = 0 And qx0 <> "1" Then Response.Redirect "manerr.asp?id=110"
If id = 1 And qx1 <> "1" Then Response.Redirect "manerr.asp?id=110"
If id = 2 And qx2 <> "1" Then Response.Redirect "manerr.asp?id=110"
If id = 3 And qx3 <> "1" Then Response.Redirect "manerr.asp?id=110"
If id = 4 And qx4 <> "1" Then Response.Redirect "manerr.asp?id=110"
If id = 5 And qx5 <> "1" Then Response.Redirect "manerr.asp?id=110"
End If
If id = 6 And (grade<>12 and Session("ipbt")<>"1") Then Response.Redirect "manerr.asp?id=110"
logname = ""
Select Case id
Case 0
logname = "日常管理日志"
Case 1
logname = "货币流通日志"
Case 2
logname = "级别调整日志"
Case 3
logname = "帐号管理日志"
Case 4
logname = "酷库管理日志"
Case 5
logname = "系统调整日志"
Case 6
logname = "超管登陆日志"
End Select
sql = "SELECT * FROM logs WHERE type = '" & id & "' ORDER BY logtime DESC"
logperpage = 15
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("wsaxhg_connstr")
conn.open connstr
sqldel="DELETE FROM logs WHERE DateDiff('d',logtime,#" & sj & "#)>7"
conn.Execute sqldel
rs.open sql, conn, 1, 1
totalrec = rs.RecordCount
rs.PageSize = logperpage
totalpage = rs.PageCount
Dim show()
Redim Preserve show(0)
If totalrec > 0 Then
If page > totalpage Then page = totalpage
rs.AbsolutePage = page
i = 0
j = 1
Do While (Not rs.EOF) And (i < rs.PageSize)
i = i + 1
ReDim Preserve show(i)
If grade = 12 Then
show(i) = "<script>w(" & rs("id") & ", '" & rs("logtime") & "', '" & rs("name") & "', '" & rs("ip") & "', '" & rs("opertion") & "');</script>"
Else
show(i) = "<script>w(" & rs("id") & ", '" & rs("logtime") & "', '" & rs("name") & "', '', '" & rs("opertion") & "');</script>"
End If
rs.MoveNext
Loop
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
ubshow = UBound(show)
If totalpage <1 Then totalpage = 1
%>
<html>
<head>
<title><%=logname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<style type="text/css">
.fj{font-family:'宋体';color=008000;font-size:9pt}
.ip{font-family:'宋体';color=AAAAAA;font-size:10.5pt}
.yy{font-family:'宋体';color=009900;font-size:10.5pt}
</style>
<script Language=JavaScript>
var id = <%=id%>;
var st = <%=(page - 1) * logperpage + 1%>;
var zz = st;
var totalpage = <%=totalpage%>;
var page = <%=page%>;
var myn = "<%=nickname%>";
function del(v){
if(confirm('真的要删除ID为：[' + v + '] 的日志吗？')){
url = "manrzdelone.asp?id=" + v;
window.open(url, '', 'width = 380, height = 170');
}
}
function w(v0, v2, v3, v4, v5){
if(st != zz){
show = "<br><br>";
}
else{
show = "";
}
show = show + "<font color=999999>第 " + st + " 条</font> ";
show = show + v2;
if(myn == "聊天室管理员"){
show = show + " <a href=javascript:del(" + v0 + ") title='删除此记录'>[ID: " + v0 + "]</a>";
}
if(id != 0){
show = show + "<br>"
}
else{
show = show + "<br>"
}
show = show + "<font color=red>" + v3 + "</font>";
if(v4 != ""){
show = show + "<font color=AAAAAA>(" + v4 + ")</font>";
}
show = show + " " + v5;
document.write(show);
st++;
}
function showpage(){
if(page != 1){
document.write("<a href=manrzview.asp?id=" + id + "&page=1>首页</a> ");
}
else{
document.write("<font color=AAAAAA>首页</font> ");
}
if(page - 1 >= 1){
document.write("<a href=manrzview.asp?id=" + id + "&page=" + (page - 1) + ">上一页</a> ");
}
else{
document.write("<font color=AAAAAA>上一页</font> ");
}
if(page + 1 <= totalpage){
document.write("<a href=manrzview.asp?id=" + id + "&page=" + (page + 1) + ">下一页</a> ");
}
else{
document.write("<font color=AAAAAA>下一页</font> ");
}
if(page != totalpage && totalpage > 0){
document.write("<a href=manrzview.asp?id=" + id + "&page=" + totalpage + ">末页</a> ");
}
else{
document.write("<font color=AAAAAA>末页</font> ");
}
}
</script>
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center"><h1><font color="0099FF">【<%=logname%>】</font></h1>
<a href="manrz.asp">[返回]</a> <a href="javascript:history.go(0)">[刷新]</a></div>
<hr noshade size="1" color=009900>
<table width="100%" border="0">
<tr>
<td>此日志共有 <font color=red><%=totalrec%></font> 条，每页显示 <font color=red><%=logperpage%></font>
条，第 <font color=red><%=page & "/" & totalpage%></font> 页。 </td>
<td align="right">
<script Language=JavaScript>
showpage();
</script>
</td>
</tr>
</table>
<hr noshade size="1" color=009900>
<%
For i = 1 To ubshow
Response.Write show(i) & chr(13) & chr(10)
Next
%>
<hr noshade size="1" color=009900>
<table width="100%" border="0">
<tr>
<%If grade = 12 and Int(Session("ipbt")) = 1 Then%>
<td>
<a href=javascript:clear();>『清空此日志』</a>
<script Language=JavaScript>
function clear(){
var yn = prompt("如果确实要清空“<%=logname%>”，请输入“yes”。", "")
if(yn == "yes"){
url = "manrzdelall.asp?id=<%=id%>";
window.open(url, '', 'width = 380, height = 170');
}
}
</script>
</td>
<%End If%>
<td align="right">
<script Language=JavaScript>
showpage();
</script>
</td>
</tr>
</table>
<hr noshade size="1" color=009900>
<div align=center class=cp>
<%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -