<% top ThreadID=int(Request("ThreadID")) ForumID=int(Request("ForumID")) sql="select UserName From [BBSXP_UsersOnline] where Eremite=0" Set Rs=Conn.Execute(sql) Do While Not Rs.EOF OnlineUserList=OnlineUserList&""&Rs("UserName")&"|" Rs.MoveNext loop Rs.close if Request("action")="Next" then sql="select top 1 * from [BBSXP_Threads] where ID > "&ThreadID&" and ForumID="&ForumID&" and IsDel=0 order by id" elseif Request("action")="Previous" then sql="select top 1 * from [BBSXP_Threads] where ID < "&ThreadID&" and ForumID="&ForumID&" and IsDel=0 order by id Desc" else sql="select * from [BBSXP_Threads] where ID="&ThreadID&"" end if Rs.Open SQL,Conn,1,3 if Rs.eof or Rs.bof then error"
  • 系统不存在该帖子的资料" if Rs("IsDel")=1 and membercode<4 then error"
  • 该主题在回收站中!" Rs("Views")=Rs("Views")+1 Rs.update Topic=ReplaceText(Rs("Topic"),"<[^>]*>","") Replies=Rs("Replies") Views=Rs("Views") IsVote=Rs("IsVote") IsGood=Rs("IsGood") IsTop=Rs("IsTop") IsLocked=Rs("IsLocked") PostsTableName=Rs("PostsTableName") ThreadID=Rs("ID") ForumID=Rs("ForumID") Rs.close sql="select * from [BBSXP_Forums] where id="&ForumID&"" Set Rs=Conn.Execute(sql) ForumName=Rs("ForumName") moderated=Rs("moderated") ForumLogo=Rs("ForumLogo") followid=Rs("followid") ForumPass=Rs("ForumPass") ForumPassword=Rs("ForumPassword") ForumUserList=Rs("ForumUserList") Rs.Close %> <%=Topic%> - Powered By BBSXP
       <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=ForumName%><%=Topic%>

    >发表新主题 >回复帖子 您是本帖第 <%=Views%> 个阅读者 >适合打印机打印的版本 通过电子邮件发送此页面 添加加到IE收藏夹 报告本帖 浏览上一篇主题 浏览下一篇主题
    <% '''''''投票'''''''' if IsVote=1 then %> method=Post> <% sql="select * from [BBSXP_Vote] where ThreadID="&ThreadID&"" Set Rs=Conn.Execute(sql) if Rs("Type")=1 then multiplicity="checkbox" else multiplicity="radio" end if allticket=0 Result=split(Rs("Result"),"|") for i = 0 to ubound(Result) if not Result(i)="" then allticket=Result(i)+allticket next Vote=split(Rs("Items"),"|") for i = 0 to ubound(Vote) if not Vote(i)="" then if allticket=0 then Voteresult=0 Votepercent=0 else Voteresult=result(i)/allticket*100 Votepercent=formatnumber(result(i)/allticket*100) end if %> <% end if next %>
     主题:<%=Topic%>
    选项 票数 百分比
    value=<%=i%> name=PostVote id=PostVote<%=i%>> <%=Result(i)%> % height=10> <%=Votepercent%>%
    <% if Rs("Expiry")< now() then response.write "投票已过期" elseif CookieUserName=empty then response.write "登录后才能投票" elseif instr(Rs("BallotUserList"),""&CookieUserName&"|")>0 then response.write "您已经投过票了" else response.write "" end if %> 总票数:<%=allticket%> 截止投票时间:<%=Rs("Expiry")%>
    <% Rs.Close end if '''''''投票 END'''''''' TotalCount=replies+1 PageSetup=SiteSettings("PostsPerPage") '设定每页的显示数量 TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数 PageCount = cint(Request.QueryString("PageIndex")) '获取当前页 if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage if Request("SortOrder")="1" then SqlSortOrder="Desc" else SqlSortOrder="" end if if PageCount<2 then sql="select top "&pagesetup&" * from [BBSXP_Posts"&PostsTableName&"] where ThreadID="&ThreadID&" order by id "&SqlSortOrder&"" Set Rs=Conn.Execute(sql) else sql="select * from [BBSXP_Posts"&PostsTableName&"] where ThreadID="&ThreadID&" order by id "&SqlSortOrder&"" 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
    <%=Rs1("UserName")%>
    <%=Rs1("UserHonor")%>
    <%if Rs1("UserSex")<>"" then%> .gif>  <%end if%>
    <%if Request.Cookies("DisabledShowFace")="" then%> <%end if%>

    >

    等  级:<%=RankName%>
    <%if Rs1("Consortia")<>"" then%>公  会:"><%=Rs1("Consortia")%>
    <%end if%> <%if Rs1("Consort")<>"" then%>配  偶:<%=Rs1("Consort")%>
    <%end if%> 经 验 值:<%=Rs1("experience")%>
    社区金币:<%=Rs1("UserMoney")%>
    总发贴数:<%=Rs1("PostTopic")+Rs1("Postrevert")%>
    注册时间:<%=split(Rs1("UserRegTime")," ")(0)%>
    状  态:<%if instr("|"&OnlineUserList&"","|"&Rs1("UserName")&"|")>0 then%>在线<%else%>离线<%end if%>
    title='查看<%=Rs("UserName")%>的个人资料'>信息 ','','width=320,height=170')" title='发送短讯息给<%=Rs("UserName")%>'>短讯 title='发送电邮给 <%=Rs("UserName")%>'>邮箱 <%if Rs1("userhome")<>"" and Rs1("userhome")<>"http://" then%> 主页 <%end if%> 好友 搜索 引用 回复 No.<%=i+(PageCount-1)*PageSetup%>

    <%if instr("|"&SiteSettings("BannedUserPost")&"|"&Request.Cookies("BadUserList")&"|","|"&Rs("UserName")&"|")>0 then%> ==============================
       该用户帖子已被过滤   
    ============================== <%else%>
    <%=Rs("Subject")%>

    <%=Rs("content")%>
    <%end if%>
    <%if Rs1("UserSign")<>"" and Request.Cookies("DisabledShowSign")="" then%> ——————————
    <%=YbbEncode(Rs1("UserSign"))%> <%end if%>

    编辑 删除 发表时间:<%=Rs("Posttime")%>  IP: <%if SiteSettings("DisplayPostIP")=1 then%> <%=Rs("PostIP")%> <%else%> &PostID=<%=Rs("id")%>>已记录 <%end if%>
    <% Set Rs1 = Nothing Rs.MoveNext loop Rs.Close act=topic %>
    <%ShowPage()%> 收藏帖子 | 取消收藏 | 返回页首 
    <%if CookieUserName<>empty then%>
    <%if sitesettings("EnableAntiSpamTextGenerateForPost")=1 then%> <%end if%>
    快速回复主题<%=act%>
    验证码 验证码,看不清楚?请点击刷新验证码

    文章内容
    查看内容长度
       
    管理选项: <% response.write "拉前主题 | " if IsLocked=1 then response.write "解锁主题" else response.write "锁定主题" end if response.write " | " if IsTop=2 then response.write "取消总固顶" else response.write "主题总固顶" end if response.write " | " if IsTop=1 then response.write "取消固顶" else response.write "主题固顶" end if response.write " | " if IsGood=1 then response.write "取消精华帖" else response.write "加为精华帖" end if %> | 移动主题 | 修复主题
    <%end if%> <%htmlend%>