?? logs.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<!--#include file="INC/CHAR.INC"-->
<%
'****************************************************************
'* joinboard BBS Ver2.3.0/友盟論壇 Ver2.3.0
'*
'* 版權所有: JoinBoard V2.3
'*
'* 程序制作: 友盟工作室
'*
'* 主頁地址: http://joinboard.com 友盟論壇
'*
'* 論壇地址: http://bbs.joinboard.com/、http://youmeng.com
'*
'****************************************************************
'* Powered by: JoinBoard V2.3
'* Copyright 2003－2004. - All Rights Reserved.
'* JoinBoard is a trademark of YouMeng Studio.
'****************************************************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟論壇">
<title><%=BBS_Config(0)%> - 論壇日志</title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
return eval(jsStr)
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()
response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""& BBSHomeUrl &""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <strong>論壇日志</strong>"
response.Write "</td></tr></table>"
if usergroup > 4 then
showMsg "對不起，您不可以查看本論壇日志!~<a href=""javascript:history.back()"">點擊這里返回</a>"
Call Bottom()
response.End()
End if
'--------------------------------------------
action = trim(request.QueryString("action"))
select case action
case "del"
call del()
case "showlog"
call showlog()
case else
call show()
End select
'--------------------------------------------------------
Sub show()
logusername = replace(trim(request.Querystring("logusername")),"'","")
if logusername <> "" then
sql="select * from JBB_log where username='"+ logusername +"' order by logid desc"
logpage = "&logusername="& logusername
logtext = "當前顯示<font color=red>"& logusername &"</font>的操作日志 | <a href=""logs.asp"">顯示全部</a>"
else
sql="select * from JBB_log order by logid desc"
End if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table height="29" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<form name="form2" method="Get" action="logs.asp"><tr>
<td>輸入操作人:
<input name="logusername" type="text" id="logusername" size="16" maxlength="20">
<input type="submit" name="Submit3" value="搜索"> <%=logtext%>
</td>
</tr></form>
</table>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form4" id="form4" method="post" action="logs.asp?action=del">
<tr>
<td class="table-title">操作人</td>
<td class="table-title">操作時間</td>
<td class="table-title"> 操作內容/文章作者</td>
<td class="table-title">操作理由/扣分</td>
<td class="table-title"> <div align="center">原內容</div></td>
<td class="table-title">操作時IP</td>
<%
if usergroup=1 then
%>
<td width="15" class="table-title"> <div align="center"> </div></td>
<%
end if
%>
</tr>
<%
if not(rs.Eof and rs.Bof) then
page = trim(request.form("page"))
if page = "" then page = trim(request.QueryString("page"))
if Not(IsNumeric(page)) or page = "0" then page = 1
rs.pageSize = 30
pageCount = rs.pageCount
if len(page) > 4 then page = pageCount
if Cint(page) > Cint(pageCount) then page = pageCount
rs.absolutepage = page
color2 = 0
for i = 1 to rs.pagesize
if rs.eof then exit for
if color2 mod 2 = 0 then
color1 = "Class=""table-dark"""
else
color1 = "Class=""table-light"""
end if
%>
<tr <%=color1%>>
<td><%="<a href=""user.asp?userid="&rtrim(rs("userid"))&""" target=""_blank"">"&rtrim(rs("username"))&"</a>"%></td>
<td><%=rtrim(rs("logtime"))%></td>
<td><%=rtrim(rs("logC"))%></td>
<td><%=rtrim(rs("reason"))%></td>
<td> <div align="center"><a href="?action=showlog&logid=<%=rs("logid")%>">
<%if trim(rs("oldcontent")) <> "" then response.Write("查看") end if%>
</a></div></td>
<td><%=rtrim(rs("logIP"))%></td>
<%
if userID=1 and usergroup=1 then
%>
<td> <div align="center">
<input name="logid" type="checkbox" id="logid" value="<%=trim(rs("logid"))%>">
</div></td>
<%
End if
%>
</tr>
<%
rs.MoveNext
color2=color2+1
Next'i
End if
if userID=1 and usergroup=1 then
%>
<tr align="right" <%=color1%>>
<script language="javascript">
function AllSet(theForm)
{
for(i=0;i<document.form4.length;i++)
if(document.form4.elements[i].type=="checkbox")
document.form4.elements[i].checked=1}
function Reverse()
{
for(i=0;i<document.form4.length;i++)
if(document.form4.elements[i].type=="checkbox")
if(document.form4.elements[i].checked==1)
document.form4.elements[i].checked=0
else
document.form4.elements[i].checked=1}
function ReSet()
{
for(i=0;i<document.form4.length;i++)
if(document.form4.elements[i].type=="checkbox")
if(document.form4.elements[i].checked==1)
document.form4.elements[i].checked=0}
</script>
<td colspan="7">
<input name="button" type=button onclick="AllSet()" value="全選">
<input name="button" type=button onclick="Reverse()" value="反選">
<input name="button" type=button onclick="ReSet()" value="不選">
<input name="Submit" type="submit" id="Submit" value="刪除所選"></td>
</tr>
<%
End if
%>
</form>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<tr>
<td>
<%
if pagecount < 1 then pagecount = 1
response.Write "頁次："& PAGECOUNT &"/" & page &"頁 每頁"& rs.pageSize &" 記錄"&rs.recordCount&" "
%>
</td>
<td height="30">分頁:
<%
beginpage = 1
endpage = CInt(pagecount)
page = CInt(page)
if pagecount >= 9 then
if page >= 5 then
beginpage = page - 4
if page <= (pagecount - 4) then
endpage = page + 4
else
endpage = pagecount
beginpage = pagecount - 4
end if
else
beginpage = 1
endpage = 9
end if
end if
if beginpage>1 then response.write " <a title=""第一頁"" href=""logs.asp?"& logpage &"""><font face=webdings>9</font></a>"
for j = beginpage to endpage
if j = page then
response.write" <b>[" & j & "]</b> "
else
response.write" <a href=""logs.asp?page=" & j & logpage &""">[" & j & "]</a> "
end if
next
if endpage < pagecount then response.write " <a title=""最末頁"" href=""logs.asp?page="& pagecount & logpage &"""><font face=webdings>:</font></a>"
%>
</td>
<form name="form1" method="post" action="">
<td><div align="right">轉到:第
<input name="page" type="text" size="3" maxlength="5">
<input type="submit" name="Submit2" value="頁">
</div></td>
</form>
</tr>
</table>
<%
rs.close
set rs = nothing
End Sub
'----------------------------------------
Sub showlog()
logid = trim(request.QueryString("logid"))
if not(IsNumeric(logid)) then
showMsg "參數錯誤!~"
Call Bottom()
response.End()
End if
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from JBB_log where logid="&logid,conn,1,1
if not(rs.Eof and rs.Bof) then
%>
<br>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form4" method="post" action="logs.asp?action=del"><tr>
<td class="table-title">操作人</td>
<td class="table-title">操作時間</td>
<td class="table-title">
操作內容</td>
<td class="table-title">操作理由/扣分</td>
<td rowspan="2" class="table-light">
<div align="center"><strong>原<br>
內<br>
容</strong></div>
<div align="center"></div></td>
<td class="table-title">操作時IP</td>
<%
if userID=1 and usergroup=1 then
%>
<td width="15" class="table-title">
<div align="center">
<input type="submit" name="Submit4" value="刪除">
</div></td>
<%
end if
%>
</tr>
<tr>
<td class="table-dark"><%="<a href=""user.asp?userid="&rtrim(rs("userid"))&""" target=""_blank"">"&rtrim(rs("username"))&"</a>"%></td>
<td class="table-dark"><%=rtrim(rs("logtime"))%></td>
<td class="table-dark"><%=rtrim(rs("logC"))%></td>
<td class="table-dark"><font color="#FF0000"><%=rtrim(rs("reason"))%></font></td>
<td class="table-dark"><%=rtrim(rs("logIP"))%></td>
<%
if userID=1 and usergroup=1 then
%>
<td class="table-dark">
<div align="center">
<input name="logid" type="checkbox" id="logid" value="<%=rs("logid")%>">
</div></td>
<%
End if
%>
</tr></form>
<tr class="table-light">
<td colspan="7"><%=ubbcode(rtrim(rs("oldcontent")))%></td>
</tr>
<tr class="table-title">
<td colspan="7">
<div align="center">
<input name="Submit5" type="button" onClick="MM_callJS('history.back()')" value="<<< 返回上一頁">
</div></td>
</tr>
</table>
<%
End if
rs.close
set rs = nothing
End Sub
'----------------------------------------
Sub del()
set rs = Conn.ExeCute("select * from JBB_admin where adminname='"&username&"' and adminpass='"&userpass&"'")
if rs.eof or rs.bof then
showMsg "您不是本站管理員，無法執行此操作!~"
Call Bottom()
response.end
End if
set rs = nothing
logid = trim(request.Form("logid"))
'response.Write("test:"&logid)
if logid = "" then
showMsg "請點選您要刪除的logs,<a href=""javascript:history.back()"">點擊這里返回</a>!~"
else
if trim(request.Form("Submit")) = "確定刪除" then
Conn.ExeCute("delete from JBB_log where logid in("& logid &")")
showMsg "所選論壇log刪除完畢，正在返回論壇log列表!~如果您的瀏覽器沒有自動返回,<a href=""logs.asp"">請點擊這里</a>"
response.Write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL=logs.asp'>")
else
%>
<br>
<table width="395" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form3" method="post" action="logs.asp?action=del">
<tr>
<td class="table-title"><div align="center"><strong>確定刪除
<input name="logid" type="hidden" id="logid" value="<%=logid%>">
</strong></div></td>
</tr>
<tr>
<td height="44" class="table-dark"><div align="center"><font color="#FF0000">log刪除后無法恢復,您確定刪除這些log嗎？</font></div></td>
</tr>
<tr>
<td class="table-title"><div align="center">
<input name="Submit" type="submit" id="Submit" value="確定刪除">
</div></td>
</tr>
</form>
</table>
<%
End if
End if
End Sub
response.Write("<br>")
'========================================
Call Bottom()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -