Obtener código fuente de una ubicación remota con HTTP

[Julcar]

Buenas, estoy necesitando ahora obtener el HTML de un sitio específico, es decir, navegar por el DOM hasta un punto exacto, tomar el codigo fuente hasta otro punto especifico, guardarlo en una variable y mostrarlo en una pagina asp en mi servidor.

He leido al respecto y tengo dos objetos que parecen tener lo que busco el Microsoft.XMLHTTP y el Msxml2.ServerXMLHTTP, la verdad no sé la diferencia entre ambos.

¿Alguien conoce manuales al respecto?

[mc_quake]

busca el componente asptear
es muy bueno lo uso para rescatar los indicadores económicos

http://www.alphasierrapapa.com/IisDe...nents/AspTear/

[Julcar]

Iniciado por mc_quake

busca el componente asptear
es muy bueno lo uso para rescatar los indicadores económicos

http://www.alphasierrapapa.com/IisDe...nents/AspTear/

veo que tienen una version free, lo voy a ver, aunque me gustaria tener una solucion nativa de asp

[Myakire]

Pero has hecho pruebas con alguno de los objetos que mencionaste al inicio?

aquí hay un ejemplo práctico

[Julcar]

Iniciado por Myakire

Pero has hecho pruebas con alguno de los objetos que mencionaste al inicio?

aquí hay un ejemplo práctico

no habia hecho pruebas antes, porque justamente no tenia ese tipo de ejemplos, gracias por el link.

[SUMMITE]

<%
' como ejemplo esta misma pagina web

uRLRemota = "http://www.forosdelweb.com/f15/obtener-codigo-fuente-ubicacion-remota-con-http-899182/"
Set objXml = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXml.Open "GET", uRLRemota, False
objXml.Send()
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
Cadena=decodifica(objXml.responseBody)
Set objXml = Nothing

body=Cadena
Dim CADENA1,i, CADENA2
i=0

' busco una cadena unica antes de lo que me interesa
' se puede añadir si es necesario
' la cadena mejor que no contenga caracteres comillas interrogantes etc
' en este caso utilizo el id del mensaje en codigo fuente "post_message_3797050"

CADENA1=split(body,"post_message_3797050")

primerapart=(CADENA1(1)&"")


'Response.Write(CADENA1(2)&"")
'Response.Write(CADENA1(0)&"")


body=primerapart

i=0

' busco una cadena unica despues de lo que me interesa
' se puede añadir si es necesario
' la cadena mejor que no contenga caracteres comillas interrogantes etc
' en este caso utilizo el id del mensaje en codigo fuente "conoce manuales al respecto"


CADENA2=split(body,"conoce manuales al respecto")
resultatweb=(CADENA2(0)&"")

'Response.Write(CADENA2(1)&"")
'Response.Write(CADENA2(2)&"")


'podria cambiar anchos altos nombres colores etc etc, o suprimirlos
function modela(str)
str = trim(str)
str = replace(str,"width=""60%""","")
str = replace(str,"width=""15%""","")
str = replace(str,"width=""5%""","")
modela = str
end function

response.write modela(resultatweb)
%>

Resultado:

"> Buenas, estoy necesitando ahora obtener el HTML de un sitio especcfico, es decir, navegar por el DOM hasta un punto exacto, tomar el codigo fuente hasta otro punto especifico, guardarlo en una variable y mostrarlo en una pagina asp en mi servidor.

He leido al respecto y tengo dos objetos que parecen tener lo que busco el Microsoft.XMLHTTP y el Msxml2.ServerXMLHTTP, la verdad no ss la diferencia entre ambos.

Alguien

[Julcar]

Gracias por el codigo, ya encontré la referencia que buscaba, aqui

http://devguru.com/technologies/xml_dom/15999.asp

me pondre a investigar a fondo