Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

response.redirect

16/02/2004 - 15:52 por Luis Dutari | Informe spam
Ayuda Hacer una pregunta
amigos
tengo problemas con el redirect. les cuento
tengo en el server un archivo "dirip.txt" el cual tiene grabado una
direccion ip
quiero que al ingresar a una pagina "entrar.asp", lea ese archivo, obtenga
una dirección y me redireccione a esa IP que esta grabada en el archivo
puedo leer bien los datos del archivo, y si le hago un "Response.Write
("http://"&n_ip)" muestra bien los datos. y si eso que muestra, lo pongo
como valor en la dirección url del navegador, entra al servidor
correctamente.

tambien me redirecciona si en lugar de armar la cadena a la cual
redireccionar, la pongo escrita como una constante
response.write(http://200.147.147.1)

el tema es cuando armo el url e intento redireccionarlo. lo hago de la
siguiente forma.

'Instanciación del objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abrir el archivo de texto
Dim objTextStream auxArchivo = Server.MapPath("/") & "\dirip.txt"
Set objTextStream = objFSO.OpenTextFile(auxArchivo, 1 )
'Visualiza en el navegador el contendido del archivo de texto
n_ip = objTextStream.ReadAll
' Response.Write ("http://"&n_ip)
response.redirect("http://"&n_ip)
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

agradezco cualquier ayuda.

Luis Dutari
Córdoba, Argentina



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.588 / Virus Database: 372 - Release Date: 13/02/2004
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Juan C. Barreiro
16/02/2004 - 16:10 | Informe spam
Hola Luis, primero que nada la fornma correcta del script seria la
siguiente:

'Instanciación del objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abrir el archivo de texto
Dim objTextStream
auxArchivo = Server.MapPath("./") & "\dirip.txt"
Set objTextStream = objFSO.OpenTextFile(auxArchivo, 1 )
'Visualiza en el navegador el contendido del archivo de texto
n_ip = objTextStream.ReadAll
Response.Write ("http://"&n_ip)
''response.redirect("http://"&n_ip)
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

En segundo lugar si solo tienes una linea en ese archivo de texto que solo
contenga un numero IP, no tendria que ocurrir ningun error, de lo contrario
piensa que le estas diciendo al script que te lea todo el contenido del
archivo, y si existe mas de una linea o algun otro valor que no sea el de la
IP a la que quieres direccionar te va a provocar por lógica un error, espero
haber sido claro con la explicación, un saludo.

Juan C. Barreiro
www.barnamarketing.com


"Luis Dutari" escribió en el mensaje
news:%
amigos
tengo problemas con el redirect. les cuento
tengo en el server un archivo "dirip.txt" el cual tiene grabado una
direccion ip
quiero que al ingresar a una pagina "entrar.asp", lea ese archivo, obtenga
una dirección y me redireccione a esa IP que esta grabada en el archivo
puedo leer bien los datos del archivo, y si le hago un "Response.Write
("http://"&n_ip)" muestra bien los datos. y si eso que muestra, lo pongo
como valor en la dirección url del navegador, entra al servidor
correctamente.

tambien me redirecciona si en lugar de armar la cadena a la cual
redireccionar, la pongo escrita como una constante
response.write(http://200.147.147.1)

el tema es cuando armo el url e intento redireccionarlo. lo hago de la
siguiente forma.

'Instanciación del objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abrir el archivo de texto
Dim objTextStream auxArchivo = Server.MapPath("/") & "\dirip.txt"
Set objTextStream = objFSO.OpenTextFile(auxArchivo, 1 )
'Visualiza en el navegador el contendido del archivo de texto
n_ip = objTextStream.ReadAll
' Response.Write ("http://"&n_ip)
response.redirect("http://"&n_ip)
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

agradezco cualquier ayuda.

Luis Dutari
Córdoba, Argentina



Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.588 / Virus Database: 372 - Release Date: 13/02/2004


Preguntas similares

 

Busqueda sugerida :