Obtener contenido de otro sitio

vgaray · #1 (**permalink**) 18/02/2002, 16:54

Código para obtener contenido de otro sitio diferente al tuyo (no se trae el código fuente)...

<%
Function RevisarComponente(ProgId) 'Funcion para revisar la existencia de un componente x
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
RevisarComponente = True
Else
RevisarComponente = False
End If
Set tmpObject = Nothing
End Function

Function Traerte_contenido_de_aqui(strURL)
Dim objXML
Set objXML = CreateObject("Msxml2.XMLHTTP")
objXML.open "GET", strURL, false
objXML.send
Traerte_info_de_aqui = objXML.responseText
end Function

If RevisarComponente("Msxml2.XMLHTTP") Then 'revisar que tengas instalado el componente
Response.write Traerte_contenido_de_aqui("http://www.maestrosdelweb.com")
Else
Response.Write "No tienes instalado el componente para poder obtener la info de otro sitio"
End if
%>

---------------------
Tan libre como gratuito!!!

AlZuwaga · #2 (**permalink**) 18/02/2002, 17:27

Que pena :(... me dice "No tienes instalado el componente para poder obtener la info de otro sitio".

¿Cómo se podría solucionar eso?

Por lo demás, felicitaciones! Muy buenos TIPS te estás mandando Víctor!

diego

jpogsistem · #3 (**permalink**) 18/02/2002, 17:55

Soluciona esta duda que te vas luciendo Maestro!!!!!!!!!

Gurrutello · #4 (**permalink**) 18/02/2002, 18:19

hola el componente para esto se encuentra en
Msxml2.
<a href='ir.asp?http://support.microsoft.com/default.aspx?scid=kb;EN-US;q276426' target='_blank'>http://support.microsoft.com/default.asp...</a>
aqui encontraras informacion

<iframe border="0" width="200" scrolling="no" frameborder="0" src="http://www.iespana.es/loencuentras/logoagrega.swf" height="150" name="banner" marginwidth="0" marginheight="0"> </iframe>

Aston · #5 (**permalink**) 19/02/2002, 04:21

Otro genial tip del maestro vgaray, muchas gracias. A ver si lo podemos poner en práctica.

Saludos. ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

GenX · #6 (**permalink**) 19/02/2002, 04:59

Hola a todos

Esta bastante interesante, lo he instalado en Win2000 Server, pero me da un error: error '800c0005'
en linea: objXML.send
A que se puede deber.

Saludos :(

Ruchu · #7 (**permalink**) 19/02/2002, 06:37

gracias amigo por el tip, lo voy a probar ya mismo. :)

<a href="http://www.micache.com/" target="_blank"><img src="http://200.69.194.251/micache/ilustraciones/firmaForos.jpg" width="343" height="64" border="0"></a>

Ruchu · #8 (**permalink**) 06/03/2002, 18:01

a ver, ni me dice que no tengo el componente instalado ni me muestra ningun codigo de otro sitio.

porque ¿?¿?

vgaray · #9 (**permalink**) 06/03/2002, 19:30

--------------------------------------------------------------------------------
Saludos Ruchu.

Solo hay dos sopas....

A) O te muestra el contenido del sitio al que haces referencia.

B) O te muestra un mensaje indicandote que no tienes instalado el componente necesario.

Si no obtienes (B) encontes si esta trabajando el script, solo que el sitio al que haces refencia no tenga nada.

Bueno eso se me ocurre.

---------------------
Tan libre como gratuito!!!

AlZuwaga · #10 (**permalink**) 06/03/2002, 22:10

A ver víctor, el error que hago referencia en mi mensaje anterior lo obtengo en la pc de mi casa.

pero tambien lo probé en la pc de mi trabajo y me pasa lo mismo que a Ruchu dejando el script tal cual lo pusiste con esta línea:

Response.write Traerte_contenido_de_aqui("http://www.maestrosdelweb.com")

Eso significa que http://www.maestrosdelweb.com no tiene contenido para mostrarme?

saludos
diego

Ruchu · #11 (**permalink**) 07/03/2002, 04:10

vgaray, sobre que corres el script? sobre win2000, winXP...??

y he estado chafardeando microsoft y he leido algo de que este componente solo funciona si tienes instalado el windows scrip 5.5, cosa que me extraña un poco.

... que puedo hacer para que me funcione??

aspasites · #12 (**permalink**) 07/03/2002, 04:29

Hola, no habra problemas por parte del propietario del sito que cojemos?
Exactamente para que podemos utilizar este codigo?
Gracias

Hercules · #13 (**permalink**) 07/03/2002, 09:38

victor donde copio el codigo para que me funciones que tengo que hacer el componente ya lo tengo instalado y cuando copio el codigo en una pagina asp no me sale nada

quien me ayuda

Hercules

