forum_list.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_forum.asp" -->
<% if not(isnumeric(forumid)) then call cookies_type("forum_id") %>
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
call forum_first()

select case action
case "manage"
  tit=forumname&" [版面管理]"
case "isgood"
  tit=forumname&" [本版精华]"
case "move"
case else
  action=""
  tit=forumname
end select

call web_head(0,0,2,0,0)
'-----------------------------------center---------------------------------
call forum_grade()
if forumn>0 then
  response.write ukong
  call forum_board(0,classid,forumid,forumname)
end if
if forumw=true then

dim mtr
mtr=" onmouseover=""javascript:this.bgColor='"&web_var(web_color,5)&"';"" onmouseout=""javascript:this.bgColor='"&web_var(web_color,1)&"';"""

dim rssum,nummer,thepages,viewpage,page,pageurl,page_cute_num,view_url,topic_head,del_temp,keyword,sea_type,sea_true,sea_write
dim forum_temp,id,username,icon,topic,tim,counter,re_counter,re_username,re_tim,istop,ispel,islock,isgood,folder_type,forumnid,isvote,poll_counter

if action="move" then call forum_moved(forumid,trim(request.querystring("view_id")))

if action="manage" then
  if format_user_power(login_username,login_mode,forumpower)<>"yes" then action=""
end if

pageurl="forum_list.asp?forum_id="&forumid&"&action="&action&"&"
rssum=0:thepages=0:viewpage=0:nummer=web_var(web_num,2):page_cute_num=web_var(web_num,3)
del_temp=0:forum_temp=""
keyword=code_form(request.querystring("keyword"))
sea_type=trim(request.querystring("sea_type"))
if (sea_type="topic" or sea_type="username" or sea_type="re_username") and len(keyword)>0 then
  sea_true="yes"
  sea_write=".搜索"
  pageurl=pageurl&"sea_type="&sea_type&"&keyword="&server.htmlencode(keyword)&"&"
else
  sea_true="no"
  sea_write=""
end if

select case action
case "manage"
  response.write forum_top("帖子列表 [版面管理"&sea_write&"]")
case "isgood"
  response.write forum_top("帖子列表 [本版精华"&sea_write&"]")
case else
  if sea_true="yes" then
    response.write forum_top("帖子列表 [搜索结果]")
  else
    response.write forum_top("帖子列表 （主题：<font class=red>"&forumtopicnum&"</font>）")
  end if
end select

%>
<script language=javascript>
<!--
function load_tree(f_id,v_id){
  var targetImg =eval("document.all.followImg" + v_id);
  var targetDiv =eval("document.all.follow" + v_id);
  if (targetImg.src.indexOf("nofollow")!=-1){return false;}
    if ("object"==typeof(targetImg)){
      if (targetDiv.style.display!='block'){
        targetDiv.style.display="block";
        targetImg.src="images/small/fk_minus.gif";
        if (targetImg.loaded=="no"){
          document.frames["hiddenframe"].location.replace("forum_loadtree.asp?forum_id="+f_id+"&view_id="+v_id);
        }
      }else{
      targetDiv.style.display="none";
      targetImg.src="images/small/fk_plus.gif";
    }
  }
}
-->
</script>
<iframe width=0 height=0 src='about:blank' id=hiddenframe></iframe>
<div align="center">
  <center>
<table border=1 width='98%' cellspacing=1 cellpadding=1 bordercolor=<%response.write web_var(web_color,3)%>><tr><td  height=20>
<table width=100% bgcolor=#ffffff><tr><td valign=middle height=20 width=32><b>广播</b></td>
          <td width=20> <img src="images/small/aboard.gif" width="20" height="20"></td><td align="center"><%call xzb_scroll("jt0","",3,15,1)%>　</td></tr></table></tr></table>
  </center>
</div>
<% response.write forum_table1 %>
<tr align=center<%response.write forum_table2%> height=20>
<td rowap width='4%' class=end>类型</td>
<td rowap width='4%' class=end>心情</td>
<td rowap width='48%' class=end>主题（每页&nbsp;<%response.write nummer%>&nbsp;贴&nbsp;&nbsp;点击&nbsp;<img src='images/small/fk_plus.gif' align=absMiddle border=0>&nbsp;可展开贴子列表）</td>
<td rowap width='12%' class=end>作者</td>
<td rowap width='3%' class=end>&nbsp;</td>
<td rowap width='7%' class=end>人气</td>
<td rowap width='22%' class=end>最后回复信息</td>
</tr>
<%
if action="manage" then
  response.write "<form name=del_form action='forum_isaction.asp?isaction=delete&forum_id="&forumid&"' method=post>"
