Usuarios activos en web con ASP

<script language=vbscript runat=server>
Sub Application_OnStart

Application("Activos") = 0

End Sub
Sub Application_OnEnd

End Sub
Sub Session_OnStart

Application.Lock

Application("Activos") = Application("Activos") + 1

Application.Unlock

End Sub
Sub Session_OnEnd

Application.Lock

Application("Activos") = Application("Activos") - 1

Application.Unlock

End Sub

</script>

Para que la gente los pueda ver pon este codigo donde quieras de la web

<P>En este momento hay <%=Application("Activos")%> usuario/s en nuestro sitio</P>

Usuarios que han visto este tema también han visto...

- Cómo crear un XML desde ASP
- Uso de OPTION EXPLICIT con ASP
- Agrupa el código ASP
- Paginar Datos en ASP
- MapPath en ASP

- Versión imprimible de este documento

- Enviar por e-mail este documento