Hercules · #14 (**permalink**) 07/03/2002, 10:00

me sale este error que puede ser

Server object error 'ASP 0177 : 800c0005'

Server.CreateObject Failed

/busa2002/ffff.asp, line 30

The operation completed successfully.

saludos :( :(

Hercules

vgaray · #15 (**permalink**) 07/03/2002, 10:32

Saludos a todos.

A quien le aparece que no tiene instalado el componente, o que al menos le aparece un mensaje de error; necesita ir al sitio de microsoft y bajar la última versión del MDAC (http://www.microsoft.com/data/download_270RTM.htm)

O baja el Component Checker (http://www.microsoft.com/data/download.htm#CCinfo) el cual te revisará la versión que tengas instalada y te reportará si tienes una mala instalación del componente que aqui queremos usar.

Gurrutello da un excelente enlace (lineas arriba).

Si no les aparece absolutamente nada, cambiemos encontes el código para 'provocar' recibir cuando menos un mensaje de error...

<%
Function Traerte_contenido_de_aqui(strURL)
Dim objXML
Set objXML = CreateObject("Msxml2.XMLHTTP")
objXML.open "GET", strURL, false
objXML.send
Traerte_info_de_aqui = objXML.responseText
end Function

Response.write Traerte_contenido_de_aqui("http://www.algunsitio.com")
%>

Yo tengo instalado el win2000, windows scripting 5.6 (http://msdn.microsoft.com/scripting), mdac 2.7 (http://www.microsoft.com/data/download_270RTM.htm)

Respecto a que si habrá problemas con el propietario del sitio... La idea de este mensaje es mostrar que otras personas pueden obtener contenido de nuestros sitio. Que quede claro, este código no te permite obtener el código fuente; si no el resultado que obtendrías al visitar al que estas haciendo referencia.

En dado caso, talvez es necesario buscar la opción de impedir que otros 'lean' nuestro sitio.

---------------------
Tan libre como gratuito!!!

Ruchu · #16 (**permalink**) 07/03/2002, 11:20

bueno, antes no mostraba ningun contenido de otro sitio ni me daba ningun error pero no tenia la ultima ver del mdac ni del windows script.

ahora tengo el mdac 2.7 y la ultima ver del windows script.

osea que me tendria que funcionar. sin embargo me da error en la misma linea que a GenX.

Error:
objXML.send

porque puede ser esto??

GenX · #17 (**permalink**) 07/03/2002, 11:45

Hola Ruchu

Este ejemplo del WhoIs si me funciono y si le hechas un vistazo al codigo es el mismo que este ejemplo.

<a href='ir.asp?http://www.forosdelweb.com/mensaje.asp?id=65324' target='_blank'>http://www.forosdelweb.com/mensaje.asp?i...</a>

Pero aún no se porque.

Saludos

:roto:

vgaray · #18 (**permalink**) 07/03/2002, 12:45

Saludos.

De hecho los códigos son diferentes. En el link que haces referencia (WhoIs) se usa la línea:

Set objXML = CreateObject("Microsoft.XMLHTTP")

Y en el código para obtener contenido de otro sitio se usa...

Set objXML = CreateObject("Msxml2.XMLHTTP")

Por supuesto que esto indica que se hace una referencia a versiones diferentes del mismo objeto.

Ruchu, intenta por favor usar Set objXML = CreateObject("Microsoft.XMLHTTP")
y dinos como te fué.

Aunque la mejor recomendación seria bajar el Component Checker (http://www.microsoft.com/data/download.htm#CCinfo) y revisar que la instalación del objeto que aquí se quiere usar, sea la correcta.

Ruchu · #19 (**permalink**) 07/03/2002, 14:02

que curioso. si pongo Msxml2.XMLHTTP me peta en la linea objXML.send y si pongo Microsoft.XMLHTTP no me peta pero tampoco me funciona, me hace como me hacia antes de bajarme el MDAC 2.7, es decir, no me muestra nada, pagina en blanco.

me baje el MDAC checker y tengo muchos warnings, alomejor es por esto que no me furula.

no se que archivo del checker es el que hace referencia al objeto "XMLHTTP" en cuestion, asi que si lo sabes vgaray dimelo, o dame alguna pista de porque no me va

Hercules · #20 (**permalink**) 07/03/2002, 15:55

victor tengo el mismo error que ruchu ayudanos please gracias :( :( :(

Hercules

clak · #21 (**permalink**) 07/03/2002, 16:06

Exelente lo pondre en práctica saludos

vgaray · #22 (**permalink**) 07/03/2002, 19:15

Ruchu y Hercules:

Podrían por favor probar el código WhoIs (http://forosdelweb.com/mensaje.asp?id=65324) para ver si les trabaja?

Gurrutello · #23 (**permalink**) 07/03/2002, 21:44

hola
de hecho0
vgaray
hace falta un componente no???
probando y probando opcione por un php y es la hostia no necesita componentes
un saludo :)

<iframe border="0" width="200" scrolling="no" frameborder="0" src="http://www.iespana.es/loencuentras/logoagrega.swf" height="150" name="banner" marginwidth="0" marginheight="0"> </iframe>

Gurrutello · #24 (**permalink**) 07/03/2002, 21:44

hola
de hecho0
vgaray
hace falta un componente no???
probando y probando opcione por un php y es la hostia no necesita componentes
un saludo :)

<iframe border="0" width="200" scrolling="no" frameborder="0" src="http://www.iespana.es/loencuentras/logoagrega.swf" height="150" name="banner" marginwidth="0" marginheight="0"> </iframe>

Gurrutello · #25 (**permalink**) 07/03/2002, 21:49

y mejor dicho necesita un codigo ocomponente Msxml2.dll
para mostrar otra pagina web
necesitas un componente dll instalado
si el codigo lo hiciste tu [quote---------------------
Tan libre como gratuito!!!
]
expecifica please , por cierto muy buenas tus aportaciones
un saludo.

<iframe border="0" width="200" scrolling="no" frameborder="0" src="http://www.iespana.es/loencuentras/logoagrega.swf" height="150" name="banner" marginwidth="0" marginheight="0"> </iframe>

Nochero · #26 (**permalink**) 07/03/2002, 23:34

El Tip de vgaray es muy interesante y me ayudo bastante cuando solicitaba extraer datos como la temperatura o titulares de noticias.

Localmente funciona bien, excepto que me trae los datos pero caracteres especiales como el "º" y otros mas me los convierte a signo "?".
A Uds. les pasa lo mismo ?

Estuve leyendo por ahi que era un error conocido y recomiendan bajar el "msxmlSPA.msi".
Yo no pude instalarlo en mi Win98 pero eso solucionaria dichos problemas.

Saludos y muy buenos tus tips vgaray !

Ruchu · #27 (**permalink**) 08/03/2002, 05:27

vgaray, el codigo del Whois si que me funciona bien. que esta pasando??

y por cierto Gurrutelo, podrias poner el codigo php ese del que hablas? y tambien poner la direcion de donde bajar la dll ??

...vgaray a ver si me hechas una manita.

Hercules · #28 (**permalink**) 08/03/2002, 08:45

a mi tambien me funciona bien el codigo del whois victor echanos una manito please

Hercules

GenX · #29 (**permalink**) 08/03/2002, 11:27

Hola

Pues ya somos tres, a mi me funciona el WhoIs pero el del contenido de otro sitio me sale el error:

error '800c0005'
/exe/form/site.asp, line 27

linea 27 = objXML.send

Apropocito Victor este tema (componentes) esta muy interesante.

Muy bien.

;)

:roto:

vgaray · #30 (**permalink**) 08/03/2002, 11:46

Saludos.

Disculpen por la tardanza. Vamos a empezar desde cero con el mismo código todos...

<html>
<head>
<title>Obtener de 2 formas</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
strUrl = "http://www.maestrosdelweb.com"
Dim objXML
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "get", strURL, false
objXML.send
If objXML.Status >= 400 And objXML.Status <= 599 Then
Response.write "Existe un error : " & objXML.Status & " - " & objXML.statusText
Else
Response.write objXML.ResponseText
End If
%>

<%
Response.write "<hr><br>"
%>

<%
strUrl = "http://www.maestrosdelweb.com"
Dim objXML2
Set objXML2 = CreateObject("Msxml2.XMLHTTP")
objXML2.open "get", strURL, false
objXML2.send
If objXML2.Status >= 400 And objXML2.Status <= 599 Then
Response.write "Existe un error : " & objXML2.Status & " - " & objXML2.statusText
Else
Response.write objXML2.ResponseText
End If
%>
</body>
</html>

En el código anterior intentaremos usar dos versiones diferentes del mismo objeto.

A mi me aparece el contenido de maestrodelweb.com dos veces separados por una linea (como se especifica en el codigo anterior).

Nochero, si recibes caracteres raros, necesitas agregar la linea <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
usada en el codigo anterior.

Ruchu y Hercules, si aun así no obtienen el contenido del sitio. Necesitarán instalar la última versión del ServerXMLHTTP que es parte del XML parser de Microsoft (si, ya se que esto parece novela pero al parecer esta es la solución final). Visiten http://support.microsoft.com/directory/article.asp?ID=kb;en-us;Q290761 para info y http://msdn.microsoft.com/xml/default.asp para bajarlo (actualmente esta la version 4.0)

Gurrutello, cuando no ponga el crédito del creador, entonces la lógica es mía. Por ejemplo en el codigo WhoIs aparece su creador.

---------------------
Tan libre como gratuito!!!