<%
UserName=HTMLEncode(Request("UserName"))
HtmlTop
select case Request("menu")
case ""
ForumTitle="最新主题"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 order by ThreadID Desc"
case "HotViews"
ForumTitle="人气主题"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 and PostTime>"&SqlNowString&"-"&SiteConfig("PopularPostThresholdDays")&" order by TotalViews Desc"
case "HotReplies"
ForumTitle="热门主题"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 and PostTime>"&SqlNowString&"-"&SiteConfig("PopularPostThresholdDays")&" order by TotalReplies Desc"
case "GoodTopic"
ForumTitle="精华主题"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 and IsGood=1 order by ThreadID Desc"
case "VoteTopic"
ForumTitle="投票主题"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 and IsVote=1 order by ThreadID Desc"
case "MyTopic"
ForumTitle="我的主题"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 and PostAuthor='"&UserName&"' order by ThreadID Desc"
case "NoReplies"
ForumTitle="未回复帖"
sql="select top 200 * from [BBSXP_Threads] where IsApproved=1 and IsDel=0 and TotalReplies=0 order by ThreadID Desc"
case else
error("错误参数！")
end select
Rs.Open sql,Conn,1
%>
<%ClubTree%> → <%=ForumTitle%>
| 主题 |
<%
PageSetup=SiteConfig("ThreadsPerPage") '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount '总页数
PageCount = RequestInt("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
<%
HtmlBottom
%>