
18/01/2006, 07:11
|
| | Fecha de Ingreso: enero-2006 Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 3 meses Puntos: 7 | |
En el archivo global.asa puedes usar cuatro procedimientos. Te pongo un ejemplo de como va:
<script Language="VBScript" RUNAT=Server>
Sub Application_OnEnd()
Application.Contents.RemoveAll()
End Sub
Sub Application_OnStart()
Application("NumSesion") = 0
Application("NumVisitas") = 0
End Sub
Sub Session_OnEnd()
Application("NumSesion") = Application("NumSesion") - 1
End Sub
Sub Session_OnStart()
Session.Timeout = 60
Application("NumSesion") = Application("NumSesion") + 1
Application("NumVisitas") = Application("NumVisitas") + 1
End Sub
</script> |