admin_statistics.asp

简单的asp论坛源码系统,很适用于初学者!界面简洁,功能齐全

If NOT rsCommon.EOF Then dtmMember = CDate(rsCommon("Join_date"))

'Clean up
rsCommon.Close




'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT" & strDBTop1 & " " & strDbTable & "PMMessage.PM_Message_date FROM " & strDbTable & "PMMessage ORDER BY " & strDbTable & "PMMessage.PM_Message_date DESC" & strDBLimit1 & ";"

'Query the database
rsCommon.Open strSQL, adoCon

'Read in the count
If NOT rsCommon.EOF Then dtmPm = CDate(rsCommon("PM_Message_date"))

'Clean up
rsCommon.Close


%>
<!-- #include file="includes/browser_page_encoding_inc.asp" -->
<title>Forum Statistics</title>
<meta name="generator" content="Web Wiz Forums" />
<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Software: Web Wiz Forums(TM) ver. " & strVersion & "" & _
vbCrLf & "Info: http://www.webwizforums.com" & _
vbCrLf & "Copyright: (C)2001-2008 Web Wiz(TM). All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>
<meta http-equiv="Refresh" content="30" />
<!-- #include file="includes/admin_header_inc.asp" -->
<div align="center">
  <h1>Forum Statistics</h1><br />
    <a href="admin_menu.asp<% = strQsSID1 %>">Control Panel Menu</a><br />
    <br />
    Below is a list of statistics for the board.</p>
    <br />
    <br />
</div>
<table align="center" cellpadding="4" cellspacing="1" class="tableBorder">
  <tr align="left">
    <td colspan="4" class="tableLedger">Forum Statistics</td>
  </tr>
  <tr>
    <td width="31%" align="left" class="tableRow">Number of Forums<span class="smText"></span></td>
    <td width="11%" valign="top" class="tableRow"><% = intForum %>
    </td>
    <td width="26%" valign="top" class="tableRow">&nbsp;</td>
    <td width="32%" height="12" valign="top" class="tableRow">&nbsp;</td>
  </tr>
  <tr>
    <td width="31%" align="left" class="tableRow">Number of Topics<span class="smText"></span></td>
    <td width="11%" valign="top" class="tableRow"><% = lngTopic %>
    </td>
    <td width="26%" valign="top" class="tableRow">Last New Topic</td>
    <td width="32%" height="12" valign="top" class="tableRow"><% = FormatDateTime(dtmTopic, vbLongDate) & ", " &  FormatDateTime(dtmTopic, vbShortTime) %>
    </td>
  </tr>
  <tr>
    <td width="31%" align="left" class="tableRow">Number of Posts<span class="smText"></span></td>
    <td width="11%" valign="top" class="tableRow"><% = lngPost %>
    </td>
    <td width="26%" valign="top" class="tableRow">Last New Post</td>
    <td width="32%" height="12" valign="top" class="tableRow"><% = FormatDateTime(dtmPost, vbLongDate) & ", " &  FormatDateTime(dtmPost, vbShortTime) %>
    </td>
  </tr>
  <tr>
    <td  height="2" align="left" class="tableRow">Number of Members</td>
    <td valign="top" class="tableRow"><% = lngMember %>
    </td>
    <td valign="top" class="tableRow">Last New Member</td>
    <td height="2" valign="top" class="tableRow"><% = FormatDateTime(dtmMember, vbLongDate) & ", " &  FormatDateTime(dtmMember, vbShortTime) %>
    </td>
  </tr>
  <tr>
    <td  height="2" align="left" class="tableRow">Number of Private Messages</td>
    <td valign="top" class="tableRow"><% = lngPm %>
    </td>
    <td valign="top" class="tableRow">Last Private Message</td>
    <td height="2" valign="top" class="tableRow"><% = FormatDateTime(dtmPm, vbLongDate) & ", " &  FormatDateTime(dtmPm, vbShortTime) %>
    </td>
  </tr>
  <tr>
    <td  height="2" align="left" class="tableRow">Number of Polls</td>
    <td valign="top" class="tableRow"><% = lngPoll %>
    </td>
    <td valign="top" class="tableRow">&nbsp;</td>
    <td height="2" valign="top" class="tableRow">&nbsp;</td>
  </tr>
  <tr>
    <td  height="2" align="left" class="tableRow">Number of User Groups</td>
    <td valign="top" class="tableRow"><% = intGroups %>
    </td>
    <td valign="top" class="tableRow">&nbsp;</td>
    <td height="2" valign="top" class="tableRow">&nbsp;</td>
  </tr>
</table>
<br />
<br />
<br /><%

