08/03/2002, 11:46
|
| | | Fecha de Ingreso: octubre-2000 Ubicación: Juarez, Chih.
Mensajes: 161
Antigüedad: 24 años, 6 meses Puntos: 0 | |
| Re: Obtener contenido de otro sitio
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!!! |