forum_action.asp

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

<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim rssum,thepages,page,viewpage,sqladd,nummer,forum_temp,pageurl,usern
rssum=0:thepages=0:viewpage=1:nummer=web_var(web_num,1)
forum_temp="":pageurl=""

action=trim(request.querystring("action"))
select case action
case "hot"
  tit="论坛热贴"
  sql="select * from bbs_topic where re_counter>10 and forum_id not in (select forum_id from bbs_forum where forum_info_disp<>0) order by re_counter desc,id desc"
case "top"
  tit="论坛置顶"
  sql="select * from bbs_topic where is"&action&"<>0 and forum_id not in (select forum_id from bbs_forum where forum_info_disp<>0) order by istop desc,id desc"
case "good"
  tit="论坛精华"
  sql="select * from bbs_topic where is"&action&"=1 and forum_id not in (select forum_id from bbs_forum where forum_info_disp<>0) order by id desc"
case "tim"
  tit="回复新贴"
  sql="select top 100 * from bbs_topic where forum_id not in (select forum_id from bbs_forum where forum_info_disp<>0) order by re_tim desc,id desc"

case "user"
  usern=replace(trim(request.querystring("username")),"'","")
  if len(usern)<1 then
    call cookies_type("username")
  end if
  sql="select id from user_data where username='"&usern&"'"
  set rs=conn.execute(sql)
  if rs.eof and rs.bof then
    rs.close:set rs=nothing
    close_conn
    call cookies_type("username")
  end if
  rs.close
  tit="查看 "&usern&" 参与过的主题"
  pageurl="?action="&action&"&username="&usern&"&"
  sql="select bbs_topic.id,bbs_topic.forum_id,bbs_topic.username,bbs_topic.topic,bbs_topic.tim,bbs_topic.counter,bbs_topic.re_counter,bbs_topic.re_username,bbs_topic.re_tim,bbs_topic.istop,bbs_topic.islock,bbs_topic.ispel,bbs_topic.isgood,bbs_topic.color,bbs_topic.bb " & _
      "from bbs_data inner join bbs_topic on bbs_data.reply_id=bbs_topic.id where bbs_data.username='"&usern&"' group by bbs_topic.id,bbs_topic.forum_id,bbs_topic.username,bbs_topic.topic,bbs_topic.tim,bbs_topic.counter,bbs_topic.re_counter,bbs_topic.re_username,bbs_topic.re_tim,bbs_topic.istop,bbs_topic.islock,bbs_topic.ispel,bbs_topic.isgood,bbs_topic.color,bbs_topic.bb order by bbs_topic.id desc"
'论坛主题加色和加粗调用数据库(bbs_topic.color,bbs_topic.bb)
case "my"
  tit="我所参与过的主题"
  sql="select bbs_topic.id,bbs_topic.forum_id,bbs_topic.username,bbs_topic.topic,bbs_topic.tim,bbs_topic.counter,bbs_topic.re_counter,bbs_topic.re_username,bbs_topic.re_tim,bbs_topic.istop,bbs_topic.islock,bbs_topic.ispel,bbs_topic.isgood,bbs_topic.color,bbs_topic.bb " & _
      "from bbs_data inner join bbs_topic on bbs_data.reply_id=bbs_topic.id where bbs_data.username='"&login_username&"' group by bbs_topic.id,bbs_topic.forum_id,bbs_topic.username,bbs_topic.topic,bbs_topic.tim,bbs_topic.counter,bbs_topic.re_counter,bbs_topic.re_username,bbs_topic.re_tim,bbs_topic.istop,bbs_topic.islock,bbs_topic.ispel,bbs_topic.isgood,bbs_topic.color,bbs_topic.bb order by bbs_topic.id desc"
'论坛主题加色和加粗调用数据库(bbs_topic.color,bbs_topic.bb)
case else
  tit="论坛新贴"
  sql="select top 100 * from bbs_topic where forum_id not in (select forum_id from bbs_forum where forum_info_disp<>0) order by id desc"
end select
if pageurl="" then pageurl="?action="&action&"&"