If blnActiveUsers Then

	'Initialise  the array from the application veriable
	If IsArray(Application(strAppPrefix & "saryAppActiveUsersTable")) Then 
			
		'Place the application level active users array into a temporary dynaimic array
		saryActiveUsers = Application(strAppPrefix & "saryAppActiveUsersTable")
		
	'Else Initialise the an empty array
	Else
		ReDim saryActiveUsers(8,0)
	End If
	
	
	'Sort the active users array
	Call SortActiveUsersList(saryActiveUsers)
	
	
	'Get the number of active users
	'Get the active users online
	For intArrayPass = 1 To UBound(saryActiveUsers, 2)
		
		'If this is a guest user then increment the number of active guests veriable
		If saryActiveUsers(1, intArrayPass) = 2 Then 	
				
			intActiveGuests = intActiveGuests + 1
		End If
			
	Next 
	
	'Calculate the number of members online and total people online
	intActiveUsers = UBound(saryActiveUsers, 2)
	intActiveMembers = intActiveUsers - intActiveGuests

%>    
<table class="basicTable" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left">
    <div style="float:left;"><% = strTxtThereAreCurrently & " " & intActiveUsers & " " & strTxtActiveUsers & " " & strTxtOnLine & ", "  & intActiveGuests & " " & strTxtGuests & " and " & intActiveMembers & " " & strTxtMembers %></div>
    <div style="float:right;"><a href="admin_statistics.asp<% = strQsSID1 %>"><img src="<% = strImagePath %>refresh.png" alt="<% = strTxtRefreshPage %>" title="<% = strTxtRefreshPage %>" /></a>&nbsp;</div>
  </td>
 </tr>
<table>
<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
 <tr class="tableLedger">
  <td width="14%"><% = strTxtUsername %></td>
  <td width="10%">IP</td>
  <td width="14%"><% = strTxtLastActive %></td>
  <td width="10%"><% = strTxtActive %></td>
  <td width="22%" align="left"><% = strTxtOS & "/" & strTxtBrowser %></td>
  <td width="33%" align="left"><% = strTxtLocation %></td>
 </tr><%  


        		
	'display the active users
	For intArrayPass = 1 To UBound(saryActiveUsers, 2)
		
		'Array dimension lookup table
		' 0 = IP
		' 1 = Author ID
		' 2 = Username
		' 3 = Login Time
		' 4 = Last Active Time
		' 5 = OS/Browser
		' 6 = Location Page Name
		' 7 = URL
		' 8 = Hids user details
	
		'Read in the details from the rs
		lngUserID = saryActiveUsers(1, intArrayPass)
		strUsername = saryActiveUsers(2, intArrayPass)
		dtmLoggedIn = saryActiveUsers(3, intArrayPass)
		dtmLastActive = saryActiveUsers(4, intArrayPass)
		strOSbrowser = saryActiveUsers(5, intArrayPass)
		strLocation = saryActiveUsers(6, intArrayPass)
		strURL = saryActiveUsers(7, intArrayPass)
		blnHideActiveUser = CBool(saryActiveUsers(8, intArrayPass))
		
				
		'Write the HTML of the Topic descriptions as hyperlinks to the Topic details and message
%>
 <tr class="tableRow"> 
  <td><% 
          
	         'If the user is a Guest then display them as a Guest
	         If lngUserID = 2 Then
	         
	         	'Add 1 to the Guest number
	         	intGuestNumber = intGuestNumber + 1
	         	
	         	'Display the User as Guest
	         	Response.Write(strTxtGuest & " "& intGuestNumber)
	         
	         'Else display the users name
	         Else 
	         
	         %><a href="member_profile.asp?PF=<% = lngUserID %>" rel="nofollow"><% = strUsername %></a><% 
	        
	        End If
        
        %></td>
  <td nowrap><% Response.Write(saryActiveUsers(0, intArrayPass))  %></td>
  <td nowrap><% Response.Write(DateFormat(dtmLoggedIn) & " " & strTxtAt & "&nbsp;" & TimeFormat(dtmLoggedIn))  %></td>
  <td><% = DateDiff("n", dtmLoggedIn, dtmLastActive) %>&nbsp;<% = strTxtMinutes %></td>
  <td nowrap><% = strOSbrowser %></td>
  <td nowrap><% = strLocation %><% If strLocation <> "" AND strURL <> "" Then Response.Write("<br />") %><% = strURL %></td>
 </tr><%
		
	   		
	Next
	


%>
</table>
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td align="center" class="text"><br />
        This data is based on users active over the past twenty minutes</td>
    </tr>
  </table>
  <br />
  <br />
  <%
End If

'Clean up
Call closeDatabase()

%>
<br />
<!-- #include file="includes/admin_footer_inc.asp" -->