<% HtmlTop ForumID=RequestInt("ForumID") SortOrder=RequestInt("SortOrder") TimeLimit=RequestInt("TimeLimit") GoodTopic=RequestInt("GoodTopic") order=HTMLEncode(Request("order")) Category=HTMLEncode(Request("Category")) if Len(order)>12 then error("非法操作") if Len(Category)>25 then error("类别名字太长") sql="select * from [BBSXP_Forums] where ForumID="&ForumID&"" Set Rs=Conn.Execute(sql) if Rs.eof then error"
  • 找不到该版块的资料" ForumName=Rs("ForumName") TotalThreads=Rs("TotalThreads") Moderated=Rs("Moderated") ParentID=Rs("ParentID") GroupID=Rs("GroupID") IsModerated=Rs("IsModerated") ForumRules=YbbEncode(Rs("ForumRules")) TotalCategorys=Rs("TotalCategorys") ForumUrl=Rs("ForumUrl") IsActive=Rs("IsActive") Rs.close %> <% if ForumUrl<>"" then response.redirect ForumUrl if IsActive=0 and PermissionManage=0 then error"
  • 该版块已经关闭！" if PermissionView=0 then error("您的权限不够") if TotalCategorys<>"" then filtrate=split(TotalCategorys,"|") CategorysList="[全部] " for i = 0 to ubound(filtrate) CategorysList=CategorysList&"["&filtrate(i)&"] " next end if %> <%=ForumName%>
    <%ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%><%=ForumName%>
    <% if Moderated<>empty then filtrate=split(Moderated,"|") for i = 0 to ubound(filtrate) ModeratedList=ModeratedList&"
    "&filtrate(i)&"
    " next %>
    论坛版主
    <%end if%>
    <% i=0 sql="Select * From [BBSXP_Forums] where ParentID="&ForumID&" and SortOrder>0 and IsActive=1 order by SortOrder" Set Rs1=Conn.Execute(sql) if not Rs1.eof then %> <% do while not Rs1.eof ShowForum() Rs1.Movenext loop response.write "
    <%=ForumName%>
    论坛 主题 帖数 最后发表 版主
    " end if Set Rs1 = Nothing %> <%if ForumRules<>"" then%>
    版 规 和 导 读
    <%=ForumRules%>

    <%end if%>
    <%if PermissionPost=1 then%> 发表新帖 <%end if%> <%if PermissionCreatePoll=1 then%> 发起投票 <%end if%> <%if IsModerated=1 then%> 帖子审核(<%=Conn.Execute("Select count(ThreadID) From [BBSXP_Threads] where IsApproved=0 and IsDel=0 and ForumID="&ForumID&"")(0)%>) | <%end if%> 精华主题 | 论坛权限 | 版块管理 | <%if SiteConfig("EnableForumsRSS")=1 and PermissionRead=1 then%> |<%end if%>
    <% if RequestInt("PageIndex") < 2 then sql="[BBSXP_Threads] where IsApproved=1 and IsDel=0 and ThreadTop=2 or (ThreadTop=1 and ForumID="&ForumID&") order by ThreadTop DESC" Set Rs=Conn.Execute(sql) if Not RS.EOF then Do While Not RS.EOF ShowThread() Rs.MoveNext loop response.write "" end if Rs.Close end if if order="" then order="lasttime" if Category<>"" then SQLCategory="and Category='"&Category&"'" if GoodTopic > 0 then SQLGoodTopic="and IsGood=1" if TimeLimit > 0 then SQLTimeLimit="and lasttime>"&SqlNowString&"-"&TimeLimit&"" if SortOrder="1" then SqlSortOrder="" else SqlSortOrder="Desc" end if topsql="[BBSXP_Threads] where IsApproved=1 and IsDel=0 and ForumID="&ForumID&" and ThreadTop=0 "&SQLCategory&" "&SQLTimeLimit&" "&SQLGoodTopic&"" TotalCount=conn.Execute("Select count(ThreadID) From "&topsql&" ")(0) '获取数据数量 PageSetup=SiteConfig("ThreadsPerPage") '设定每页的显示数量 TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数 PageCount = RequestInt("PageIndex") '获取当前页 if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage sql="select * from "&topsql&" order by "&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
    主题
    <%=CategorysList%>
    标题 作者 回复 查看 最后更新
    版块主题
    选项 <%ShowPage()%>
    <% ForumIDOnline=Conn.execute("Select count(sessionid)from [BBSXP_UserOnline] where ForumID="&ForumID&"")(0) regForumIDOnline=Conn.execute("Select count(sessionid)from [BBSXP_UserOnline] where ForumID="&ForumID&" and UserName<>''")(0) %>
    用户在线信息
    目前论坛总在线 <%=Onlinemany%> 人，本分论坛共有 <%=ForumIDOnline%> 人在线。其中注册用户 <%=regForumIDOnline%> 人，访客 <%=ForumIDOnline-regForumIDOnline%> 人。

    公告主题 置顶主题 精华主题 锁定主题 投票主题 或者点击数达到 <%=SiteConfig("PopularPostThresholdViews")%>" align="absmiddle"> 热门主题 普通主题
    <% HtmlBottom %>