Obtener contenido de otro sitio

Ruchu · #31 (**permalink**) 08/03/2002, 13:09

lo primero de todo que quiero hacer es agradecer la paciencia y las buenas explicaciones de vgaray, gracias amigo. no todos tenemos tanta paciencia

y bueno, la verdad es que ahora si que me funciona, y ademas de maravilla. creo, o mas bien, estoy seguro que el problema estaba en la linea "Response.write objXML2.ResponseText", de esta manera si que me va, de la otra no.

asi que gurrutello y dazuaga probar este ultimo ejemplo que seguro os chutara.

aunque tengo otro problemilla y que no solo me pasa a mi. tabien recibo el codigo con codigos raros y no es por no tener el charsetiso 8859-1, porque si que lo tengo y sigo viendo simbolos raros.

vgaray, como solucionar esto?? :P

Ruchu · #32 (**permalink**) 08/03/2002, 13:11

otra cosa:

el problema de los simbolos raros me da la sensacion que es un problema que viene desde el codigo del asp, no a la hora de mostrar el html en la explorer. sera el componente?? ...

fvalencia · #33 (**permalink**) 08/03/2002, 13:13

Amigos, me parece un tema muy interesante, pero llege tarde a saber de que se trata y que componentes usar me podrian resumir este tema... gracia se que a muchos más nos va a servir

AlZuwaga · #34 (**permalink**) 08/03/2002, 15:28

Bueno, ya instalé el ServerXMLHTTP V4.0 pero nada...

Esto es todo el código que me devuelve el nuevo script que pusiste Victor:

Código:

&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Obtener de 2 formas&lt;/title&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;hr&gt;&lt;br&gt;
&lt;/body&gt;
&lt;/html&gt;

Hercules · #35 (**permalink**) 08/03/2002, 18:05

este error me sigue saliendo
error '800c0005'
/busa2002/vgaray.asp, line 12

tengo instalado el msxml4 y todas los otros programas que me dijeron lo voy a provar en el servidor de mi casa para ver si alli me funciona y te comento victor
gracias master

Hercules

vgaray · #36 (**permalink**) 08/03/2002, 19:02

A ver Diego y Hercules.

Por favor probemos con todas las posibles formas de llamar al componente...

<%
strUrl = "http://www.maestrosdelweb.com"
Dim objXML
On error resume next
Set objXML = Server.CreateObject ("Microsoft.XMLHTTP")
'Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
'Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")

If Err Then
Response.write "Error: " & Err.Description
End If

On Error Goto 0

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
%>

El lunes publicaré el código para hacer un buscador para tu web (basado en archivos no en base de datos), espero que lo revisen y lo critiquen para poder mejorarlo.

Gueno, TGIF

Mesera, ronda pa' todos !!!

GenX · #37 (**permalink**) 11/03/2002, 04:10

Hola a Todos

Victor hé provado el codigo donde estan la dos formas de obtener un sitio y ese si me funciona.

Lo que no reconoce bien es cuando hay acentos.

Saludos

;)

Ruchu · #38 (**permalink**) 11/03/2002, 07:40

a mi con el tema de los acentos y caracteres como la ñ, tambien me pone simbolos raros.

como solucionar esto?

Hercules · #39 (**permalink**) 11/03/2002, 09:47

vgaray me sale este error

Server object error 'ASP 0177 : 800c0005'

Server.CreateObject Failed

eso me sale en la linea 27
que es donde esta este codigo

objXML.send

espero comentarios y muchas gracias por tu paciencia vgaray :P ;)

Hercules

Hercules · #40 (**permalink**) 11/03/2002, 10:07

vgaray me sale este error

Server object error 'ASP 0177 : 800c0005'

Server.CreateObject Failed

eso me sale en la linea 27
que es donde esta este codigo

objXML.send

espero comentarios y muchas gracias por tu paciencia vgaray :P ;)

Hercules

vgaray · #41 (**permalink**) 11/03/2002, 15:58

Saludos.

Diego, favor de agregar la línea Response.Flush despúes de cada Response.Write para forzar que lo procesado en la ASP sea mostrado en tu navegador.

Hercules, estas usando el último código públicado lineas arriba?

Los carácteres raros que me nombran deberían eliminarse usando la linea..

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

Me podrían decir que dirección estan usando para hacer sus pruebas y así usarla yo y ver que resultados obtengo.

Hercules · #42 (**permalink**) 11/03/2002, 17:07

Cuando pongo la linea:

Set objXML = Server.CreateObject ("Microsoft.XMLHTTP")

me sale este error

--
Server object error 'ASP 0177 : 800c0005'

Server.CreateObject Failed

/busa2002/vgarayerror.asp, line 27

The operation completed successfully
----

si habilito esta linea

Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")

el error es este

--
msxml4.dll error '80072efd'

No se ha podido establecer una conexión con el servidor

/busa2002/vgarayerror.asp, line 27

--------
si habilito

Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.3.0")

me sale este error

