<% id=cint(Request("id")) if id<>empty then ResponseCookies"ForumID",id,"0" if ""&SiteSettings("AdminPassword")&""=empty then response.redirect "Install.asp" top %> <% if CookieUserName<>"" then sql="select * from [BBSXP_Users] where ID="&CookieUserID&"" Set Rs=Conn.Execute(sql) %>   <%ClubTree%>
<% Rs.Close else %>   <%ClubTree%>
已经停留 <%=DateDiff("n",Request.Cookies("Onlinetime"),Now())%> 分钟  新帖| >自贴| 投票| 精华| 热门| 人气| 新会员："><%=SiteSettings("NewUsers")%>  
经验：<%=Rs("experience")%>  发表文章：<%=Rs("PostTopic")%>  用户等级：<%=ShowRole(RS("UserRoleID"))%>   注册会员：<%=SiteSettings("TotalUsers")%>  主题贴：<%=SiteSettings("TotalTopics")%>  总帖数：<%=SiteSettings("TotalPosts")%>  昨帖数：<%=Conn.Execute("select TOP 1 DaysPosts from [BBSXP_Statistics] order by DateCreated desc")(0)%>  今帖数：<%=SiteSettings("DaysPosts")%> 
  新帖| 精华| 热门| 人气| 新会员："><%=SiteSettings("NewUsers")%>  
用户等级：游客 请 登录 后再进行操作 注册会员：<%=SiteSettings("TotalUsers")%>  主题贴：<%=SiteSettings("TotalTopics")%>  总帖数：<%=SiteSettings("TotalPosts")%>  昨帖数：<%=Conn.Execute("select TOP 1 DaysPosts from [BBSXP_Statistics] order by DateCreated desc")(0)%>  今帖数：<%=SiteSettings("DaysPosts")%> 
" name="ReturnUrl">
　快捷登录
　 用户名称： 用户密码： <%if SiteSettings("EnableAntiSpamTextGenerateForLogin")=1 then%> 验 证 码：   <%end if%> 没有注册? 找回密码?

<% end if %>
<% Set Rs=Conn.ExeCute("Select * From [BBSXP_Affiche] Order By ID Desc") Do While Not Rs.Eof title=Rs("title") p_time=Rs("posttime") if len(title)>17 then title=Left(""&title&"",30)&"..." %>　 "><%=title%>(<%=p_time%>)   <% Rs.MoveNext Loop Rs.Close %>

<%if int(SiteSettings("DisplayStation"))=1 then%> <%end if%>
<% if Request.Cookies("forumid")<>empty then sql="select * from [BBSXP_Forums] where id="&int(Request.Cookies("forumid"))&"" Set Rs1=Conn.Execute(sql) if Rs1.eof then ResponseCookies"ForumID","","0" response.write "" Response.End end if ShowForum() Set Rs1 = Nothing else sql="Select * From [BBSXP_Forums] where followid=0 and ForumHide=0 order by SortNum" Set Rs=Conn.Execute(sql) do while not Rs.eof ForumIntro=replace(Rs("ForumIntro"),"
",CHR(10)) %> <%if SiteSettings("DisplayForumFloor")<>1 and rs("ForumStyle")<>1 then%> <% end if i=0 sql="Select * From [BBSXP_Forums] where followid="&Rs("id")&" and ForumHide=0 order by SortNum" Set Rs1=Conn.Execute(sql) do while not Rs1.eof if SiteSettings("DisplayForumFloor")=1 then ShowForumFloor else if Rs1("ForumStyle")=1 then ShowForumFloor else ShowForum end if end if Rs1.Movenext loop Set Rs1 = Nothing if SiteSettings("DisplayForumFloor")=1 and i>0 then for i = i to 2 response.write "" next end if %>
论坛 主题 帖数 今日 最后发表 版主

<% Rs.Movenext loop Rs.close end if ForumName=SiteSettings("SiteName") ForumID=0 %>
<% if SiteSettings("fdimg")<>"" then %>
>">
<%end if%> <% regOnline=Conn.execute("Select count(sessionid)from [BBSXP_UsersOnline] where UserName<>''")(0) if SiteSettings("BestOnline") < Onlinemany then Conn.execute("update [BBSXP_SiteSettings] set BestOnline="&Onlinemany&",BestOnlineTime="&SqlNowString&"") end if if SiteSettings("DisplayBirthdays")=1 then %>
　今天过生日的会员
<% Set Rs=conn.Execute("Select UserName,Birthday From [BBSXP_Users] where Month(Birthday)="&Month(now())&" and day(Birthday)="&day(now())&"") if Rs.eof then Response.Write "今天没有过生日的会员." do while not Rs.eof %>"><%=RS("UserName")%>　<% Rs.Movenext loop Rs.close %>

<% end if if SiteSettings("DisplayLink")=1 then %> <% sql="select * from [BBSXP_Link] where Review=1" rs.Open sql,Conn do while not rs.eof if rs("logo")="" or rs("logo")="http://" then link1=link1+""&rs("name")&" " else link2=link2+" " end if rs.movenext loop rs.close %>
　友情链接　【申请链接】
<%=link1%>
<%=link2%>

<% end if if SiteSettings("DisplayWhoIsOnline")=1 then%>
　会员在线信息
目前论坛总共 有 <%=Onlinemany%> 人在线。其中注册用户 <%=regOnline%> 人，访客 <%=Onlinemany-regOnline%> 人。最高在线 <%=SiteSettings("BestOnline")%> 人，发生在 <%=SiteSettings("BestOnlineTime")%>

/Board1.gif" alt="无新帖的论坛"> 无新帖的论坛 /Board2.gif" alt="有新帖的论坛"> 有新帖的论坛

<% end if htmlend sub ShowForumFloor() ForumIntro=replace(Rs1("ForumIntro"),"
",CHR(10)) if rs1("Moderated")<>empty then ModeratedList=" 版主：" filtrate=split(rs1("Moderated"),"|") ModeratedList=ModeratedList&""&filtrate(0)&" " if ubound(filtrate)>0 then ModeratedList=ModeratedList&" ..." else ModeratedList=" 申请版主" end if i=i+1 if i=1 then response.write "" %>
 "><%=Rs1("ForumName")%>
 今日帖数： <%=Rs1("ForumToday")%>主题帖数： <%=Rs1("ForumThreads")%>回复帖数：<%=Rs1("ForumPosts")%>
<%=ModeratedList%>
<% if i=3 then i=0:response.write "" end sub %>