<% top ThreadID=int(Request("ThreadID")) ForumID=int(Request("ForumID")) if Request("menu")="RatePost" then if CookieUserName=empty then error("
  • 您还未登录论坛") star=int(Request("star")) if star<0 or star>5 then error("
  • 非法操作") If not Conn.Execute("Select UserName From [BBSXP_PostRating] where UserName='"&CookieUserName&"' and ThreadID="&ThreadID&"" ).eof Then error("
  • 您已经对本帖子评估了,无需重复评估!") Conn.execute("update [BBSXP_Threads] set RatingSum=RatingSum+"&star&",TotalRatings=TotalRatings+1 where id="&ThreadID&"") Conn.Execute("insert into [BBSXP_PostRating] (ThreadID,Rating,UserName) values ('"&ThreadID&"','"&star&"','"&CookieUserName&"')") error2("评估成功!") end if if Request("menu")="Next" then sql="select top 1 * from [BBSXP_Threads] where ID > "&ThreadID&" and ForumID="&ForumID&" and IsDel=0 order by id" elseif Request("menu")="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 if Rs.eof or Rs.bof then error"
  • 系统不存在该帖子的资料" Topic=ReplaceText(Rs("Topic"),"<[^>]*>","") Replies=Rs("Replies") Views=Rs("Views") IsVote=Rs("IsVote") IsGood=Rs("IsGood") IsTop=Rs("IsTop") IsLocked=Rs("IsLocked") IsDel=Rs("IsDel") PostsTableName=Rs("PostsTableName") SpecialTopic=Rs("SpecialTopic") ThreadID=Rs("ID") ForumID=Rs("ForumID") Rs.close sql="select * from [BBSXP_Forums] where id="&ForumID&"" Set Rs=Conn.Execute(sql) if Rs.Eof then error("
  • 系统不存在此论坛的资料") ForumName=Rs("ForumName") Moderated=Rs("Moderated") ForumLogo=Rs("ForumLogo") followid=Rs("followid") Rs.Close %> <% if PermissionsRead=0 then error"
  • 您没有权限阅读帖子" if IsDel=1 and PermissionsManage=0 then error"
  • 该主题在回收站中!" %> <%=Topic%>
       <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=ForumName%><%=Topic%>

    > 发表新帖 <%if PermissionsCreatePoll=1 then%>发起投票<%end if%> > 回复帖子 评估帖子 回复数:<%=Replies%> | 点击数:<%=Views%> >      
    <% '''''''投票'''''''' 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 %>
    选项 票数 百分比
    value=<%=i%> name=PostVote id=PostVote<%=i%>> <%=Result(i)%> % height="10"> <%=Votepercent%>%
    <% if PermissionsVote=0 then response.write "您没有权限投票" elseif instr("|"&Rs("BallotUserList")&"|","|"&CookieUserName&"|")>0 then response.write "您已经投过票了" elseif instr("|"&Rs("BallotIPList")&"|","|"&Request.ServerVariables("REMOTE_ADDR")&"|")>0 then response.write "此IP已经投过票了" elseif Rs("Expiry")< now() 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 sql="select * from [BBSXP_Posts"&PostsTableName&"] where ThreadID="&ThreadID&" order by id "&SqlSortOrder&"" if PageCount<11 then Set Rs=Conn.Execute(sql) else rs.Open sql,Conn,1 end if if Rs.eof then error2"系统不存在该帖子的资料" if TotalPage>1 then RS.Move (PageCount-1) * pagesetup i=0 Do While Not Rs.EOF and i
    <% Set UsersOnline=Conn.Execute("select TOP 1 LastTime From [BBSXP_UsersOnline] where Eremite=0 and UserName='"&Rs1("UserName")&"'") if not UsersOnline.eof then %><% end if Set UsersOnline=Nothing %>
    在线. 最后活动时间:<%=UsersOnline("LastTime")%>" src="Images/user_IsOnline.gif" border="0"><%=Rs1("UserName")%>
    <%if Rs1("UserSex")<>"" then%> .gif>  <%end if%> <%=constellation(Rs1("birthday"))%>

    <%if Request.Cookies("DisabledShowFace")="" then%>
    <%end if%>

    角色:<%if instr("|"&Moderated&"|","|"&Rs1("UserName")&"|") > 0 then%>版主 <% else response.write ShowRole(RS1("UserRoleID")) end if %>
    <%if Rs1("Consortia")<>"" then%>公会:"><%=Rs1("Consortia")%>
    <%end if%> <%if Rs1("Consort")<>"" then%>配偶:<%=Rs1("Consort")%>
    <%end if%> 发帖:<%=Rs1("PostTopic")+Rs1("Postrevert")%>
    title='查看 <%=Rs1("UserName")%> 的个人资料'> 信息 title='查看 <%=Rs1("UserName")%> 的个人共享空间'> 日志 ')" title='发送短讯息给 <%=Rs1("UserName")%>'> 短讯 title='发送电邮给 <%=Rs1("UserName")%>'> 邮箱 好友 搜索 引用 回复 No.<%=i+(PageCount-1)*PageSetup%>

    <% if instr("|"&SiteSettings("BannedUserPost")&"|"&Request.Cookies("BadUserList")&"|","|"&Rs1("UserName")&"|")>0 then Response.Write "==============================
    ==============================" else Response.Write ""&Rs("content")&"" if Rs1("UserSign")<>"" and Request.Cookies("DisabledShowSign")="" then Response.Write "

    "&YbbEncode(Rs1("UserSign"))&"" end if %>
    编辑 删除 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()%> &name=<%=Topic%>"> 收藏帖子 | &name=<%=Topic%>"> 取消收藏 | 返回页首 
    <%if CookieUserName<>empty and IsLocked=0 then%>
    <%if SiteSettings("EnableAntiSpamTextGenerateForPost")=1 then%> <%end if%>
    快速回复主题 Re:<%=act%>


    <% end if if PermissionsManage=1 then 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 response.write "| 移动主题| 修复主题
    " end if %><% Conn.execute("update [BBSXP_Threads] set Views=Views+1,LastViewedDate="&SqlNowString&" where ID="&ThreadID&"") htmlend%>