Contador de usuarios a lo largo del dia

[Laika]

Hola migos,

En mi web tengo un contador de usuarios activos, cómo puedo hacer, al igual que en esta página, que te diga el numero de usuarios que han entrado a lo largo del día?

Gracias

Laika

[Laika]

¿Nadie sabe cómo hacerlo?
Haber si me pueden decir hoy como se hace,
Gracias amigos.

Laika

[tronxito]

copia este codigo dentro del global.asa,

Sub Application_OnStart
application("visitas")=0
application("fecha")=date()
End Sub

Sub Session_OnStart
application.lock
application("visitas")=application(&quot ;visitas")+1
application.unlock
End Sub

y en tu pagina donde quieras mostrar los usuarios que han visitado pon <%=application("visitas")%>
Espero que te sirva

[Aston]

Muy bueno, Tronxito, pero hace falta decirle en Session_OnStart para un nuevo día que si la fecha actual es distinta que la que tenemos almacenada en nuestra variable de aplicación entonces cambie esa fecha a la nueva y ponga el contador de visitas de nuevo a 0.

También falta bloquear en Sub Application_OnStart:

Sub Application_OnStart
application.lock
application("visitas")=0
application("fecha")=date()
application.UnLock
End Sub

Sub Session_OnStart
application.lock
If application("fecha") = Date() Then
application("visitas")=application(&quot ;visitas")+1
Else
application("fecha") = Date()
application("visitas") = 0
application.unlock
End Sub

Laika, pruébalo y nos cuentas, debe funcionarte bien. Un abrazo.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Perdón, en realidad cuando es un nuevo día y ponemos nuestra variable de aplicación a 0, en realidad deberíamos ponerlo a 1, puesto que ésta sería nuestra primera visita del día. De todos modos no es que tenga mucha importancia.

Saludos.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Laika]

Hola amigos, tengo problemas con el código. En el archivo global.asa que tenía, estaba el código para contar usuarios activos y le he añadido este código y no me funciona. El archivo global.asa me ha quedad así:

&lt;SCRIPT LANGUAGE=&quot;VBScript&quot; RUNAT=&quot;Server&quot;&gt;

Sub Application_OnStart
application.lock
application(&quot;visitas&quot;)=0
application(&quot;fecha&quot;)=date()
application.UnLock
Application(&quot;ActiveUsers&quot;) = 0
Dim Auxiliar()
Redim Auxiliar(9)
Application(&quot;Opiniones&quot;)=Auxiliar
End Sub

Sub Session_OnStart
Session.Timeout = 20
Session(&quot;Start&quot;) = Now
Application.Lock
Application(&quot;ActiveUsers&quot;) = Application(&quot;ActiveUsers&quot;) + 1

If application(&quot;fecha&quot;) = Date() Then
application(&quot;visitas&quot;)=application(&quot ;visitas&quot;)+1
Else
application(&quot;fecha&quot;) = Date()
application(&quot;visitas&quot;) = 0
Application.UnLock

End Sub

Sub Session_OnEnd
Application.Lock
Application(&quot;ActiveUsers&quot;) = Application(&quot;ActiveUsers&quot;) - 1
Application.UnLock
End Sub

&lt;/SCRIPT&gt;

Gracias, haber si le veis el fallo.

Laika

[Aston]

Hola, Desbloqueabas la aplicación y luego asignabas valores a variables de aplicación sin bloquear, aunque esto no es motivo de errores y sólo da problemas en la concurrencia de usuarios.

&lt;SCRIPT LANGUAGE=&quot;VBScript&quot; RUNAT=&quot;Server&quot;&gt;

Sub Application_OnStart
application.lock
application(&quot;visitas&quot;)=0
application(&quot;fecha&quot;)=date()
Application(&quot;ActiveUsers&quot;) = 0
Dim Auxiliar()
Redim Auxiliar(9)
Application(&quot;Opiniones&quot;)=Auxiliar
application.UnLock
End Sub

Sub Session_OnStart
Session.Timeout = 20
Session(&quot;Start&quot;) = Now
Application.Lock
Application(&quot;ActiveUsers&quot;) = Application(&quot;ActiveUsers&quot;) + 1

If application(&quot;fecha&quot;) = Date() Then
application(&quot;visitas&quot;)=application(&quot ;visitas&quot;)+1
Else
application(&quot;fecha&quot;) = Date()
application(&quot;visitas&quot;) = 0
Application.UnLock

End Sub

Sub Session_OnEnd
Application.Lock
Application(&quot;ActiveUsers&quot;) = Application(&quot;ActiveUsers&quot;) - 1
Application.UnLock
End Sub

&lt;/SCRIPT&gt;

No he visto otra cosa así que escríbenos el error que te da y subráyanos en negrita la línea del código que te da error.

Esperamos. Un saludo, Laika.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Laika]

Hola Aston,

No es que me de un error lo que pasa es que no ´me sale ningún numero, ni de usuarios activos ni de usuarios a lo largo del día.

El archivo global.asa lo he subido al directorio raiz de mi servidor. Es brinkster, nose, sabes si lo debo poner en algún directorio especial?

Antes de funcionaba lo de usuarios activos pero iba a veces, no siempre que entraba a la página. Ahora no va ninguno de los 2.

Gracias por tu ayuda Aston, haber si lo solucionamos,

Un saludo,

Laika ;)

[Laika]

