<%@ CodePage=65001 Language="VBScript"%> <% GetConfigVariables SetupDatabase CheckUsername sUsername, sPassword, sResult if (bBBSRegistrationRequired = 1 or bBBSAuthorizationRequired = 1) and (sResult <> "ok") then response.redirect "../logon.asp?error=needregistration" end if dim iTotCategories, iTotForums, iTotThreads, iTotMessages, iTotUsers, _ iTotWeeklyPosts, iTotWeeklyUsers GetStatistics iTotCategories, iTotForums, iTotThreads, iTotMessages, iTotUsers, _ iTotWeeklyPosts, iTotWeeklyUsers, iLogonsToday, iLogonsYesterday, iLogonsWeek, iLogonsMonth %> <%=validateField(sBBSName)%> : BBS Statistics <% if bDisplayBBSQuotes = 1 then%>
<%=sBBSRandomQuoteText%> <%=GetRandomQuote%>
<% else %>
<% end if %>
<%=validateField(sBBSName)%> statistics
BBS Owner : <%="" & sAdminEmail %>
Administrators : <%=ListAdministrators()%>
 
Total Categories : <%=iTotCategories%> Total Forums : <%=iTotForums%>
    Total Threads : <%=iTotThreads%>
    Total Messages : <%=iTotMessages%>
 
User sessions so far today : <%=iLogonsToday%> User sessions yesterday : <%=iLogonsYesterday%>
User sessions in the last seven days : <%=iLogonsWeek%> User sessions this month : <%=iLogonsMonth%>
Total Users : <%=iTotUsers%>
Number of posts in the last seven days : <%=iTotWeeklyPosts%>
Number of new users in the last seven days : <%=iTotWeeklyUsers%>

Actions
BBS User Listing | BBS Statistics | Who's Online? | Last Users Online