<% GroupID=RequestInt("GroupID") HtmlTop %>
<%=ClubTree%>
<%if BestRole=1 then%>
修复统计
<%end if%>
<% sql="["&TablePrefix&"Threads] where Visible=1 and ThreadTop=2 order by ThreadID Desc" Set Rs=Execute(sql) if Not Rs.Eof Then %>
公告
<% Do While Not Rs.Eof Response.Write ""&Rs("Topic")&" ("&FormatDateTime(Rs("PostTime"),2)&")　　" Rs.MoveNext Loop %>
<% End If Rs.Close if SiteConfig("DisplayTags")=1 then sql="select top 14 * From ["&TablePrefix&"PostTags] where IsEnabled=1 and DateDiff("&SqlChar&"m"&SqlChar&",MostRecentPostDate,"&SqlNowString&")<1 order by TotalPosts Desc" Set Rs=Execute(sql) if Not Rs.Eof Then %>
热门标签
<% i=0 Do While Not Rs.Eof and i<14 Response.Write "
  • "&Rs("TagName")&"("&Rs("TotalPosts")&")
    • " i=i+1 Rs.MoveNext Loop %>
    <% End If Rs.Close end if if GroupID>0 then GroupIDSQL=" and GroupID="&GroupID&"" GroupGetRow=FetchEmploymentStatusList("Select GroupID,GroupName,GroupDescription,ForumColumns,Moderated From ["&TablePrefix&"Groups] where SortOrder>0 "&GroupIDSQL&" order by SortOrder") if IsArray(GroupGetRow) then for j=0 to Ubound(GroupGetRow,2) if RequestCookies("ForumGroupDisplay"&GroupGetRow(0,j)&"")="none" then ForumGroupDisplay="style='display:none;'" ForumGroupDisplayImg="group_expand.gif" else ForumGroupDisplay="" ForumGroupDisplayImg="group_collapse.gif" end if GroupModeratedList="" if GroupGetRow(4,j)<>empty then GroupModeratedList="版主:" filtrate=split(GroupGetRow(4,j),"|") for i = 0 to ubound(filtrate) if ""&filtrate(i)&""<>"" then GroupModeratedList=GroupModeratedList&""&filtrate(i)&" " next end if sql="Select * From ["&TablePrefix&"Forums] where GroupID="&GroupGetRow(0,j)&" and ParentID=0 and SortOrder>0 and IsActive=1 order by SortOrder" Set Rs=Execute(sql) %> <% if GroupGetRow(3,j)<1 then '竖排显示 %> > <% do while not Rs.eof ShowForum Rs.Movenext loop else '横排显示 ki=0 WidthPercent=100/GroupGetRow(3,j) %> > <% do while not Rs.eof ShowForumFloor Rs.Movenext loop if ki<>0 and GroupGetRow(3,j)<>ki then for ki = ki to GroupGetRow(3,j)-1 response.write "" next end if end if Rs.close response.write "
    <%=GroupGetRow(1,j)%> <%=GroupModeratedList%>
    版块 主题 帖子 最后发表 版主
    <%=GroupGetRow(1,j)%> <%=GroupModeratedList%>
    " next end if GroupGetRow=null ForumName=SiteConfig("SiteName") ForumID=0 %>
    <% regOnline=Execute("Select count(sessionid) from ["&TablePrefix&"UserOnline] where UserName<>''")(0) if BestOnline < Onlinemany then Execute("update ["&TablePrefix&"SiteSettings] Set BestOnline="&Onlinemany&",BestOnlineTime="&SqlNowString&"") end if if SiteConfig("DisplayWhoIsOnline")=1 then %>
    用户在线信息
    <%Response.Write("目前论坛总共 有 "&Onlinemany&" 人在线。其中注册用户 "®Online&" 人，访客 "&Onlinemany-regOnline&" 人。最高在线 "&BestOnline&" 人，发生在 "&BestOnlineTime&"")%>

    <% end if if SiteConfig("DisplayStatistics")=1 then %>
    统计信息
    <% SQL="Select top 1 * from ["&TablePrefix&"Statistics] order by DateCreated desc" Set Rs=Execute(sql) 'if Rs.eof then response.redirect "Install.asp" %> 总共 <%=Rs("TotalTopics")%> 个主题 / <%=Rs("TotalPosts")%> 篇帖子 / <%=Rs("TotalUsers")%> 位用户
    <%=FormatDateTime(Rs("DateCreated"),1)%>新增 <%=Rs("DaysTopics")%> 个新主题 / <%=Rs("DaysPosts")%> 篇新帖子 / <%=Rs("DaysUsers")%> 位新用户
    欢迎新用户 <%=Rs("NewestUserName")%> <%Rs.close%>

    <% end if if SiteConfig("DisplayBirthdays")=1 then %>
    今天过生日的用户
    <% UserBirthdayGetRow=RequestApplication("UserBirthday") if IsArray(UserBirthdayGetRow) then For i=0 To Ubound(UserBirthdayGetRow,2) %>
  • <%=UserBirthdayGetRow(1,i)%>
    • <% Next UserBirthdayGetRow=empty Else Response.Write "今天没有过生日的用户" End if UserBirthdayGetRow=null %>

    <% end if if SiteConfig("DisplayLink")=1 then %> <% LinksGetRow=RequestApplication("Links") '直接读取Application缓存 if IsArray(LinksGetRow) then For i=0 To Ubound(LinksGetRow,2) if ""&LinksGetRow(1,i)&""="" or LinksGetRow(1,i)="http://" then Link1=Link1+"
  • "&LinksGetRow(0,i)&"
    • " else Link2=Link2+" " end if Next End if %>
    友情链接
    <%=Link1%>
    <%=Link2%>
    <% end if LinksGetRow=null %>
    有新帖的论坛 无新帖的论坛 带链接的论坛
    <% HtmlBottom Sub ShowForumFloor() if Rs("MostRecentPostSubject")<>empty then MostRecent=""&Rs("MostRecentPostSubject")&"" if Rs("ForumUrl")<>"" then ForumIcon="" elseif int(DateDiff("d",Rs("MostRecentPostDate"),Now())) < 2 then ForumIcon="" else ForumIcon="" end if ki=ki+1 if ki=1 then response.write "" %>
    <%=ForumIcon%> 『 "><%=Rs("ForumName")%> 』
    今日 <%=Rs("TodayPosts")%> 主题 <%=Rs("TotalThreads")%> 帖子 <%=Rs("TotalPosts")%>
    <%=MostRecent%>
    <% if ki=GroupGetRow(3,j) then ki=0:response.write "" End Sub %>