NO FUNCIONA GLOBAL.ASA
Publicado por Ayoze (2 intervenciones) el 10/04/2008 18:40:30
Tengo una web que funciona correctamente. Ahora he querido añadir un control de los accesos mediante global.asa. He leido en varias como crear y almacenar datos de en este fichero. En todos lados parece sencillo y me he animado a hacerlo .. pero mi gozo en un pozo.
Tengo mi directorio raiz en el servidor y una subcarpeta donde esta almacenada la web de prueba. Por ejemplo el raiz es HTML y el subdirectorio de prueba html/prueba de manera que para acceder a la web se teclea www.midominio,com/prueba y funciona OK
He alojado el global.asa en ese subdirectorio (prueba)
El fichero global.asa bajado de internet es el siguiente
<script Language="VBScript" RUNAT=Server>
Sub Application_OnEnd()
End Sub
Sub Application_OnStart()
Application("NumSesion") = 0
Application("NumVisitas") = 0
End Sub
Sub Session_OnEnd()
Application("NumSesion") = Application("NumSesion") - 1
RESPONSE.WRITE("NUMSESION")
End Sub
Sub Session_OnStart()
Application("NumSesion") = Application("NumSesion") + 1
Application("NumVisitas") = Application("NumVisitas") + 1
End Sub
</script>
Luego al entrar en la página inical de la web he añadido la linea siguiente
<%="USUARIOS:" & Application("NumSesion") %>
para que imprima el numero de usuarios activos. PERO NO HACE NADA
la variable Application("NumSesion") siempre esta vacia.
El problema no se si es de programacion (aunque el código es minimo) o de ubicación del GLOBAL.ASA
A ver si alguien me puede echar una mano
Gracias de antemano
Tengo mi directorio raiz en el servidor y una subcarpeta donde esta almacenada la web de prueba. Por ejemplo el raiz es HTML y el subdirectorio de prueba html/prueba de manera que para acceder a la web se teclea www.midominio,com/prueba y funciona OK
He alojado el global.asa en ese subdirectorio (prueba)
El fichero global.asa bajado de internet es el siguiente
<script Language="VBScript" RUNAT=Server>
Sub Application_OnEnd()
End Sub
Sub Application_OnStart()
Application("NumSesion") = 0
Application("NumVisitas") = 0
End Sub
Sub Session_OnEnd()
Application("NumSesion") = Application("NumSesion") - 1
RESPONSE.WRITE("NUMSESION")
End Sub
Sub Session_OnStart()
Application("NumSesion") = Application("NumSesion") + 1
Application("NumVisitas") = Application("NumVisitas") + 1
End Sub
</script>
Luego al entrar en la página inical de la web he añadido la linea siguiente
<%="USUARIOS:" & Application("NumSesion") %>
para que imprima el numero de usuarios activos. PERO NO HACE NADA
la variable Application("NumSesion") siempre esta vacia.
El problema no se si es de programacion (aunque el código es minimo) o de ubicación del GLOBAL.ASA
A ver si alguien me puede echar una mano
Gracias de antemano
Valora esta pregunta


0