<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums(TM) '** http://www.webwizforums.com '** '** Copyright (C)2001-2008 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'If active users is off redirect back to the homepage If blnActiveUsers = False Then 'Clean up Call closeDatabase() 'Redirect Response.Redirect("default.asp" & strQsSID1) End If 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" 'Dimension variables Dim lngUserID 'Holds the active users ID Dim strUsername 'Holds the active users username Dim strForumName 'Holds the forum name Dim intGuestNumber 'Holds the Guest Number Dim dtmLoggedIn 'Holds the date/time the user logged in Dim dtmLastActive 'Holds the date/time the user was last active Dim intActiveUsers 'Holds the number of active users Dim intActiveGuests 'Holds the number of active guests Dim intActiveMembers 'Holds the number of logged in active members Dim intForumColourNumber 'Holds the number to calculate the table row colour Dim intArrayPass 'Loop counter Dim strOSbrowser 'Holds the OS and browser of the user Dim strLocation 'Holds the users location Dim strURL 'Holds the URL to the users location Dim blnHideActiveUser 'Holds if the user wants to be hidden Dim intAnonymousMembers 'Holds the number of intAnonymous members online Dim strActiveUserIP 'Initilise variables intActiveMembers = 0 intActiveGuests = 0 intActiveUsers = 0 intGuestNumber = 0 intForumColourNumber = 0 intAnonymousMembers = 0 'Call active users function saryActiveUsers = activeUsers(strTxtActiveUsers, "", "", 0) 'Sort the active users array Call SortActiveUsersList(saryActiveUsers) 'If the user has logged in then the Logged In User ID number will be more than 0 If intGroupID <> 2 Then 'See if the user is a in a moderator group for any forum 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Permissions.Moderate " & _ "FROM " & strDbTable & "Permissions " & _ "WHERE (" & strDbTable & "Permissions.Group_ID = " & intGroupID & " OR " & strDbTable & "Permissions.Author_ID = " & lngLoggedInUserID & ") AND " & strDbTable & "Permissions.Moderate=" & strDBTrue & ";" 'Query the database rsCommon.Open strSQL, adoCon 'If a record is returned then the user is a moderator in one of the forums If NOT rsCommon.EOF Then blnModerator = True 'Clean up rsCommon.Close End If 'Set bread crumb trail strBreadCrumbTrail = strBreadCrumbTrail & strNavSpacer & strTxtActiveForumUsers %> <% = strTxtActiveForumUsers %> <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>

<% = strTxtActiveForumUsers %>

<% '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 'Else if the user is Anonymous increment the Anonymous count ElseIf CBool(saryActiveUsers(8, intArrayPass)) Then intAnonymousMembers = intAnonymousMembers + 1 End If Next 'Calculate the number of members online and total people online intActiveUsers = UBound(saryActiveUsers, 2) 'Calculate the members online by using the total - Guests - Annoymouse Members intActiveMembers = intActiveUsers - intActiveGuests - intAnonymousMembers %>
<% = (strTxtInTotalThereAre & " " & intActiveUsers & " " & strTxtActiveUsers & " " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuests & ", " & intActiveMembers & " " & strTxtMembers & ", " & intAnonymousMembers & " " & strTxtAnonymousMembers) %>
<% = strTxtRefreshPage %> 
<% 'If this is an admin or moderator then display the IP address of the user If blnAdmin OR blnModerator Then Response.Write(vbCrLf & " ") %> <% 'display the active users For intArrayPass = 1 To UBound(saryActiveUsers, 2) intForumColourNumber = intForumColourNumber + 1 '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 strActiveUserIP = saryActiveUsers(0, intArrayPass) 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)) intForumID = CInt(saryActiveUsers(9, intArrayPass)) 'Check the permissions to see if the user has permission to see the topic subject If intForumID > 0 Then 'Check permissions Call forumPermissions(intForumID, intGroupID) 'If the user doesn't have read permissions then remove the Location URL If blnRead = False Then strURL = "" End If 'Write the HTML of the Topic descriptions as hyperlinks to the Topic details and message %> "> <% 'If admin or moderator display the IP address of the user If blnAdmin OR blnModerator Then Response.Write(vbCrLf & " ") %> <% Next 'Clean up Call closeDatabase() %>
<% = strTxtUsername %> <% = strTxtLastActive %> <% = strTxtActive %> <% = strTxtOS & "/" & strTxtBrowser %>" & strTxtIP & "<% = strTxtLocation %>
<% '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) 'If the user wants to hide there ID then do so (unless this is an admin or moderator) ElseIf blnHideActiveUser AND blnAdmin = False AND blnModerator = False Then 'Display the user as an annoy Response.Write(strTxtAnnoymous) 'Else display the users name Else %><% = strUsername %><% End If %> <% Response.Write(DateFormat(dtmLastActive) & " " & strTxtAt & " " & TimeFormat(dtmLastActive)) %> <% = DateDiff("n", dtmLoggedIn, dtmLastActive) %> <% = strTxtMinutes %> <% = strOSbrowser %>" & strActiveUserIP & "<% = strLocation %><% If strLocation <> "" AND strURL <> "" Then Response.Write("
") %><% = strURL %>

<% = strTxtDataBasedOnActiveUsersInTheLastXMinutes %>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Bulletin Board Software by Web Wiz Forums® version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2008 Web Wiz") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Display the process time If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "" %>