<% top forumid=int(Request("forumid")) sql="select * from bbsconfig where id="&forumid&"" Set Rs=Conn.Execute(sql) bbsname=rs("bbsname") moderated=rs("moderated") logo=rs("logo") pass=rs("pass") followid=rs("followid") password=rs("password") hide=rs("hide") rs.close %> <%=bbsname%> - 中国房地产培训网 http://www.chinarec.com.cn <% ShowForum=1 sql="Select * From bbsconfig where followid="&forumid&" and hide=0 order by SortNum" Set Rs1=Conn.Execute(sql) if not Rs1.eof then Response.write "" do while not rs1.eof if ""&Rs1("password")&""="" then:password=0:else:password=1:end if %> <% rs1.movenext loop Set Rs1 = Nothing ShowForum=0 end if %>
   <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=bbsname%> 论坛选项

<% if ShowForum=1 or SortShowForum=1 then forumidonline=conn.execute("Select count(sessionid)from online where forumid="&forumid&"")(0) regforumidonline=conn.execute("Select count(sessionid)from online where forumid="&forumid&" and username<>''")(0) %>
  目前论坛总在线 <%=onlinemany%> 人,本分论坛共有 <%=forumidonline%> 人在线。其中注册用户 <%=regforumidonline%> 人,访客 <%=forumidonline-regforumidonline%> 人。

<% if request("order")<>"" then order=HTMLEncode(Request("order")) else order="lasttime" end if if request("TimeLimit")<>"" then TimeLimit="and lasttime>"&SqlNowString&"-"&int(request("TimeLimit"))&"" if Request("search")="goodtopic" then search="and goodtopic=1 " if Request.Cookies("pagesetup")=empty then pagesetup=20 '设定每页的显示数量 else pagesetup=int(Request.Cookies("pagesetup")) if pagesetup > 30 then pagesetup=20 end if topsql="where deltopic<>1 and forumid="&forumid&" "&search&" "&TimeLimit&" or toptopic=2" count=conn.execute("Select count(id) from [forum] "&topsql&"")(0) TotalPage=cint(count/pagesetup) '总页数 if TotalPage < count/pagesetup then TotalPage=TotalPage+1 PageCount = cint(Request.QueryString("ToPage")) if PageCount < 1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage sql="select * from [forum] "&topsql&" order by toptopic Desc,"&order&" Desc" if PageCount>100 then rs.Open sql,Conn,1 else Set Rs=Conn.Execute(sql) end if if TotalPage>1 then RS.Move (PageCount-1) * pagesetup %>
/post.gif" border="0" alt="发表文章"> 论坛收藏
社区公告 <%=affichetitle%> [<%=affichetime%>]   > 查看所有主题 查看精华帖子
<% i=0 Do While Not RS.EOF and inow() then newtopic="" %> <% RS.MoveNext loop RS.Close %>
本论坛共有 <%=TotalPage%> 页 [ ]
快速搜索:
 
打开主题 (有回复的主题) 热门主题 关闭主题 精华主题
打开主题 (没有回复的主题) 投票主题 置顶主题 自己发表的主题
<% end if htmlend %>