Global.ASA

06/02/2004 - 13:17 por Trauckos | Informe spam
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 similare

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


Respuesta Responder a este mensaje
#2 Matias Iacono
06/02/2004 - 19:47 | Informe spam
Realmente raro... nunca me ha funcionado el Response.Redirect en el
Global.asa


Saludos

"Benjamin Porter" escribió en el mensaje
news:%
Matías: ya respondí mas arriba el correo de nuestro amigo, solo quería


hacer
una precision: no hay problema en usar response.redirect en el global.asa;
lo que no se puede es hacer response.write, ni binarywrite, ni addheaders,
etc. De hecho, una práctica común es, cuando se quiere obligar a que todos
los usuarios entren al sitio por la página inicial, en lugar de establecer
variables de sesion en toooodo el resto y autentificar, etc., simplemente


se
añade este codigo al global.asa:

Sub Session_OnStart
response.redirect("/home.htm")
End Sub


Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")


"Matias Iacono" escribió en el mensaje
news:
> 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
> >
> >
>
>


Respuesta Responder a este mensaje
#3 Bosio
06/02/2004 - 20:11 | Informe spam
Buenas,

On Fri, 6 Feb 2004 15:45:29 -0400, "Benjamin Porter"
wrote:
Matías: ya respondí mas arriba el correo de nuestro amigo, solo quería hacer
una precision: no hay problema en usar response.redirect en el global.asa;
lo que no se puede es hacer response.write, ni binarywrite, ni addheaders,



Esto... uhm... un response.write si se puede hacer en el global.asa.
Lo he hecho en alguna prueba y si que lo admite (en el session
onstart) La utilidad ya :)
Respuesta Responder a este mensaje
#4 Benjamin Porter
06/02/2004 - 20:41 | Informe spam
Tienes mal el concepto de aplicacion.
Verás, tu código está recogiendo solamente la dirección del PRIMER usuario
que entra a tu sitio, por cuanto es quien inicia la aplicacion. El evento
Application_OnStart se produce cuando se inicia la aplicación. Lo que tu
necesitas es trabajar a nivel de sesion y NO de aplicación. Por cierto, las
variables de aplicación son compartidas para todos los usuarios, a
diferencia de las de sesión que son para cada usuario en particular.

Entonces tu codigo debiera ser así de simple:

<script language=vbscript runat=server>
SUB Application_OnStart
' Aqui nada
END SUB

SUB Application_OnEnd
' Aqui nada
END SUB

SUB Session_OnStart

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

SUB Session_OnEnd
' Aqui nada
END SUB
</script>


Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")






"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


Respuesta Responder a este mensaje
#5 Benjamin Porter
06/02/2004 - 20:45 | Informe spam
Matías: ya respondí mas arriba el correo de nuestro amigo, solo quería hacer
una precision: no hay problema en usar response.redirect en el global.asa;
lo que no se puede es hacer response.write, ni binarywrite, ni addheaders,
etc. De hecho, una práctica común es, cuando se quiere obligar a que todos
los usuarios entren al sitio por la página inicial, en lugar de establecer
variables de sesion en toooodo el resto y autentificar, etc., simplemente se
añade este codigo al global.asa:

Sub Session_OnStart
response.redirect("/home.htm")
End Sub


Atentamente
_____________________
Benjamin Porter

(Evidentemente sin el ".punto")


"Matias Iacono" escribió en el mensaje
news:
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
>
>


Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida