Ver Mensaje Individual
  #103 (permalink)  
Antiguo 12/04/2005, 08:36
Avatar de sjam7
sjam7
 
Fecha de Ingreso: diciembre-2001
Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 22 años, 10 meses
Puntos: 16
Obtener el codigo de otras paginas con XML

Este script sirve para tomar el codigo HTML de otras paginas para tomar informacion que podamos utilizar en nuestras paginas (no se si sea legal o no) pero este ejemplo es con el fin de utilizarlo para saber por ejemplo cotizaciones del dolar desde paginas de bancos, Pageranks desde paginas que dan el servicio ese, etc...

En este ejemplo sirve para tomar el PR desde una pagina llamada OnlyPHP (¿que cosas no?) OJO, es en ASP

Código PHP:
<%
on error resume next
Set xml 
Server.CreateObject("Microsoft.XMLHTTP")
liga="www.forosdelweb.com"
xml.Open "GET""http://www.onlyphp.com/pagerank/index.php?url=http://"&liga&"&email=correo%40hotmail.com&action=Get+Page+Rank"False
xml
.Send
Cadena 
CSTR(xml.responseText)
     
PosIni1 InStr(Cadena,"src=images/pr")
     
PosIni2 InStr(PosIni1,Cadena,"pr")
     
PosFin  InStr(PosIni2Cadena,".gif")

   
Ranking replace(MID(CadenaPosIni2PosFin-PosIni2),"pr","")

Response.write "PR: " Ranking

if err<>0 then
response
.write "<br>"&err.description
response
.write "<br>"&cadena
end 
if
%> 
Este es para sacar la cotizacion del dollar a pesos de un banco (HSBC) de Mexico
Código PHP:
<%
  
Response.Buffer True
  Set xml 
Server.CreateObject("Microsoft.XMLHTTP")
  
xml.Open "GET""http://dsrefa01.hsbc.com.mx/aptrix/InternetPub.nsf/Content/TasasSplash"False
  xml
.Send
     Cadena 
CSTR(xml.responseText)
     
PosIni1 InStr(Cadena,"DOLAR AMERICANO")
     
PosIni2 InStr(PosIni1,Cadena,"$")
     
PosFin  InStr(PosIni2Cadena,"<")
   
DolarCompra MID(CadenaPosIni2PosFin-PosIni2)
     
PosIni1 PosFin
     PosIni2 
InStr(PosIni1,Cadena,"$")
     
PosFin  InStr(PosIni2Cadena,"<")
   
DolarVenta MID(CadenaPosIni2PosFin-PosIni2)

Set xml Nothing
%> 
y para ponerlo en pantalla (el precio del dolar) es asi:
A la compra
<%=FormatCurrency(CDbl(MID(DolarCompra,InStr(Dolar Compra,";")+1,LEN(DolarCompra))),2)%>
A la venta
<%=FormatCurrency(CDbl(MID(DolarVenta,InStr(DolarV enta,";")+1,LEN(DolarVenta))),2)%>

espero les sirva y puedan adaptar a mas cosas, saludos
__________________
CreandoWebs.com
www.creandowebs.com
PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO

Última edición por sjam7; 05/09/2005 a las 17:00