<%
select case Request("menu")
case ""
sql="select top 100 * from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 order by id Desc"
%><%
case "1"
sql="select top 100 * from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 order by Views Desc"
%><%
case "2"
sql="select top 100 * from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 order by replies Desc"
%><%
case "3"
sql="select top 100 * from forum where goodtopic=1 and deltopic<>1 order by id Desc"
%><%
case "4"
sql="select top 100 * from forum where polltopic<>'' and deltopic<>1 order by id Desc"
%><%
case "5"
sql="select top 100 * from forum where username='"&Request.Cookies("username")&"' and deltopic<>1 order by id Desc"
%><%
end select
rs.Open sql,Conn,1
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
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 inow() then newtopic=""
%>
<%
RS.MoveNext
loop
RS.Close
%>