<% UserName=HTMLEncode(Request("UserName")) top if CookieUserName=empty then error("
  • 您还未登录论坛") %>
       <%ClubTree%> →


    <% select case Request("menu") case "" sql="select top 200 * from [BBSXP_Threads] where IsDel=0 order by id Desc" %><% case "1" sql="select top 200 * from [BBSXP_Threads] where IsDel=0 and PostTime>"&SqlNowString&"-7 order by Views Desc" %><% case "2" sql="select top 200 * from [BBSXP_Threads] where IsDel=0 and PostTime>"&SqlNowString&"-7 order by replies Desc" %><% case "3" sql="select top 200 * from [BBSXP_Threads] where IsGood=1 and IsDel=0 order by id Desc" %><% case "4" sql="select top 200 * from [BBSXP_Threads] where IsVote=1 and IsDel=0 order by id Desc" %><% case "5" sql="select top 200 * from [BBSXP_Threads] where UserName='"&UserName&"' and IsDel=0 order by id Desc" %><% case else error2("错误参数!") end select Rs.Open sql,Conn,1 PageSetup=SiteSettings("ThreadsPerPage") '设定每页的显示数量 Rs.Pagesize=PageSetup TotalPage=Rs.Pagecount '总页数 PageCount = cint(Request.QueryString("PageIndex")) if PageCount <1 then PageCount = 1 if PageCount > TotalPage then PageCount = TotalPage if TotalPage>0 then Rs.absolutePage=PageCount '跳转到指定页数 i=0 Do While Not RS.EOF and i
    <%ShowPage()%>
    <% htmlend %>