Contador de usuarios activos sin global.asa

toniquio · #1 (**permalink**) 14/03/2002, 19:31

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:

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

checkacces.asp :

Código:

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

TODOS=&quot;&quot;
for contador=0 to Ubound(ArrUSERS)-1
if ArrUSERS(contador)&lt;&gt;&quot;&quot; then TODOS=TODOS&amp;ArrUSERS(contador)&amp;&quot;#&quot;
next
Application(&quot;USUARIOS&quot;)=TODOS
%&gt;

toniquio · #2 (**permalink**) 14/03/2002, 19:36

Continua...

usuarios.asp

Código:

 &lt;%@LANGUAGE=&quot;VBSCRIPT&quot;%&gt; 
&lt;!--#include file=&quot;checkaccess.asp&quot;--&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Usuarios Conectados&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;meta http-equiv=&quot;refresh&quot; content=&quot;10;url=usuarios.asp&quot;&gt;
&lt;/head&gt;
&lt;body bgcolor=&quot;#000066&quot; topmargin=&quot;0&quot; leftmargin=&quot;0&quot; &gt;
      &lt;center&gt;
        &lt;p&gt;&lt;%=Ubound(Split(Application(&quot;USUARIOS&quot;),&quot;#&quot;,-1))%&gt; Usuarios Conectados&lt;/p&gt;
      &lt;/center&gt;
&lt;/body&gt;
&lt;/html&gt;

Notese el meta llamado "refresh":

Código:

 &lt;meta http-equiv=&quot;refresh&quot; content=&quot;10;url=usuarios.asp&quot;&gt;

Ese 10 son los segundos que tarda el archivo usuarios.asp en auto-actualizarse, se puede poner un tiempo mayor o simplemente eliminarlo y dejar que se actualiza cada vez que los usuarios cambien de página, poniedo claro está el archivo usuarios.asp en todas nuestras páginas.

Espero que os guste el trabajo de Macedo, lo he publicado (con su permiso) porque creo que es una buena alternativa a los webmasters pobres como yo que tiramos de server gratuito que no soporta global.asa.

En la próxima entrega...
Quizás, como enviar e-mails sin complemetos dll.

Un saludo a todos.

macedo · #3 (**permalink**) 15/03/2002, 07:51

Hola a todos.

Gracias Toniquio, pero me temo que he cometido un error con los códigos que te envie. :(

En el archivo logon.asp hay que sustituir la linea:

Session("USER")=Ucase(Request("USUA RIO"))

por estas dos:

randomize
Session("USER")=Cstr(Int(rnd(1)*10000000 0+1))

esto permite que se generen números aleatorios de usuario sin que rellene ningún formulario.

El proceso es el siguiente:

-En el frame donde queráis poner el contador, cargais logon.asp que crea una variable de session con un número aleatorio (que será el identificador del usuario) luego se añade este número junto con el timer a una variable de applicación y redirecciona a usuarios.asp.

-Usuarios.asp muestra la cantidad de usuarios y (con Checkacces que va incluido) refresca el timer del usuario cada 10 segundos.

El usuario es eliminado de la variable de aplicación si su timer es más antiguo que 30 segundos. Es decir si usuarios.asp no se ha recargado después 30 segundos.

Espero que le pueda servir a alguien. :)

Saludos a todos.

toniquio · #4 (**permalink**) 15/03/2002, 10:04

Gracias por la corrección Macedo, de todas formas más abajo vuelvo a pegar el nuevo logon.asp.
Esa corrección es muy oportuna, ya que de la forma erronea no funciona correctamente y a veces muestra "-1 usuarios activos" o se conectan dos y sigue mostrando un uno.

Ahi va:

logon.asp

Código:

 &lt;%@LANGUAGE=&quot;VBSCRIPT&quot;%&gt; 
&lt;%
randomize
Session(&quot;USER&quot;)=Cstr(Int(rnd(1)*100000000+1))
ArrUSERS=Split(Application(&quot;USUARIOS&quot;),&quot;#&quot;,-1)
for contador=0 to Ubound(ArrUSERS)-1
ArrACTUAL=Split(ArrUSERS(contador),&quot;|&quot;,-1)
if ArrActual(0)=Session(&quot;USER&quot;) And conta&lt;&gt;1 then ArrACTUAL(1)=Int(Timer): ArrUSERS(contador)=ArrACTUAL(0)&amp;&quot;|&quot;&amp;ArrACTUAL(1) :conta=1
next
if conta&lt;&gt;1 then Application(&quot;USUARIOS&quot;)=Application(&quot;USUARIOS&quot;)&amp;Session(&quot;USER&quot;)&amp;&quot;|&quot;&amp;Timer&amp;&quot;#&quot;
Response.Redirect(&quot;entrada.asp&quot;)
%&gt;

Ale a disfrutarlo.

vgaray · #5 (**permalink**) 15/03/2002, 13:04

Saludos.

Muy buena la lógica que propones.

Ya han hecho pruebas para verlo que funcione correctamente?

macedo · #6 (**permalink**) 16/03/2002, 15:39

Sí, lo estoy utilizando en una aplicación web de selección de personal, y funciona correctamente.

Aunque el servidor es de la empresa y puedo utilizar global.asa, cada vez que lo usaba colgaba otra aplicacion sin saber muy bien por qué.

El caso es que como teniamos prisa y no sabía como solucionar el problema con el global.asa, se me ocurrio esta idea.

Existen tres versiones distintas:

- La que aparece arriba solamente cuenta el numero de usuarios activos sin más.

- En otra se requiere introducir un nickname para conectarse. Luego (en un frame aparte) aparece la lista de usuarios conectados.Con un click puedes mandar un mensaje de texto instantaneo ( ;) bueno casí, tarda entre 1 y 10 segundos en llegar)a cualquiera de los usuarios conectados.

- Por último existe una tercera versión igual que la seguna pero que exige un login completo (nick y password) y lo contrasta con una base de datos.

Como son un poco más extensos no voy a publicar los códigos en el foro, pero en breve pondré una URL para que los podais descargar.

:( A ver si me consigo un alojamiento gratuito por ahí.
Me vendrían bien sugerencias.

Entretanto, si alguien quiere los códigos los puedo enviar por mail.

Un saludo a todos.

urjose · #7 (**permalink**) 16/03/2002, 15:44

bueno yo quiero todas las versiones, gracias de antemano... y en cuanto al alojamiento

www.brinkster.com
www.websambar.com
www.domaindlx.com

y mi mail [email protected]

saludos y gracias, si es que me los envias

policlub · #8 (**permalink**) 02/05/2002, 13:13

Otro server gratuito y donde yo tengo mi web es www.iespana.es, la verdad es que no funciona nada mal, espero te sirva macedo.
Un saludo

zangano · #9 (**permalink**) 02/05/2002, 16:50

Osease, alguien ya lo probo en un servidor gratuito¡¡¡¡¡¡

Ya lo probe en los que pone urjose y como otros 4 hosting mas que también son algo populares¡¡¡¡¡, pero en ninguno sirve¡¡¡¡¡, según yo, es porque en los servidores gratuitos no dejan usar sesiones, de hecho en brinkster lo ponen en su faq al igual que en 7host, es eso o yo estoy muy wey que no puedo usar un mendigo script¡¡¡¡¡¡¡

Se agradecería si alguien me dice si ya lo ha probado en server gratis y que tal le va.

salu2 ;)

rashid · #10 (**permalink**) 02/05/2002, 17:09

Gracias amigo(s), ya esta agregado al Scrpt Master.
Pura Vida!
;)

epa2 · #11 (**permalink**) 07/06/2002, 05:16

Hola, soy un novato.

Me gustaria sabe sobre este script cuantas páginas tengo que crear pues yo quisiera ponerlo solo en una página para que diga el numero de usuarios y tambien saber si necesito los tres ficheros o solo los dos ultimos (el de checkaccess.asp y el de usuarios.asp)

saludos
Bye

President · #12 (**permalink**) 07/06/2002, 07:44

Hola a todos !
Macedo estoy interesado en estos códigos porque tengo un contador de usuarios activos con el global.asa pero como tu comentaste no siempre me funciona correctamente i no sé porque !
Así que si quieres enviarme estos códigos mi email es:
[email protected]

Gracias por tu aportación !

freskonika · #13 (**permalink**) 07/06/2002, 19:18

Hola zangano, yo uso sesiones en mis paginas ASP alojadas en 7host y funcionan bien, por ejemplo el contador de visitas que utilizo es con session, el carrito de compras es con session tambien. :cantar:

http://user.7host.com/baseando/

Un saludo desde Nicaragua.

annacopi · #14 (**permalink**) 08/06/2002, 07:42

Hola macedo

Tengo un contador de usuarios activos pero tampoco me esta funcionando bien y ya me tiene

, te agradezco si puedes hacerme el favor de enviarme el código

mi direccion de correo electronico es
[email protected]
Saludos ;)

