Abrir conexion Http desde pagina asp
Hola a todos.
Quiero descargarme en una variable de mi pagina asp una página de una dirección web, procesar esa información en servidor y servir una pagina en funcion de los datos recogidos de esa dirección web y no se como hacerlo.
Imagino que tendré que crear un objeto que abra una conexión http, indicarle la URL de la pagina a la que quiero acceder y volcar el contenido de esa conexión en una variable (por ejemplo en un string)
¿Hay alguna forma de hacerlo?
Muchas gracias a todos
Quiero descargarme en una variable de mi pagina asp una página de una dirección web, procesar esa información en servidor y servir una pagina en funcion de los datos recogidos de esa dirección web y no se como hacerlo.
Imagino que tendré que crear un objeto que abra una conexión http, indicarle la URL de la pagina a la que quiero acceder y volcar el contenido de esa conexión en una variable (por ejemplo en un string)
¿Hay alguna forma de hacerlo?
Muchas gracias a todos
Es muy simple, siempre y cuando tengas los componentes necesarios para realizar esa operación instalados en tu servidor.
Personalmente utilizo el XMLHTTP 3.0 de Microsoft que tengo instalado en mi servidor, si es un Windows 2000 seguramente también lo tengas instalado y podés usar un código como este:
<% Dim objHTTP, enlace
enlace = Request("enlace")
if enlace <> "" then
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
Dim HTTPResponseBody
objHTTP.Open "GET", enlace, False
objHTTP.Send
HTTPResponseBody = objHTTP.ResponseText
Set objHTTP = Nothing
resultado = HTTPResponseBody
end if %>
<form action="pruebahttp.asp">
<input type="text" name="enlace" size="30"><input type="submit" value="enviar">
</form>
<%= resultado %>
Con eso deberías de poder hacer todo lo que quieras. Probalo y después me contás.
Saludos
Personalmente utilizo el XMLHTTP 3.0 de Microsoft que tengo instalado en mi servidor, si es un Windows 2000 seguramente también lo tengas instalado y podés usar un código como este:
<% Dim objHTTP, enlace
enlace = Request("enlace")
if enlace <> "" then
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
Dim HTTPResponseBody
objHTTP.Open "GET", enlace, False
objHTTP.Send
HTTPResponseBody = objHTTP.ResponseText
Set objHTTP = Nothing
resultado = HTTPResponseBody
end if %>
<form action="pruebahttp.asp">
<input type="text" name="enlace" size="30"><input type="submit" value="enviar">
</form>
<%= resultado %>
Con eso deberías de poder hacer todo lo que quieras. Probalo y después me contás.
Saludos