<% id=cint(Request("id")) if id<>empty then ResponseCookies"ForumID",id,"0" if ""&SiteSettings("AdminPassword")&""=empty then response.redirect "Install.asp" top %>
<% Set Rs=Conn.ExeCute("Select top 5 * From [BBSXP_Affiche] Order By ID Desc") Do While Not Rs.Eof %>"><%=Rs("title")%> (<%=FormatDateTime(Rs("PostTime"),2)%>)    <% Rs.MoveNext Loop Rs.Close %>
<% 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")%> 
 快捷登录
  用户名称: 用户密码: <%if SiteSettings("EnableAntiSpamTextGenerateForLogin")=1 then%> 验 证 码:   <%end if%> 没有注册? 找回密码?
<% Dim S(3) S(0)="Select Top 5 * From [BBSXP_Threads] Where IsDel=0 Order by ID Desc" S(1)="Select Top 5 * From [BBSXP_Threads] Where IsDel=0 and PostTime>"&SqlNowString&"-30 Order by Views Desc,ID" S(2)="Select Top 5 * From [BBSXP_Threads] Where IsDel=0 and PostTime>"&SqlNowString&"-30 Order by Replies Desc,ID" S(3)="Select Top 5 * From [BBSXP_Threads] Where IsGood>0 Order by LastTime Desc,ID" For ii=0 to 3 Response.Write "" Next %>
最新发表主题最强人气点击最大热门回复最近更新精华
" Rs.Open S(ii),Conn,1 Do While Not Rs.EOF Topic=ReplaceText(Rs("Topic"),"<[^>]*>","") Response.Write " "&Left(""&Topic,13)&"
" Rs.MoveNext Loop Rs.Close Response.Write "


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

<% end if if SiteSettings("DisplayStatistics")=1 then %>
 统计信息
总共 <%=SiteSettings("TotalTopics")%> 个主题 / <%=SiteSettings("TotalPosts")%> 篇帖子 / <%=SiteSettings("TotalUsers")%> 位会员
今日 <%=SiteSettings("DaysTopics")%> 个新主题 / <%=SiteSettings("DaysPosts")%> 篇新帖子 / <%=SiteSettings("DaysUsers")%> 位新会员
欢迎新会员 "><%=SiteSettings("NewUsers")%>

<%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())&"") do while not Rs.eof %>"><%=RS("UserName")%> <% Rs.Movenext loop Rs.close %>

<% end if if SiteSettings("DisplayLink")=1 then %>
 友情链接
<% Rs.Open "[BBSXP_Link]",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 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 %>