Mecenias · #15 (**permalink**) 11/06/2002, 04:41

Me podriais enviar todas las versiones mi correo es: [email protected]

o decirme de donde me puedo bajar el script master.

Gracias

ElAprendiz · #16 (**permalink**) 11/06/2002, 04:48

lo bajas de aqui <a href='ir.asp?http://www.webtutorial.com.ar/buscar/descargar.php?programa=scriptmaster&servidor=1 ' target='_blank'>http://www.webtutorial.com.ar/buscar/des...</a>
saludos

Mecenias · #17 (**permalink**) 11/06/2002, 05:07

Perdonar que vuelva a molestar, ya me lo he bajado pero no lo encuentro por ningun lado,alguien podria indicarme donde esta el ejemplo de codigos, o si tengo que bajarme una de las actualizacion que he visto (aunque eran sobretodo de php) :(

ElAprendiz · #18 (**permalink**) 11/06/2002, 05:33

pues desde la url que te di puedes bajar el scripmaster, ahora no se si esta ahi lo que buscas...

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/elaprendiz.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-business--"></center>

Mecenias · #19 (**permalink**) 18/06/2002, 02:53

Nadie los tienes?

macedo · #20 (**permalink**) 02/07/2002, 10:15

Antes que nada quiero pedir disculpas por haberos desatendido tanto tiempo, pero hace como un par de meses que no me conectaba. :(

Si quereís bajaros las tres versiones del contador de usuarios del que habla este hilo, podeis hacerlo aquí:

<a href='ir.asp?http://www.developmentsystems.es/contador-asp/versiones.zip' target='_blank'>http://www.developmentsystems.es/contado...</a>

Espero que no tengaís problemas con el enlace.

Un saludo ;)

gamartinez · #21 (**permalink**) 26/11/2002, 19:01

verdana hola Macedo serias tan amable de enviarme a mi mail [email protected][email protected] los códigos de los que has dicho, si sobre los contadores de usuarios. Los Necesito por fa.
es para mi sitio de JavaScripts, si le quieren hechar una ojeada puede ir a esta parte, http://www28.brinkster.com/guidomart...po/scripts.asp , todavia no esta terminada pero falata poco.
Saludos

ChicoArgentino · #22 (**permalink**) 24/01/2003, 18:55

Hola gente

tengo un problema con la version3, me sale este error

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Administrador de controladores ODBC] El nombre del origen de datos no se encontró y no se especificó ningún controlador predeterminado

/version3/logon.asp, line 11

(en la linea 11 hay esto: Conexion.Open "Usuarios" )

y cuando quiero abrir el archivo usuarios.mdb me sale "no se reconoce el formato de base de datos"

estan muy buenas la versiones 1 y 2 me gustaria poder probar esta

nos leemos