Contador de usuarios activos sin global.asa

[toniquio]

Bueno ya era hora de que uno de los novatos hiciera alguna aportación a este foro,no?
Aunque bueno, el código que les voy a mostrar no es mio sino de Macedo uno de los maestros en ASP menos reconocidos del foro.

Consta de tres archivos: logon.asp checkacces.asp y usuarios.asp, este último es el que nos muestra la cantidad de usuarios que están conectados en este momento.


logon.asp :

Código:

 <%@LANGUAGE="VBSCRIPT"%> 
<%
Session("USER")=Ucase(Request("USUARIO"))
ArrUSERS=Split(Application("USUARIOS"),"#",-1)
for contador=0 to Ubound(ArrUSERS)-1
ArrACTUAL=Split(ArrUSERS(contador),"|",-1)
if ArrActual(0)=Session("USER") And conta<>1 then ArrACTUAL(1)=Int(Timer): ArrUSERS(contador)=ArrACTUAL(0)&"|"&ArrACTUAL(1) :conta=1
next
if conta<>1 then Application("USUARIOS")=Application("USUARIOS")&Session("USER")&"|"&Timer&"#"
Response.Redirect("usuarios.asp")
%>

checkacces.asp :

Código:

 <%Response.Buffer=true%>
<%
SESIONES=0
ArrUSERS=Split(Application("USUARIOS"),"#",-1)
for contador=0 to Ubound(ArrUSERS)-1
ArrACTUAL=Split(ArrUSERS(contador),"|",-1)
if (Timer-INT(ArrACTUAL(1)))>30 then 
ArrUSERS(contador)=""
else
if ArrActual(0)=Session("USER") And conta<>1 then ArrACTUAL(1)=Int(Timer): ArrUSERS(contador)=ArrACTUAL(0)&"|"&ArrACTUAL(1) :conta=1
end if
next

TODOS=""
for contador=0 to Ubound(ArrUSERS)-1
if ArrUSERS(contador)<>"" then TODOS=TODOS&ArrUSERS(contador)&"#"
next
Application("USUARIOS")=TODOS
%>