<!-- #Include File="Include/Config.asp" -->
<!-- #include file="Include/Con_bbs_Fir.asp" -->
<!-- #Include File="../Include/Cls_PageCute.asp" -->
<%

'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit_fir=Cls.ChannelName
ftit="事件"
call bbs_first()
call DoWebHead(0,0)
call bbs_load_power()
'----------------------------中间 开始----------------------------
call bbs_grade(0)
call bbs_top(0,"")
call bbs_event_body()
'----------------------------中间 结束----------------------------
call bbs_end()
call DoWebEnd()
sub bbs_event_body()
  dim tmp1,tim,nip,secrecy_u
  secrecy_u=false
  if bbs_config(2)=1 then secrecy_u=true
  if is_super=true then
    secrecy_u=false
  end if
  tmp1=vbcrlf&"<tr align=center class=bbs_tr height=30><td>" & _
       vbcrlf&"<table cellpadding=1 cellspacing=1 class=table>" & _
       vbcrlf&"<tr align=center height=18>" & _
       vbcrlf&"<td width=26 class=bbs_tre>序号</td>" & _
       vbcrlf&"<td width='*' class=bbs_tre>事件内容(查看所有事件记录)</td>" & _
       vbcrlf&"<td width=70 class=bbs_tre>操作用户</td>" & _
       vbcrlf&"<td width=70 class=bbs_tre>操作时间</td>" & _
       vbcrlf&"<td width=70 class=bbs_tre>操作人</td>" & _
       vbcrlf&"</tr>"
  dim obj_page
  set obj_page=new Cls_PageCute
  obj_page.pageurl="?fid="&Bbsid&"&"
  obj_page.nummer=Format_Mid_Num(12)
  obj_page.page_t=1
  obj_page.page_p=10
  obj_page.page_unit="条"
  obj_page.page_tit="事件"
  obj_page.v_id="id"
  Call obj_page.p_init("*","AsaiMHBbsEvent","bbs_id="&Bbsid,"id desc")
  sql=obj_page.sql_count
  set rs=Cls.exec(sql,1)
  obj_page.rssum=rs(0)
  rs.close
  call obj_page.p_main("*","AsaiMHBbsEvent","bbs_id="&Bbsid,"id desc")
  for i=1 to obj_page.page_num
    nip=""
    tim=rs("tim")
    if int(secrecy_u)=0 then nip=rs("ip")
    tmp1=tmp1&vbcrlf&"<tr class=tr  align=center height=25>" & _
		   vbcrlf&"<td  title='"&nip&"'><font class=tims>"&obj_page.page_now+i&"</font></td>" & _
		   vbcrlf&"<td align=left>"&Cls.code_html(rs("remark"),1,0)&"</td>" & _
		   vbcrlf&"<td >"&format_user_view(rs("o_user"),1,10)&"</td>" & _
		   vbcrlf&"<td><font class=tims title='"&tim&"'>"&Cls.time_type(tim,3)&"</font></td>" & _
		   vbcrlf&"<td >"
    if secrecy_u=true then
      tmp1=tmp1&vbcrlf&"<font class=Gys>保密</font>"
    else
      tmp1=tmp1&vbcrlf&format_user_view(rs("username"),1,10)
    end if
    tmp1=tmp1&vbcrlf&"</td></tr>"
    rs.movenext
  next
  rs.close
  tmp1=tmp1&vbcrlf&"<tr class=bbs_trp><td colspan=5>" & _
            vbcrlf&"<table border=0 cellspacing=0 cellpadding=1>" & _
            vbcrlf&"<tr>" & _
            vbcrlf&"<td>"&obj_page.page_var&"</td>" & _
            vbcrlf&"<td width=5></td>" & _
            vbcrlf&"<td>分页：</td>" & _
            vbcrlf&"  <td>"&obj_page.page_cute&"</td>" & _
            vbcrlf&"  <td width=5></td>" & _
            vbcrlf&  obj_page.page_shortcut  & _
            vbcrlf&"</tr>" & _
            vbcrlf&"</table>" & _
            vbcrlf&"</td></tr>" & _
            vbcrlf&"</table></td></tr>"
  set obj_page=nothing
  Cls.LoadTemplate(4)
  Cls.ReadPage "common"
  Cls.HtmlRcod "title",tit
  Cls.HtmlRcod "BbsGrade",bbs_grade(0)
  Cls.HtmlRcod "BbsTopBar",bbs_top(0,"")
  Cls.HtmlRcod "body",tmp1
  Cls.OutPage
end sub
%>
