forum_view.asp

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

<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/config_poll.asp" -->
<% if not(isnumeric(forumid)) or not(isnumeric(viewid)) then call cookies_type("view_id") %>
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/conn.asp" -->
<%
call forum_first()
call forum_word()

dim ii,rssum,nummer,thepages,viewpage,page,pageurl,view_temp,iid,qid,table_bg,id,money_name,weburl,uu_username 
dim u_nname,u_sex,u_whe,u_qq,u_remark,u_bbs_counter,u_integral,u_emoney,u_power,u_popedom,u_face, u_usercp, u_renqi,u_userpower,u_faceurl,u_faceheight,u_facewidth
dim fir_id,fir_topic,fir_top,counter,re_counter,fir_istop,fir_isgood,fir_islock,del_type,fir_ispel
tit=forumname&"（浏览贴子）"
pageurl="?forum_id="&forumid&"&view_id="&viewid&"&"
nummer=web_var(web_num,3):view_temp="":money_name=web_var(web_config,8)

set rs=server.createobject("adodb.recordset")
sql="select bbs_data.*,bbs_topic.counter,bbs_topic.re_counter,bbs_topic.ispel,bbs_topic.islock,bbs_topic.istop,bbs_topic.isgood,bbs_topic.isvote,user_data.username as u_username," & _
    "user_data.nname as u_nname,user_data.sex as u_sex,user_data.whe as u_whe,user_data.qq as u_qq,user_data.email as u_email," & _
    "user_data.url as u_url,user_data.face as u_face,user_data.faceurl as u_faceurl,user_data.faceheight as u_faceheight,user_data.facewidth as u_facewidth,user_data.tim as u_tim,user_data.remark as u_remark,user_data.renqi as u_renqi,user_data.bbs_counter as u_bbs_counter,user_data.emoney as u_emoney,user_data.integral  as u_integral,user_data.usercp as U_usercp,user_data.userpower as u_userpower,user_data.power as u_power,user_data.popedom as u_popedom " & _
    "from user_data inner join ( bbs_topic inner join bbs_data on bbs_data.reply_id=bbs_topic.id )" & _
    " on bbs_data.username=user_data.username where bbs_data.forum_id="&forumid&" and bbs_data.reply_id="&viewid&" order by bbs_data.id"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  rs.close:set rs=nothing:close_conn
  call cookies_type("view_id")
end if

call web_head(0,0,2,0,0)
'-----------------------------------center---------------------------------
call forum_grade()
%>
<script language=JavaScript>
<!--
function forum_do_del(data1,data2)
{
  if (confirm("此操作将删除id为 "+data2+" 的回贴！\n\n真的要删除吗？\n删除后将无法恢复！"))

    window.location = "forum_isaction.asp?action=del&forum_id="+data1+"&del_id="+data2

}
function forum_do_delete(data1,data2)
{
  if (confirm("此操作将删除id为 "+data2+" 的贴子！\n\n真的要删除吗？\n删除后将无法恢复！"))

    window.location = "forum_isaction.asp?action=delete&forum_id="+data1+"&del_id="+data2

}
//-->
</script>
<%
view_temp=forum_table1
rssum=rs.recordcount
call format_pagecute()

if int(viewpage)>1 then
  fir_id=rs("reply_id")
  fir_topic=rs("topic")
  fir_islock=rs("islock"):fir_istop=rs("istop"):fir_isgood=rs("isgood"):fir_ispel=rs("ispel")
  fir_istop=int(fir_istop):fir_isgood=int(fir_isgood):fir_islock=int(fir_islock)
  fir_top=fir_topic
  fir_top=code_html(fir_top,1,0)
  counter=rs("counter")
  re_counter=rs("re_counter")
  rs.move (viewpage-1)*nummer   
end if
   uu_username=rs("u_username")
for ii=1 to nummer
  if rs.eof then exit for
  iid=rs("id")
  qid=iid
  id=rs("reply_id")
  u_username=rs("u_username")
  u_nname=code_html(rs("u_nname"),1,0)
  u_sex=rs("u_sex")
  u_whe=code_html(rs("u_whe"),1,0)
  u_qq=rs("u_qq")
  u_remark=code_jk2(rs("u_remark"))
  u_bbs_counter=rs("u_bbs_counter")
  u_renqi=rs("u_renqi")
  u_integral=rs("u_integral")
  u_emoney=rs("u_emoney")
  u_userpower=rs("u_userpower")
  u_usercp=rs("u_usercp")
  u_face=rs("u_face")
  u_power=rs("u_power")
  u_popedom=rs("u_popedom")
  del_type="forum_do_del"
  if int(ii)=1 and int(viewpage)=1 then
    fir_id=id
    fir_topic=rs("topic")
    fir_islock=rs("islock"):fir_istop=rs("istop"):fir_isgood=rs("isgood"):fir_ispel=rs("ispel")
    fir_istop=int(fir_istop):fir_isgood=int(fir_isgood):fir_islock=int(fir_islock)
    fir_top=fir_topic
    fir_top=code_html(fir_top,1,0)
    counter=rs("counter")
    re_counter=rs("re_counter")
    iid=viewid
    del_type="forum_do_delete"
  end if
  
  view_temp=view_temp&view_type()
  rs.movenext
