sheepeven.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!--#include file="connsheep.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="sheepconfig.asp"-->
<!-- #include file="inc/DvADChar.asp" -->
<%
Dvbbs.stats="农场事件"
Dvbbs.nav()
Dvbbs.Head_var 2,0,"",""
	if dvbbs.master then dvbbs.FoundIsChallenge=false
	if Dvbbs.FoundIsChallenge then
    Errmsg=Errmsg+"<li>请不要以翻越围墙的方式进入农场屠宰场，否则我们的狼狗会对你的安全不利。"
	dvbbs.FoundIsChallenge=true
    dvbbs_error() 
'	exit sub
	else
call sheephead()
call banklog()
	dvbbs.activeonline()
	end if
	dvbbs.footer()
	REM 显示版面信息---Headinfo
sub banklog()
		      
	if request("action")="dellog" then
		call batch()
	else
		call logeven()
	end if
end sub
sub logeven()
	dim endpage
	dim totalrec
	dim n
	dim currentpage,page_count,Pcount
		
	currentPage=request("page")
	if currentpage=""  then
		currentpage=1
	else
		currentpage=clng(currentpage)
	end if	
%>	<table cellpadding=3 cellspacing=1 align=center class=tableborder1> 
<%	
  if dvbbs.master then
  %>      <tr>
        <td align=center class=tablebody1>
<%
		response.write "<div align=center></div>"
		response.write "<div align=center><font color=red>管理员请点击操作时间切换到管理状态</font></div>"
		response.write "<div align=center><font color=red>管理状态下点击操作者查看该操作者的所有事件</font></div>"
	else
		response.write "<div align=center>浏览农场操作事件记录</div>"
	end if
	response.write "<div align=center>点击具体的类型可以浏览相同类型的操作事件记录</div>"
%> 
       </td>
        </tr>
		</table> 
	<form action=sheepeven.asp?action=dellog method=post name=even>
	<table cellpadding=3 cellspacing=1 align=center class=tableborder1> 
		<tr>
			<th width=5% height=25>类型</th>
			<th width=15%>标题</th>
			<th width=50% id=tabletitlelink>事件内容(<a href=sheepeven.asp?title=点击查看全部事件>查看全部事件</a>)</th>
			<th width=20% id=tabletitlelink><a href=sheepeven.asp?action=batch&page=<%=currentpage%> title=点击切换到管理状态>操作时间</a></th>
			<th width=10%>操作人</th> 
		</tr>
