<% dim isdisp,bbseveninfo dim endpage dim totalrec dim n dim currentpage,page_count,Pcount dim bgcolor if boardid=0 then stats="论坛总事件列表" call nav() call head_var(2,0,"","") else stats="事件记录列表" call nav() call head_var(1,BoardDepth,0,0) end if if Cint(GroupSetting(39))=0 then Errmsg=Errmsg+"
"+"

您没有浏览本论坛事件的权限，请登陆或者同管理员联系。" founderr=true end if if master then founderr=false if founderr then call dvbbs_error() else if request("action")="dellog" then call batch() else call boardeven() end if if founderr then call dvbbs_error() call activeonline() end if call footer() REM 显示版面信息---Headinfo sub boardeven() currentPage=request("page") if currentpage="" or not isInteger(currentpage) then currentpage=1 else currentpage=clng(currentpage) end if if master then response.write "

版主或管理员请点击操作时间切换到管理状态

" end if response.write "

" response.write "" response.write "" response.write "" response.write "" set rs=server.createobject("adodb.recordset") if boardid>0 then sql="select * from log where l_boardid="&boardid&" order by l_addtime desc" else sql="select * from log order by l_addtime desc" end if rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "" else rs.PageSize = Forum_Setting(11) rs.AbsolutePage=currentpage page_count=0 totalrec=rs.recordcount while (not rs.eof) and (not page_count = rs.PageSize) if bgcolor=Forum_body(4) then bgcolor=Forum_body(5) else bgcolor=Forum_body(4) end if response.write "" response.write "" response.write "" response.write "" response.write "" page_count = page_count + 1 rs.movenext wend end if if request("action")="batch" then response.write "" end if response.write "

对象" response.write "	事件内容(查看所有事件记录)" response.write "	操作时间" response.write "	操作人
本版还没有任何事件
"&htmlencode(rs("l_touser"))&"	"&htmlencode(rs("l_content"))&"	" if request("action")="batch" and (master or boardmaster) then response.write "" end if response.write rs("l_addtime") response.write "	" if master or superboardmaster then response.write ""&htmlencode(rs("l_username"))&"" elseif boardid=0 and not (master or superboardmaster) then response.write "保密" elseif Board_Setting(36)<>"" and isnumeric(Board_Setting(36)) then if Cint(Board_Setting(36))=1 then response.write ""&htmlencode(rs("l_username"))&"" else response.write "保密" end if else response.write "保密" end if response.write "
请选择要删除的事件，全选 "&_ "

" if totalrec mod Forum_Setting(11)=0 then Pcount= totalrec \ Forum_Setting(11) else Pcount= totalrec \ Forum_Setting(11)+1 end if response.write "" response.write "" response.write "

" response.write "页次："¤tpage&"/"&Pcount&"页" response.write " 每页"&Forum_Setting(11)&" 总数"&totalrec&"

分页：" if currentpage > 4 then response.write "[1] ..." 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 " ["&i&"]" else response.write " ["&i&"]" end if end if next if currentpage+3 < Pcount then response.write "... ["&Pcount&"]" end if response.write "

" rs.close set rs=nothing end sub sub batch() dim lid if not founduser then founderr=true Errmsg=Errmsg+"
"+"

请登陆后进行操作。" end if if boardid=0 then if not (master or superboardmaster) then founderr=true Errmsg=Errmsg+"
"+"

您不是系统管理员，不能管理所有日志。" end if else if not boardmaster then Errmsg=Errmsg+"
"+"

您不是该版面斑竹或者系统管理员。

或者您没有使用该功能的权限。" founderr=true end if end if if request("act")="删除" then if request.form("lid")="" then founderr=true Errmsg=Errmsg+"
"+"

请指定相关事件。" else lid=replace(request.Form("lid"),"'","") lid=replace(lid,";","") lid=replace(lid,"--","") lid=replace(lid,")","") end if end if if founderr then exit sub if request("act")="删除" then conn.execute("delete from log where l_id in ("&lid&")") elseif request("act")="清空日志" then if boardmaster then conn.execute("delete from log where l_boardid="&boardid&" ") else conn.execute("delete from log ") end if end if sucmsg="

删除指定事件成功" call dvbbs_suc() end sub %>