<%
' 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:
Cita:
"> 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