Hola de nuevo Aston, como te comentaba en el mensaje anterior, me funcionaa ratos de los usuarios activos y por ejemplo ahora va bien pero el que sigue sin funcionar es el de usuarios a lo largo del día.

Un saludo,

Laika

[Aston]

Hola Laika, no he hecho más que mirarlo y re-mirarlo un montón de veces y no sé qué puede fallar. A ver si algún otro maestro puede decirnos algo. Incluso lo he comparado con mi código. No sé...


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Laika]

Hola Aston,

Yo ya no se que pensar, acabo de entrar a mi página y ahora si me funcionan los dos.

Eso de que funcione a veces no lo entiendo. ¿Será problema de mi servidor Brinkster?

Muchas gracias y un saludo

Laika

[FACE2000]

por que no habeis probado a hacerlo en un base de datos yo lo tengo asi en )<a href='ir.asp?http://www.zonavirus.com' target='_blank'>http://www.zonavirus.com...</a> abajo del todo lo pone lo tengo dividido en otra base de datos aparte(bueno ya saleis para reutilizar codigo y esas cosas

[Laika]

Hola de nuevo amigos,

Me estoy volviendo loco, me dejó de funcionar, tan sólo me funciona el de usuarios activos.

¿Que pasa?¿Por qué no va? No es ni medio normal no?

Gracias
Laika :(

[Laika]

Holaa,

No funciona asi que creoque voy a cambiar la página de servidor. ¿Cuál es el mejor servidor gratuito que soporte ASP para ustedes?

Gracias

Laika

[dajacevit]

Esta raro, que no te haya funcionado de esa manera, yo tengo un codigo algo parecido al que te ofreció ASTON, y la verdad que tampoco entiendo porque no te funciona.

Si lo que quieres es cambiar de servidor
te recomendaría <a href='ir.asp?http://www.efrance.fr' target='_blank'>http://www.efrance.fr...</a>

Es una buena opcion a brinkster.

Saludos

[Parsons]

Usar application es un poco arriesgado, ya que te reinician el servidor, y todo al garete y viceversa, quieres reinicializar el contador y debes parar el servidor Web.

Lo mejor es un procedimiento que ataque a una BD con un contador.

[Jaaic]

He estado probando y lo único que me dá resultado siendo tan simple es lo siguiente:

Sub Application_OnStart
Application(&quot;visitantsActius&quot;)=0
End Sub

Sub Session_OnStart
Application(&quot;visitantsActius&quot;)=Applicati on(&quot;visitantsActius&quot;)+1
End Sub

Sub Session_OnEnd
Application(&quot;visitantsActius&quot;)=Applicati on(&quot;visitantsActius&quot;)-1
End Sub

Sub Application_OnStart
application(&quot;visitas&quot;)=0
application(&quot;fecha&quot;)=date()
End Sub

Sub Session_OnStart
application.lock
application(&quot;visitas&quot;)=application(&quot ;visitas&quot;)+1
application.unlock
End Sub

Aprobar.

[fenix4]

Saludos

No se esto viene a la caso, pero copie el codigo de Aston, y coloque en una pagina, y cada vez que actualizo se incrementa, no deberia incrementarse solo cuando es una session nueva!!!

P.S.L.P.S

[Aston]

Hola:

Para que las visitas sean reales, osea sólo se actualice en cada nueva sesión, no hay más que preguntar si alguna variable de sesión creada tiene o no valor, y en caso de que ya tenga algún valor, entonces no sume un nuevo visitante ni usuario activo ¿Sencillo, no? A las páginas vistas no le aplicaríamos esto.

Saludos.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[zangano]

Si tienes el servicio gratuito de binkster no te deja usar el global.asa¡¡¡¡¡¡¡¡¡


...bueno eso dice en su info


saludos xDDDD

[JuanKy]

Hola a todos los maestros.

Quisiera comentarles que a mi me sucede algo bastante parecido a lo del colega Liaka. Tengo en mi página un contador de usuarios activos, un contador de visitas y un chat en asp. Cuando dejo solo uno de ellos funcionando todo trabaja perfecto, pero cuando activo dos o mas de estos scripts en el global.asa deja de funcionar alguno de ellos, principalmente el chat en asp.

Salu2,

JuanKy

[Laika]

He mirado alguno sotros servidores que soporten ASP pero nose, puede que me pase lo mismo que en Brinkster.

¿Conocen alguno que soporte archivos global.asa, etc.. que sea gratuito?

Un saludo

Laika

PD: ¿Qué opinan del mensaje que les mencioné sobre la oportunidad de que un webmaster gane dinero por su cuenta fácilmente formando parte de una Agencia de BbyNET? Yo estoy muy animado, quería saber que pensaban ustedes.

<a href='ir.asp?http://null' target='_blank'>null...</a><a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=48129' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

Saludos
Laika

[duorbe]

Hola laika y todo el mundo.
Por lo poco que se y lo que observo, el problema de laika esk no salen los números, bien yo lo tengo y funciona correctamente, entonces el problema puede ser el siguiente

1º-¿Estas seguro/a de que tu archivo global.asa lo tienes en la carpeta principal de tu servidor virtual??
2º- Lo tengo pueso sin comillas en el LANGUAGE, lo tengo así:
&lt;SCRIPT LANGUAGE=VBScript RUNAT=server&gt;

Espero que sirva de ayuda.GRACIAS
ESpero que todos leean y respondan mis posts.gracias