<% top ForumID=int(Request("ForumID")) order=HTMLEncode(Request("order")) SpecialTopic=HTMLEncode(Request("SpecialTopic")) SortOrder=Request("SortOrder") TimeLimit=Request("TimeLimit") GoodTopic=Request("GoodTopic") if Len(order)>10 then error("
  • 非法操作") if Len(SpecialTopic)>25 then error("
  • 专题名字太长") sql="select * from [BBSXP_Forums] where id="&ForumID&"" Set Rs=Conn.Execute(sql) if Rs.eof then error"
  • 该论坛已经被删除" ForumName=Rs("ForumName") ForumThreads=Rs("ForumThreads") Moderated=Rs("Moderated") ForumLogo=Rs("ForumLogo") followid=Rs("followid") ForumHide=Rs("ForumHide") IsModerated=Rs("IsModerated") ForumRules=YbbEncode(Rs("ForumRules")) ForumThreads=Rs("ForumThreads") TolSpecialTopic=Rs("TolSpecialTopic") Rs.close %> <%if PermissionsView=0 then error("
  • 您的权限不够")%> <%=ForumName%> <%if Request("checkbox")=1 then BBSList(0) %>
    > <%end if%> <% IsShowForum=1 i=0 sql="Select * From [BBSXP_Forums] where followid="&ForumID&" and ForumHide=0 order by SortNum" Set Rs1=Conn.Execute(sql) if not Rs1.eof then do while not Rs1.eof ShowForum() Rs1.Movenext loop IsShowForum=0 end if Set Rs1 = Nothing %>
       <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> <%=ForumName%> <% if Moderated<>empty then filtrate=split(Moderated,"|") for i = 0 to ubound(filtrate) ModeratedList=ModeratedList&"" next %> 论坛版主 <%end if%> &name=<%=ForumName%>>收藏论坛</a></div><div class=menuitems><a href=MyFavorites.asp?menu=Del&url=<%=Server.URLEncode(""&Request.ServerVariables("script_name")&"?"&Request.ServerVariables("Query_String")&"")%>&name=<%=ForumName%>>取消收藏</a></div>')" style="cursor:default">论坛收藏 

    <%if ForumRules<>"" then%>
    版 规 和 导 读
    <%=ForumRules%>

    <%end if%> <% if IsShowForum=1 or SiteSettings("SortShowForum")=1 then ForumIDOnline=Conn.execute("Select count(sessionid)from [BBSXP_UsersOnline] where ForumID="&ForumID&"")(0) regForumIDOnline=Conn.execute("Select count(sessionid)from [BBSXP_UsersOnline] where ForumID="&ForumID&" and UserName<>''")(0) %>
     在线统计
    目前论坛总在线 <%=Onlinemany%> 人,本分论坛共有 <%=ForumIDOnline%> 人在线。其中注册用户 <%=regForumIDOnline%> 人,访客 <%=ForumIDOnline-regForumIDOnline%> 人。

    发表新帖 <%if PermissionsCreatePoll=1 then%>发起投票<%end if%> <%if IsModerated=1 then%> 帖子审核(<%=conn.Execute("Select count(ID) From [BBSXP_Threads] where IsDel=1 and PostTime=lasttime and ForumID="&ForumID&" ")(0)%>) | <%end if%> 精华主题 | 论坛权限 | 版块管理 | |
    <% if TolSpecialTopic<>empty then response.write "" end if %> <% if TimeLimit<>"" then SQLTimeLimit="and lasttime>"&SqlNowString&"-"&int(TimeLimit)&"" if SpecialTopic<>"" then SQLSpecialTopic="and SpecialTopic='"&SpecialTopic&"'" if GoodTopic<>"" then SQLGoodTopic="and IsGood=1" if order="" then order="lasttime" if SortOrder="1" then SqlSortOrder="" else SqlSortOrder="Desc" end if topsql="[BBSXP_Threads] where IsDel=0 and ForumID="&ForumID&" "&SQLSpecialTopic&" "&SQLTimeLimit&" "&SQLGoodTopic&" or IsTop=2" if Request("TimeLimit")<>"" or Request("SpecialTopic")<>"" or Request("GoodTopic")<>"" then TotalCount=conn.Execute("Select count(ID) From "&topsql&" ")(0) '获取数据数量 else TotalCount=ForumThreads '获取数据数量 end if PageSetup=SiteSettings("ThreadsPerPage") '设定每页的显示数量 TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数 PageCount = cint(Request.QueryString("PageIndex")) '获取当前页 if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage sql=""&topsql&" order by IsTop Desc,"&order&" "&SqlSortOrder&"" if PageCount<11 then Set Rs=Conn.Execute(sql) else rs.Open sql,Conn,1 end if if TotalPage>1 then RS.Move (PageCount-1) * pagesetup i=0 Do While Not RS.EOF and i <%end if%>
    专题:" filtrate=split(TolSpecialTopic,"|") for i = 0 to ubound(filtrate) response.write ""&i+1&"["&filtrate(i)&"] " TolSpecialTopicOptionList=TolSpecialTopicOptionList&"" next response.write "
    选项 搜索 <%ShowPage()%>
    <% end if htmlend %>