how do i - online users script?

[mxadam]

I have just finished making the basic login/register bit to my new site , i want to make a online users script to show members online and visitors online (how many)

How would this be done as global.asa cant hold asp coding so it can only cold visitors not members

Cheers people

[howardroark`]

there are many ready made scripts like this at aspin.com and hotscripts.com, check them out

[mxadam]

I would like to find out howto do it tho for future projects , these scripts are usually got lots of code around them or just plain visitors scripts

[Thing]

Easiest way of doing it:

This goes in your global.asa file in your root directory:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_onStart()
Application("NumOfVisitors") = Application("NumOfVisitors") + 1
End Sub
Sub Session_onEnd()
Application("NumOfVisitors") = Application("NumOfVisitors") - 1
End Sub
</SCRIPT>

and this is how you display it on a page:

<%
response.write Application("NumOfVisitors")
%>

[afrika]

How Could U Achieve This Without Global.asa

[Markdidj]

You can't, as you need the Session_OnEnd to remove the current session from the list. It can be done without, but you cannot guarantee that the user will log out manually.

I prefer to create a list of sessionID's when someone enters the site

Application.Lock
Application("all_sessions")=Application("all_sessions") & Session.SessionID & "|"
Application.UnLock

then you can add the users name to their sessionID when they have logged in

application.lock
Application("all_sessions")=replace(Application("all_sessions"),session.sessionid,session.sessionid & ":" & user_name)
application.unlock

and remove it with Session_OnEnd in global.asa with

Sub Session_OnEnd
dim objRegExp
SET objRegExp = NEW RegExp
objRegExp.pattern = Session.SessionID & "(:\w+)?\|"
objRegExp.global = true
Application.Lock
Application("all_sessions") = objRegExp.replace(Application("all_sessions"),"") 
Application.UnLock
SET objRegExp = NOTHING
End Sub

I don't know if there's a more accurate way

[mxadam]

These are for just visitors tho , i would like members the visitors like vbulletin if u get me

[Markdidj]

mxadam, the script above is for both visitors and members.
the visitors count is got from using

ubound(split(application("all_sessions"),"|"))

the members count is

ubound(split(application("all_sessions"),":"))

and the members online is got by looping through all_sessions and looking for names.

allSessions=split(application("all_sessions"),"|")
session_count=ubound(allSessions)
for i=0 to session_count
if instr(allSessions[i],":")>0 then
online_member=split(allSessions[i],":")(1)
response write(online_member & " is online")
end if
next