<%
	set rs=server.createobject("adodb.recordset")
	if request("reaction")="农场" then
		sql="select * from events where type='农场' order by date desc"
	elseif request("reaction")="用户" then
		sql="select * from events where type='用户' order by date desc"
	elseif request("reaction")="管理" then	
		sql="select * from events where type='管理' order by date desc"
	elseif request("reaction")="操作者" and trim(request("name"))<>"" then	
		sql="select * from events where operator='"&checkStr(trim(request("name")))&"' order by date desc"		
	else		
		sql="select * from events order by date desc" 
	end if	
	rs.open sql,conn1,1,1
	if rs.bof and rs.eof then
		response.write "<tr><td class=tablebody1 colspan=5 height=25>暂时没有任何事件</td></tr></table><br>"
	else
		rs.PageSize = dvbbs.Forum_Setting(11)
		rs.AbsolutePage=currentpage
		page_count=0
      	totalrec=rs.recordcount
		while (not rs.eof) and (not page_count = rs.PageSize)
			response.write "<tr>"
			response.write "<td class=tablebody1 align=center height=24><a href=sheepeven.asp?reaction="&rs("type")&" title=""点击查看所有["&rs("type")&"]事件"">"&rs("type")&"</a></td>"
			response.write "<td class=tablebody1>"&dvbbs.htmlencode(rs("title"))&"</td>"
			response.write "<td class=tablebody1>"&rs("content")&"</td>"
			response.write "<td class=tablebody1>"
			if request("action")="batch" and dvbbs.master then
				response.write "<input type=checkbox name=lid value="&rs("id")&">"
			end if
			response.write rs("date")
			response.write "</td>"
			response.write "<td align=center class=tablebody1>"
			if dvbbs.master then
				if request("action")="batch" then
					response.write "<a href=sheepeven.asp?reaction=操作者&name="&dvbbs.htmlencode(rs("operator"))&" title=[点击查看该操作者的所有操作记录]>"
				else
					response.write "<a href=dispuser.asp?name="&dvbbs.htmlencode(rs("operator"))&" target=_blank title=[点击查看该操作者的资料]>"			
				end if
			else
				response.write "<a href=dispuser.asp?name="&dvbbs.htmlencode(rs("operator"))&" target=_blank>"
			end if
			response.write dvbbs.htmlencode(rs("operator"))&"</a></td>"	
			response.write "</tr>"
			page_count = page_count + 1
			rs.movenext
		wend
								
		if request("action")="batch" and dvbbs.master then
			response.write "<tr><td class=tablebody2 colspan=5>请选择要删除的事件，<input type=checkbox name=chkall value=on onclick=""CheckAll(this.form)"">全选 <input type=submit name=Submit value=执行 onclick=""javascript:{if(confirm('您确定执行的操作吗?')){this.document.even.submit();return true;}return false;}""></td></tr>"
		end if
		response.write "</table>"
		
		if totalrec mod dvbbs.Forum_Setting(11)=0 then
				Pcount= totalrec \ dvbbs.Forum_Setting(11)
		else
				Pcount= totalrec \ dvbbs.Forum_Setting(11)+1
		end if
		response.write "<table border=0 cellpadding=0 cellspacing=3 width="""&dvbbs.Forum_info(12)&""" align=center>"
		response.write "<tr><td valign=middle nowrap>"
		response.write "页次：<b>"&currentpage&"</b>/<b>"&Pcount&"</b>页"
		response.write "&nbsp;每页<b>"&dvbbs.Forum_Setting(11)&"</b> 总数<b>"&totalrec&"</b></td>"
		response.write "<td valign=middle nowrap align=right>分页："
		if currentpage > 4 then
			if request("reaction")="操作者" then
				response.write "<a href=""?reaction=操作者&name="&request("name")&"&page=1"">[1]</a> ..."
			else
				response.write "<a href=""?page=1"">[1]</a> ..."
			end if 
		end if
		if Pcount>currentpage+3 then
			endpage=currentpage+3
		else
			endpage=Pcount
		end if
		for i=currentpage-3 to endpage
			if not i<1 then
				if i = clng(currentpage) then
					response.write " <font color="&dvbbs.Forum_info(8)&">["&i&"]</font>"
				else
					if request("reaction")="操作者" then
						response.write "<a href=""?reaction=操作者&name="&request("name")&"&page="&i&""">["&i&"]</a>"
					else
						response.write " <a href=""?page="&i&""">["&i&"]</a>"
					end if 				
					
				end if
			end if
		next
		if currentpage+3 < Pcount then 
			response.write "... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
		end if
		response.write "</td></tr></table>"
	end if	
	rs.close
	set rs=nothing		
end sub
sub batch()
	dim lid
	if not dvbbs.FoundIsChallenge then
		dvbbs.FoundIsChallenge=true
		Errmsg=Errmsg+"<br>"+"<li>请登陆后进行操作。"
	end if
	if not dvbbs.master then
			dvbbs.FoundIsChallenge=true
			Errmsg=Errmsg+"<br>"+"<li>您不是系统管理员，不能管理所有日志。"
	end if

	if request.form("lid")="" then
		dvbbs.FoundIsChallenge=true
		Errmsg=Errmsg+"<br>"+"<li>请指定相关事件。"
	else
		lid=replace(request.Form("lid"),"'","")
	end if
	if dvbbs.FoundIsChallenge then exit sub
	conn1.execute("delete from events where id in ("&lid&")")
'	if cint(log_setting(0))=1 and cint(log_setting(3))=1 then
	'	content="删除指定事件"
	'	call logs("管理","农场事件管理",dvbbs.membername)
	'	sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
'	end if	
	
	sucmsg="<li>删除指定事件成功"
	call bank_suc("")
end sub
	%>