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


    <% select case Request("menu") case "" sql="select * from forum where deltopic<>1 order by id Desc" %><% case "1" sql="select * from forum where deltopic<>1 and posttime>date_sub(curdate(),interval 7 day) order by Views" %><% case "2" sql="select * from forum where deltopic<>1 and posttime>date_sub(curdate(),interval 7 day) order by replies Desc" %><% case "3" sql="select * from forum where goodtopic=1 and deltopic<>1 order by id Desc" %><% case "4" sql="select * from forum where polltopic<>'' and deltopic<>1 order by id Desc" %><% case "5" if username="" then username=Request.Cookies("username") sql="select * from forum where username='"&username&"' and deltopic<>1 order by id Desc" %><% case "100" if username="" then username=Request.Cookies("username") sql="select * from forum a inner join reforum1 b on a.ID=b.topicid where b.username='"&username&"' and a.deltopic<>1 order by a.id desc" %><% case "200" if username="" then username=Request.Cookies("username") 'sql="select * from forum where ID IN (select topicid FROM reforum WHERE username='"&username&"' ) and deltopic<>1 order by id Desc" sql="select * from forum a inner join reforum b on a.ID=b.topicid where b.username='"&username&"' and a.deltopic<>1 order by a.id desc" %><% end select pagesetup=20 '设定每页的显示数量 TotalPage=getpagecount(sql,pagesetup) PageCount = cint(Request.QueryString("ToPage")) if PageCount > TotalPage then PageCount = TotalPage if PageCount <1 then PageCount = 1 sql=sql&" limit "&(pagecount-1)*pagesetup&","&pagesetup '跳转到指定页数 i=0 rs.Open sql,Conn,1 Do While Not RS.EOF i=i+1 newtopic="" if rs("posttime")+1>now() then newtopic="" ShowForum RS.MoveNext loop RS.Close %>
    [ <%ShowPage TotalPage,PageCount,"menu=" & Request.QueryString("menu") & "&username=" & Request.QueryString("username")%> ]

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