end if

if action="isgood" then
  sql="select count(id) from bbs_topic where forum_id="&forumid&" and isgood=1"
  set rs=conn.execute(sql)
  forumtopicnum=rs(0)
  rs.close
end if
if sea_true="yes" then
  sql="select count(id) from bbs_topic where forum_id="&forumid&" and "&sea_type&" like '%"&keyword&"%'"
  set rs=conn.execute(sql)
  forumtopicnum=rs(0)
  rs.close
end if

sql="select * from bbs_topic where (forum_id="&forumid&" or istop=2) "
if action="isgood" then
  sql=sql&"and isgood=1"
end if
if sea_true="yes" then
  sql=sql&"and "&sea_type&" like '%"&keyword&"%'"
end if
sql=sql&" order by istop desc,re_tim desc,id desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  rssum=0
  response.write "<tr><td colspan=8 align=center height=50>本论坛暂时没有贴子。</td></tr>"
else
  rssum=forumtopicnum		'rs.recordcount
end if

if int(rssum)>0 then
  call format_pagecute()
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to nummer
    if rs.eof then exit for
    folder_type="isok"
    forumnid=rs("forum_id")
    id=rs("id")
    username=rs("username")
    topic=rs("topic")
    icon=rs("icon")
    tim=rs("tim")
    counter=rs("counter")
    re_counter=rs("re_counter")
    re_username=rs("re_username")
    poll_counter=getPollPosts(rs("id"))
    re_tim=rs("re_tim")
    istop=rs("istop")
    islock=rs("islock")
    isgood=rs("isgood")
    ispel=rs("ispel")
'论坛主题加色和加粗开始
	color=rs("color")
	bb=rs("bb")
'论坛主题加色和加粗结束，至此本文件修改完毕。


'-------------良友添加---------------
    isvote=rs("isvote")
    
    call forum_view()
    
    rs.movenext
  next
end if
rs.close:set rs=nothing

response.write "</table>"

if int(thepages)<1 then page_cute_num=1

response.write kong & forum_table1
%>
<tr height=25<%response.write forum_table3%>>
<td width='75%'>
主题：<font class=red><%response.write forumtopicnum%></font>&nbsp;
<%
if action<>"isgood" and sea_true<>"yes" then
  response.write "贴子总数：<font class=red>"&forumdatanum&"</font>&nbsp;"
end if
%>
页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>&nbsp;
分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,page_cute_num,"#ff0000") %>
</td>
</tr>
<% if action="manage" then %>
<script language=javascript src='style/admin_del.js'></script>
<tr<%response.write format_table(3,1)%>><td height=25 align=center>版面管理：　<input type=checkbox name=del_all value=1 onClick="selectall('<% response.write del_temp %>')" class=bg_1> 选中所有　<input type=submit value='删除所选' onclick="return suredel('<% response.write del_temp %>');"></td></tr>
</form>
<% end if %>
</table>
<table border=0 width='95%'>
<tr>
<td>
  <table border=0>
  <form action='?' method=get>
  <input type=hidden name=forum_id value='<%response.write forumid%>'>
  <input type=hidden name=action value='<%response.write action%>'>
  <input type=hidden name=page value='<%response.write viewpage%>'>
  <tr>
  <td>论坛搜索：</td>
  <td><select name=sea_type size=1>
<option value='topic'>按主题</option>
<option value='username'>按作者</option>
<option value='re_username'>按回复人</option>
</select></td>
  <td><input type=text name=keyword size=20 maxlength=20></td>
  <td>&nbsp;<input type=submit value='搜 索'></td>
  </tr>
  </table>
</td>
<td align=right><% response.write forum_go() %></td>
</tr>
<table>
<%end if%>
<table border=0 width='95%'>
<%if forumw=false then%>
<tr><td align=center colspan=2 height=30>
<%end if%>
<%response.write web_var(web_config,1)%>论坛图例：&nbsp;
<%call is_type()%>
</td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_end(0)
%>