call web_head(0,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
response.write left_action("jt13",4)
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if

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
  forum_temp=forum_temp&forum_view()
  rs.movenext
next
rs.close:set rs=nothing

response.write forum_table1
%>
<tr height=30<%response.write forum_table4%> align=center>
<td width='75%'><font class=red_3><b><%response.write tit%></b></font>&nbsp;&nbsp;&nbsp;
共&nbsp;<font class=red><%response.write rssum%></font>&nbsp;贴&nbsp;┋&nbsp;
每&nbsp;<font class=red><%response.write nummer%></font>&nbsp;页&nbsp;┋&nbsp;
共&nbsp;<font class=red><%response.write thepages%></font>&nbsp;页&nbsp;┋&nbsp;
这是第&nbsp;<font class=red><%response.write viewpage%></font>&nbsp;页</td>
</tr>
</table>
<% response.write kong & forum_table1 %>
<tr align=center<%response.write forum_table2%> height=20>
<td width='5%'>&nbsp;</td>
<td width='58%'><font class=end>论坛主题</font></td>
<td width='14%'><font class=end>作者</font></td>
<td width='9%'><font class=end>人气</font></td>
<td width='14%'><font class=end>最后回复</font></td>
</tr>
<% response.write forum_temp %>
</table>
<br>
<% response.write forum_table1 %>
<tr height=30<%response.write forum_table3%>>
<td width='70%'>&nbsp;分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td>
<td width='30%' align=center><% response.write forum_go() %></td>
</tr>
<tr<%response.write forum_table4%>><td align=center height=30 colspan=2>
<%response.write img_small("isok")%>&nbsp;开放的主题&nbsp;&nbsp;
<%response.write img_small("ishot")%>&nbsp;回复超过10贴&nbsp;&nbsp;
<%response.write img_small("islock")%>&nbsp;锁定的主题&nbsp;&nbsp;
<%response.write img_small("istop")&""&img_small("istops")%>&nbsp;固顶、总固顶主题
<%response.write img_small("isgood")%>&nbsp;精华帖子
</td></tr>
</table>
<br>
<%
'---------------------------------center end-------------------------------
call web_end(0)

function forum_view()
  dim view_url,topic_head,forumid,id,username,topic,tim,counter,re_counter,re_username,re_tim,istop,islock,ispel,isgood,folder_type,reply_count
  folder_type="isok"
  id=rs("id")
  username=rs("username")
  topic=rs("topic")
  tim=rs("tim")
  counter=rs("counter")
  re_counter=rs("re_counter")
  re_username=rs("re_username")
  re_tim=rs("re_tim")
  istop=rs("istop")
  islock=rs("islock")
  isgood=rs("isgood")
  ispel=rs("ispel")
'论坛主题加色和加粗开始
	color=rs("color")
	bb=rs("bb")
'论坛主题加色和加粗结束

  
  select case int(istop)
  case 1
    folder_type="istop"
  case 2
    folder_type="istops"
  case else
    if int(isgood)=1 then
      folder_type="isgood"
    else
   if int(ispel)=1 then
      folder_type="ispel"
    else
      if int(islock)=1 then
        folder_type="islock"
      elseif int(re_counter)>=10 then
        folder_type="ishot"
      end if
    end if
   end if 
  end select
  
  forumid=rs("forum_id")
  view_url="forum_view.asp?forum_id="&forumid&"&view_id="&id
  if int(re_counter)>0 then
    topic_head="<img loaded=no src='images/small/fk_plus.gif' border=0>"
  else
    topic_head="<img src='images/small/fk_minus.gif' border=0>"
  end if

'论坛主题加色和加粗开始  
  if color<>"" then
  color="<a href='"&view_url&"'><font title='贴子主题："&code_html(topic,1,0)&"<br>发贴时间："&tim&"<br>最后回复："&re_username&"<br>回复时间："&re_tim&"' color="&color&">"
  else
  color="<a href='"&view_url&"' title='贴子主题："&code_html(topic,1,0)&"<br>发贴时间："&tim&"<br>最后回复："&re_username&"<br>回复时间："&re_tim&"'>"
  end if
  if bb=true then
    bb="<b>"
  else
    bb=""
  end if
'论坛主题加色和加粗结束

  forum_view=vbcrlf & "<tr align=center"&forum_table4&"><td><img src='images/"&web_var(web_config,5)&"/"&folder_type&".gif' border=0></td>" & _
	     vbcrlf & "<td align=left>"&topic_head&bb&color&code_html(topic,1,25)&"</font></a></b>&nbsp;"&index_pagecute(view_url,re_counter+1,web_var(web_num,3),"#cc3300")&"</td>" & _
	     vbcrlf & "<td>"&format_user_view(username,1,"")&"</td>" & _
	     vbcrlf & "<td class=timtd>"&re_counter&"/"&counter&"</td>" & _
	     vbcrlf & "<td>"&format_user_view(re_username,1,"")&"</td></tr>"
'论坛主题加色和加粗变量替换相关代码(注意上面的bb&color)，至此本文件修改完毕。
end function
%>