<!-- #include file="include/con_forum.asp" -->
<%
if not isnumeric(forumid) then
  call format_redirect("forum.asp")
end if
%>
<!-- #include file="include/con_forum_fir.asp" -->
<!-- #include file="include/con_forum_list.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<%
dim secrecy_u,nummer,nums,rssum,page,viewpage,thepages
secrecy_u=int(format_mid_num(28))
nummer=dim_num(0)
nums=nummer
page=1

ftit="事件"

call forum_first()
call web_head(0,0,h_var3,0,0)
call forum_load(0,0,0,0)
'----------------------------中间 开始----------------------------
call forum_grade()
call forum_top(tit)

call forum_event_body()

response.write vbcrlf&ukong
'----------------------------中间 结束----------------------------
call forum_end()
call web_end(0,0)

sub forum_event_body()
  dim temp1,sql_add,pageurl,tim
  pageurl="?forum_id="&forumid&"&action="&action&"&"
  temp1=""
  sql_add=""
  sql="select count(id) from bbs_event where forum_id="&forumid&sql_add
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
%>
<table cellspacing=1 cellpadding=1 class=table>
<tr align=center height=20>
<td width='4%' class=td>序号</td>
<td width='62%' class=td>事件内容(查看所有事件记录)</td>
<td width='11%' class=td>操作用户</td>
<td width='12%' class=td>操作时间</td>
<td width='11%' class=td>操作人</td>
</tr>
<%
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from bbs_event where forum_id="&forumid&sql_add&" order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if rs.eof then
    nums=0
  else
    if int(viewpage)>1 then
      rs.move (viewpage-1)*nummer
    end if
    if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  end if
  for i=1 to nums
    tim=rs("tim")
    response.write vbcrlf&"<tr class=bg_td align=center height=25>" & _
		   vbcrlf&"<td class=bg_tds>"&(viewpage-1)*nummer+i&"</td>" & _
		   vbcrlf&"<td align=left>"&joekoe_cms.code_html(rs("remark"),1,0)&"</td>" & _
		   vbcrlf&"<td class=bg_tds>"&format_user_name(rs("o_user"),1,"")&"</td>" & _
		   vbcrlf&"<td><font class=gray alt='"&tim&"'>"&joekoe_cms.time_type(tim,3)&"</font></td>" & _
		   vbcrlf&"<td class=bg_tds>"
    if int(secrecy_u)=1 then
      response.write "<font class=gray>保密</font>"
    else
      response.write format_user_name(rs("username"),1,"")
    end if
    response.write "</td></tr>"
    rs.movenext
  next
  rs.close
%>
</table>
<table cellspacing=1 cellpadding=1 class=table>
<tr height=25 class=bg_3><td width='75%'>
&nbsp;共有 <font class=red><%response.write rssum%></font> 条事件&nbsp;
页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>&nbsp;
分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,10,"#ff0000") %>
</td></tr>
</table>
<%
end sub
%>