Server object error 'ASP 0177 : 800c0005'

Server.CreateObject Failed

/busa2002/vgarayerror.asp, line 27

The operation completed successfully.

-----

y si habilito:

Set objXML = Server.CreateObject ("MSXML2.XMLHTTP.4.0")

el error es:

Server object error 'ASP 0177 : 800c0005'

Server.CreateObject Failed

/busa2002/vgarayerror.asp, line 27

The operation completed successfully

--------

no se que hacer ya probe todos cual podra ser el problema
help me please

:( :(

Hercules

AlZuwaga · #43 (**permalink**) 11/03/2002, 18:32

gracias victor, mañana lo pruebo y te comento!

saludos
diego

PD: Que paciencia!!!!

Nochero · #44 (**permalink**) 13/03/2002, 05:21

Victor, acerca de los simbolos raros, intenta leer una pagina o archivo local que contenga simbolos tales como º (ASCII 167), ñ y vocales con acento y luego muestrala en pantalla con el Response.Write(variable) a ver si a ti te sucede.

Te cuento que el proceso lo realizo dentro de un include, paso la pagina a una variable y en la principal ya tengo la linea de <meta... pero me los reemplaza con "?".
Yo lei que es un error conocido a solucionar en la proxima version de MSXML asi que espero.

El resto puede ver un enlace en <a href='ir.asp?http://www.lavariable.com/art/xml/axml008/axml008.asp' target='_blank'>http://www.lavariable.com/art/xml/axml00...</a> donde hablan acerca de los caracteres.

Desde ya gracias por tu constante colaboracion.

Saludos !

Hercules · #45 (**permalink**) 13/03/2002, 22:46

victor donde estas maestro help me

AlZuwaga · #46 (**permalink**) 13/03/2002, 23:42

Paciencia Hercules... Victor ya vendrá.

Gurrutello · #47 (**permalink**) 14/03/2002, 06:42

Me quito el sombrero!!!!!!!

Funciona perfectamente
pero como se podria obtener solo"" parte del esa pagina no todo el contenido??""

y de nuevo muy bien currao!!!

<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>

Hercules · #48 (**permalink**) 14/03/2002, 10:30

alguien me puede ayudar please

vgaray · #49 (**permalink**) 14/03/2002, 11:44

Saludos.

Hercules, por favor intenta con el siguiente código para ver que obtienes.

<%
strUrl = "http://" & Request.ServerVariables("HTTP_HOST")

Dim objXML
On error resume next

Set objXML = Server.CreateObject ("MSXML2.ServerXMLHTTP")

If Err Then
Response.write "Error: " & Err.Description
End If

On Error Goto 0

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
%>

Hercules · #50 (**permalink**) 18/03/2002, 18:18

victor gracias por responder acabo de probar el codigo y cuando lo ejecuto me trae el contenido total de mi pagina de inicio de mi sitio o sea mi pagina default.htm ;) ;)

Hercules · #51 (**permalink**) 21/03/2002, 17:55

victor donde estas ?

:) :) :) :) :)

Hercules · #52 (**permalink**) 23/03/2002, 17:04

maestro donde estas ?? help

ELEONS · #53 (**permalink**) 24/03/2002, 12:49

Este Tip esta genial pero solamente le faltan dos cosas, que traiga tambien las imagenes y poder elegir tan solo un trozo, es decir no todo, se puede intntar o sería imposible??

vgaray · #54 (**permalink**) 25/03/2002, 12:29

Saludos.

Hercules, mandé un correo a tráves de tu perfil de usuario de este sitio con mi cuenta de email para lo que te sirva.

Que necesitas?

Para ver un ejemplo de como obtener una parte especifica de un sitio, ver el siguiente ejemplo:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=7371&lngWId=4

Necesitas más ejemplos? entonces ve aca...

http://asp.myscripting.com/xmlcode.asp

Como verás, lo que cambia es la personalización de la variable strURL de la línea...

objXML.open "GET", strURL, false , "", ""

... ya que como se ve en los ejemplos; puedes obtener resultados particulares de otros sitios mandandole parametros a una pagina en especifico. Esa es la forma de obtener una informacion especifica.

Inclusive ve al siguiente link...

http://w.moreover.com/categories/category_list_xml.html

...donde encontrarás un listado de sitios que proveen info a otros y muestran la forma de hacerlo.

Con lo referente a las imagenes, es necesario crear una funcion para 'arreglar' este problema, ya que la mayoria de los sitios usan direcciones relativas (<img src="../images/x.gif"). Visita el ejemplo.. http://asp.myscripting.com/xmlstock2.asp y ahí, lee el código fuente de esta para ver como yahoo prepara la grafica para ser vista desde 'cualquier lugar'.

Ten en cuenta que por lo regular tendrás un archivo Nom_Arch.xls donde defines el formato que le darás a la información obtenida de otro sitio.

#55 (**permalink**) 05/04/2002, 06:18

aqui estaba lo q necesitaba!!
gracias, vgaray

