Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Global.ASA

06/02/2004 - 13:17 por Trauckos | Informe spam
Ayuda Hacer una pregunta
Hola
He tenido problemas con este archivo, quiero que cuando el usuario se
conecte a la pagina la aplicacion reconozca la ip y si no esta dentro de un
rango lo envie a otra parte estoy utilizando el sgte. Codigo

<script language=vbscript runat=server>
SUB Application_OnStart
Application("Ip") = Request.ServerVariables("Remote_HOST")
END SUB

SUB Application_OnEnd
END SUB

SUB Session_OnStart

Application.Lock
Application("Ip") = Request.ServerVariables("Remote_HOST")
Application.Unlock

If Application("Ip") = "xxx.xxx.xxx.xxx" then
Response.Redirect ("default1.asp")
end if
END SUB

SUB Session_OnEnd
END SUB
</script>



Gracias
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Matias Iacono
06/02/2004 - 14:20 | Informe spam
Creo que el problema radica en el response.redirect...

Esta bien que el Session_OnStart se ejecuta cuando el usuario entra a la
pagina y genera un ID de session... pero el problema radica en que este
codigo se esta ejecutando dentro del global.asa por lo que seria un poco
dificil que redirecciones desde ese punto.

Te recomiendo que uses el mismo codigo, pero que lo pongas en una pagina X,
y de ahi lo incluyas en la o las paginas que necesites verificar este punto.

Saludos

"Trauckos" escribió en el mensaje
news:
Hola
He tenido problemas con este archivo, quiero que cuando el usuario se
conecte a la pagina la aplicacion reconozca la ip y si no esta dentro de


un
rango lo envie a otra parte estoy utilizando el sgte. Codigo

<script language=vbscript runat=server>
SUB Application_OnStart
Application("Ip") = Request.ServerVariables("Remote_HOST")
END SUB

SUB Application_OnEnd
END SUB

SUB Session_OnStart

Application.Lock
Application("Ip") = Request.ServerVariables("Remote_HOST")
Application.Unlock

If Application("Ip") = "xxx.xxx.xxx.xxx" then
Response.Redirect ("default1.asp")
end if
END SUB

SUB Session_OnEnd
END SUB
</script>



Gracias


Preguntas similares

 

Busqueda sugerida :