<% top if Request.Cookies("username")=empty then error("
  • 您还未登录社区") %>
       <%ClubTree%> →


    <% 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 %>
    [ ]

    打开主题 (有回复的主题) 热门主题 关闭主题 精华主题
    打开主题 (没有回复的主题) 投票主题 置顶主题 自己发表的主题
    <% htmlend %>