lexus · #56 (**permalink**) 26/05/2002, 15:12

hola habra forma de unir su codigo con este que coloco yo, para realizar un buscador en nuestros sitios, pero que arroje los resultados de otro como por ejemplo google o altavista? , este utiliza un componente que esta en : http://www.alphasierrapapa.com/ComponentCenter/AspTear/ llamado ASPTear y el codigo que utilizo es este:

lexus · #57 (**permalink**) 26/05/2002, 15:14

<%Option Explicit
Dim HttpObj,start,finish,dirData,rawData,count,SearchT erms, Request_Get
SearchTerms = CStr(Request.QueryString("search"))
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://search.dmoz.org/cgi-bin/search?" & Request.QueryString
dirData = HTTPObj.GetURL
'Uncomment the below lines and comment out the AspHTTP ones above if you have ASPtear installed instead
'Set HttpObj = Server.CreateObject("SOFTWING.ASPtear")
'dirdata = HttpObj.Retrieve("http://search.dmoz.org/cgi-bin/search", 2, Request.QueryString, "", "")
rawData = split(dirData, "<HR>")
dirData = ""
start = InStr (rawData(0), "<center>Search")
if start <> 0 then
finish = InStr (start, rawData(0), "<p><CENTER>")
if CStr(Request.QueryString("all"))="n o" then
finish = InStr (finish+11, rawData(0), "<p><CENTER>")
end if
rawData(0) = mid (rawData(0), start, (finish+12)-start)
for count = 0 to UBound(rawData) - 1
dirData = dirData + rawData(count)
next
dirData = Replace(dirData, "<b><a href=""http://dmoz.org/"">Open Directory Project</a></b>", "<b><a href=""/"">PhilWebSearch</a></b>")
dirData = Replace(dirData, "Open Directory", "myWebDir")
dirData = Replace(dirData, "/img/star.gif", "recommended.gif")
dirData = Replace(dirData, "bgcolor=""#cccccc""&quot ;, "bgcolor=""#F0F0F0""&quot ;)
dirData = Replace(dirData, "<a href=""http://dmoz.org/", "<a href=""webdir.asp?cat=/")
dirData = Replace(dirData, "search?", "websearch.asp?")
dirData = Replace(dirData, "<TR><TD VALIGN=""top"">"" <B>", "<tr><td>""<b>&qu ot;)
dirData = Replace(dirData, "on:</TD>", "on:</td>")
dirData = Replace(dirData, "<TD VALIGN=""top""><SMALL&gt ;", "<td><font size=2>")
dirData = Replace(dirData, "</SMALL></TD></TR>", "</font></td></tr>")
dirData = Replace(dirData, "<TABLE>", "<hr size=1 color=""#000000""><table width=""100%"" align=""center"">")
if searchTerms = "" then
dirData = "<center><b>No Search string specified.</b></center>"
end if
end if
%>

continua...

lexus · #58 (**permalink**) 26/05/2002, 15:18

continuacion....

todo este codigo es websearch.asp incluyendo el que puse anteriormente.

<html><head><title></title></head>
<body><form action="websearch.asp" method="get"><table border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center" valign="middle"> <td> <input size="25" maxlength="512" name="search">&nbsp;
<input type="submit" value="Search"> </td></tr></table></form><%if start <> 0 then
Response.Write(dirData)
else%><p>No hay resultados</p><%end if%><table border=0 cellpadding=0 cellspacing=0 align="center" width="100%">
<tr> <td align="left"><a href="http://www.dmoz.org/about.html"><img src="http://www.dmoz.org/img/home_attribute.gif" border=0 width=412 height=27 alt="Help build the largest human-edited directory of the web"></a></td>
<td align="right"><img src="http://www.dmoz.org/img/lizard2a.gif" width=106 height=36 alt=""></td>
</tr></table><form action="websearch.asp" method="get"><table border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center" valign="middle"><td> <input size="25" maxlength="512" name="search">&nbsp;
<input type="submit" value="Search"> </td>
</tr></table></form></body></html>

espero se puedan unir con los ejemplos que han utilizado ustedes para arrastrar otra pagina hacia una nuestra, como por ejemplo resultados de un buscador como google..

gracias...

Helbira · #59 (**permalink**) 17/03/2003, 11:36

En este post

http://www.forosdelweb.com/showthrea...5&pagenumber=2

RaKoVKy dejó un código muy interesante donde se utiliza este objeto. Con ese código yo entendí su uso y además os dirá otra forma de conseguir parte de una página...

Encontré este post buscando una solución a lo de los acentos pero sigo sin encontrar nada. He buscado algo relacionado con la solución que proponían de msxmlASP.msi pero no encuentro nada.. (supongo que está bien escrito

).

Un beso

Helbira · #60 (**permalink**) 20/03/2003, 02:29

Para el problema de los acentos:

¿Cómo mostrar los acentos cuando se utiliza XMLHTTP?

Un beso