📄 logs.asp

📁 BBS论坛的开发和设计
💻 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"">&nbsp;<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="搜索">&nbsp;<%=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 "&nbsp;<a title=""第一页"" href=""logs.asp?"& logpage &"""><font face=webdings>9</font></a>"
for j = beginpage to endpage
	if j = page then
		response.write"&nbsp;<b>[" & j & "]</b>&nbsp;"
	else
		response.write"&nbsp;<a href=""logs.asp?page=" & j & logpage &""">[" & j & "]</a>&nbsp;"
	end if
next
if endpage < pagecount then response.write "&nbsp;<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="&lt;&lt;&lt; 返回上一页">
      </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 + -