Usuarios, visitas, páginas...

[Artepop]

Usuarios activos
Visitas de hoy
Páginas vistas hoy

Me podrian ayudar como se hace

¿El global.asa se pone en el en el root? en mi caso la carpeta 'www'

Y en las carpetas donde tengo otras páginas que llaman a la función ¿tengo que poner otro global.asa dentro de la misma?

Lo hice con esto, pero no me sale:

Global.asa

<script language="VBScript" runat="Server">

Sub Application_OnStart()
Application.Lock
Application("ActiveUsers") = 0
Application("UsersHoy") = 0
Application("Hoy") = Date()
Application.UnLock
End Sub

Sub Application_OnEnd()
End Sub

Sub Session_OnStart()
Session("Start") = Now
Application.Lock
If Application("Hoy") = Date() Then
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application("UsersHoy") = Application("UsersHoy") + 1
Else
Application("UsersHoy") = 1
Application("PaginHoy") = 1
Application("Hoy") = Date()
End If
Application.UnLock
End Sub

Sub Session_OnEnd()
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</script>


Llamar

<%=Application("ActiveUsers")%> usuarios activos
<%=Application("UsersHoy")%> visitantes hoy
<%=Application("PaginHoy")%> páginas hoy

Agradeceria si ven algún error, gracias

[maestro]

http://www.faqsdelweb.com/index.php?...id=48&q_id=152
http://aspfacil.com/articulos/210301_3.asp

[Artepop]

OK, Gracias

[Artepop]

No se lo que ocurre, pero cuando entro a la web suma 1 en todas las aplicaciones, cuando cierro el navegador y entro de nuevo suma otra vez a todo y asi sucesivamente....?

Puede ver en la página principal en el menú de la derecha arriba

[maestro]

Tiene truco.
La sesion del IIS tiene por defecto un tiempo de vida de 20 minutos, en cuanto pase ese tiempo si el cliente ha abandonado la sesion descuenta 1

[RETMANOBJ]

Visita www.objetivoweb.com ahi vas a encontrar un exelente tutorial del global.asa, con ese tutorial vas a aprender a hacer todo lo que se te ocurra con los visitantes...

Walter Gammarota Webmaster www.objetivoweb.com

[Artepop]

Saludos, funciona bien pero esta tarde al verlo estaba reseteado, se había puesto a cero de nuevo...Tiene que ver con el servidor supongo, no?

Cambié:
Response.Write "Usuarios totales= "&Application("TotalUsers")
Response.Write "Usuarios del dìa= "&Application("DayUsers")
Response.Write "Usuarios Activos= "&Application("ActiveUsers")
Por:
En total <%=Application("TotalUsers")%>
Visitas hoy <%=Application("DayUsers")%>
Conectados <%=Application("ActiveUsers")%>

[urjose]

Las variables de aplicación sobreviven siempre y cuando el servidor no sea reiniciado. Si no deseas eso tendrás que guardar los datos en una BD

[Artepop]

<%
Set MyPageCounter = Server.CreateObject("MSWC.PageCounter")
MyPageCounter.PageHit
%>
Esta página <%=MyPageCounter.Hits%> visitas

Ocurro lo mismo con esto?