<% top id=int(Request("id")) forumid=Conn.Execute("Select forumid From forum where id="&id)(0) 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") Set Rs = Nothing sql="select username from online where username<>'' and eremite<>1" Set Rs=Conn.Execute(sql) onlinelist="|" Do While Not RS.EOF onlinelist=""&onlinelist&""&rs("username")&"|" rs.movenext loop Set Rs = Nothing if Request("action")="next" then sql="select top 1 * from forum where id > "&id&" and forumid="&forumid&" and deltopic<>1" elseif Request("action")="Previous" then sql="select top 1 * from forum where id < "&id&" and forumid="&forumid&" and deltopic<>1 order by id Desc" else sql="select * from forum where ID="&id&"" end if Set Rs=Conn.Execute(sql) if rs.eof or rs.bof then error"
  • 系统不存在该帖子的资料" if rs("deltopic")=1 and membercode<4 then error"
  • 该主题不存在!" %> <%=rs("topic")%> |中国房地产培训网 http://www.chinarec.com.cn
       <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=bbsname%> → <%=rs("topic")%>

    ">发表一个新主题/post.gif" border="0"> &topic=<%=rs("topic")%>">回复帖子/reply.gif" border="0">您是本帖第 <%=rs("views")%> 个阅读者  ">浏览上一篇主题 刷新本主题 ">浏览下一篇主题
     主题:<%=rs("topic")%> >适合打印机打印的版本  通过电子邮件发送此页面  添加加到IE收藏夹  报告本帖 
    <% if Request("topage")<2 then content=replace(rs("content"),chr(34),"'") '''''''投票'''''''' if rs("polltopic")<>"" then if rs("multiplicity")=1 then multiplicity="checkbox" else multiplicity="radio" end if content=""&content&"
    " vote=split(rs("polltopic"),"|") for i = 0 to ubound(vote) if not vote(i)="" then content=""&content&"" end if next content=""&content&"
    "&i+1&".
    " allticket=0 vote=split(rs("pollresult"),"|") for i = 0 to ubound(vote) if not vote(i)="" then content=""&content&"" allticket=vote(i)+allticket end if next content=""&content&"
    票数:"&vote(i)&"
    " vote=split(rs("pollresult"),"|") for i = 0 to ubound(vote) if not vote(i)="" and allticket<>0 then content=""&content&"" end if next content=""&content&"
    ["&formatnumber(vote(i)/allticket*100)&"%]
    [查看近日参与投票的用户列表]
    " end if '''''''结束投票'''''''' sql="select * from [user] where username='"&rs("username")&"'" Set Rs1=Conn.Execute(sql) postcount=rs1("posttopic")+rs1("postrevert") sign=replace(""&rs1("sign")&"",chr(34),"'") %> <% end if Set Rs1 = Nothing id=rs("id") act=rs("topic") replies=rs("replies") locktopic=rs("locktopic") goodtopic=rs("goodtopic") toptopic=rs("toptopic") rs.close if replies > 0 then pagesetup=15 '设定每页的显示数量 TotalPage=cint(replies/pagesetup) '总页数 if TotalPage < replies/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 reforum where topicid="&id&" order by id" if PageCount>100 then rs.Open sql,Conn,1 else Set Rs=Conn.Execute(sql) end if on error resume next '指定页数无帖子时 忽略错误 if TotalPage>1 then RS.Move (PageCount-1) * pagesetup i=0 Do While Not RS.EOF and i <% Set Rs1 = Nothing RS.MoveNext loop RS.Close if i=0 then replies=conn.execute("Select count(id)from reforum where topicid="&id&"")(0) conn.execute("update [forum] set replies="&replies&" where id="&id&"") end if end if if TotalPage=0 then TotalPage=1 PageCount=1 end if %>
    本主题共有 <%=TotalPage%> 页 [ ] 收藏帖子 | 取消收藏 
    <%if Request.Cookies("username")<>"" then%>
    "> ">
     快速回复主题<%=act%>
     用户名:<%=Request.Cookies("username")%> [退出]

        
    管理选项: <% response.write "拉前主题 | " if locktopic=1 then response.write "开放主题" else response.write "关闭主题" end if response.write " | " if toptopic=2 then response.write "取消总置顶" else response.write "主题总置顶" end if response.write " | " if toptopic=1 then response.write "取消置顶" else response.write "主题置顶" end if response.write " | " if goodtopic=1 then response.write "移出精华区" else response.write "添加到精华区" end if %>| 移动主题 | 删除主题
    <%end if%> <% if instr(Request.ServerVariables("http_referer"),"ShowPost.asp?id="&id&"") = 0 then conn.execute("update [forum] set Views=Views+1 where id="&id&"") if Request.Cookies("username")<>""then userface=Conn.Execute("Select userface From [user] where username='"&Request.Cookies("username")&"'")(0) %><% end if htmlend %>