next
rs.close:set rs=nothing
view_temp=view_temp&"</td></tr></table>"

fir_istop=int(fir_istop)
if fir_istop<>0 and fir_istop<>1 and fir_istop<>2 then fir_istop=0

if forumreadonly=0 then
response.write forum_top("<a href='forum_reply.asp?forum_id="&forumid&"&view_id="&qid&"'><img src='images/"&web_var(web_config,5)&"/new_reply.gif' align=absMiddle border=0 title='回复当前主题'></a>")
else
response.write forum_top("")
end if
response.write kong & format_table(1,2)
%>
<tr<%response.write forum_table3%>><td width='60%'>&nbsp;主题：<b><font class=red_3 title='<%response.write fir_top%>'><%response.write code_html(fir_topic,1,30)%></font></b></td><td width=25%>&nbsp;浏览贴子（回复：<font class=red><%response.write re_counter%></font>&nbsp;浏览：<font class=red><%response.write counter+1%></font>）</td>
<td height=30 align=center width='15%'>
  <table border=0 cellspacing=0 cellpadding=0><tr align=center>
  <td width=50><a href='javascript:;' onclick="javascript:document.location.reload()"><%response.write img_small("page_refresh")%></a></td>
  <td width=55><a href="javascript:window.external.AddFavorite('<%response.write web_var(web_config,2)&pageurl%>','<%response.write web_var(web_config,1)&" - "&forumname&"（贴子："&fir_topic&"）"%>')"><%response.write img_small("page_fav")%></td>
  </tr></table>
</td></tr></table>
<% response.write kong & view_temp & kong & format_table(1,2) %>
<tr height=30<%response.write forum_table3%>>
<td width='75%'>&nbsp;分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,6,"#ff0000") %></td>
<td width='25%' align=center><% response.write forum_go() %></td>
</tr>
<tr height=30 align=center<%response.write format_table(3,1)%>><td>主题贴类型：<font class=blue><%
if fir_istop<>0 or fir_isgood<>0 or fir_islock<>0 or fir_ispel<>0 then
  if fir_istop=1 then
    response.write "[ 固顶 ]&nbsp;"
  elseif fir_istop=2 then
    response.write "[ 总固顶 ]&nbsp;"
  end if
  if fir_isgood<>0 then response.write "[ 精华 ]&nbsp;"
  if fir_ispel<>0 then response.write "[ 推荐 ]&nbsp;"
  if fir_islock<>0 then response.write "[ 锁定 ]&nbsp;"
else
  response.write "[ 正常 ]&nbsp;"
end if
response.write "</font>"


if format_user_power(login_username,login_mode,forumpower)="yes" then
%>&nbsp;相关操作：
<a href='forum_isaction.asp?isaction=istop&fir_top=<%=fir_top%>&uusername=<%=uu_username%>&forum_id=<% response.write forumid %>&view_id=<% response.write id %>&action=other<%
select case fir_istop
case 1
  response.write "&cancel=yes' class=red_3>取消固顶</a>&nbsp;  " & _
                 "<a href='forum_isaction.asp?isaction=istops&fir_top="&fir_top&"&uusername="&uu_username&"&forum_id="&forumid&"&view_id="&id&"&action=other'>总固顶</a>"
case 2
  response.write "'>固顶</a>&nbsp;  " & _
                 "<a href='forum_isaction.asp?isaction=istops&fir_top="&fir_top&"&uusername="&uu_username&"&forum_id="&forumid&"&view_id="&id&"&action=other&cancel=yes' class=red_3>取消总固顶</a>"
case else
  response.write "'>固顶</a>&nbsp;  " & _
                 "<a href='forum_isaction.asp?isaction=istops&fir_top="&fir_top&"&uusername="&uu_username&"&forum_id="&forumid&"&view_id="&id&"&action=other'>总固顶</a>"
end select
%>&nbsp;  
<a href='forum_isaction.asp?isaction=isgood&fir_top=<%=fir_top%>&uusername=<%=uu_username%>&forum_id=<% response.write forumid %>&view_id=<% response.write id %>&action=other<%
  if fir_isgood=0 then
    response.write "'>"