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(PosIni2, Cadena,".gif")
Ranking = replace(MID(Cadena, PosIni2, PosFin-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(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2, PosFin-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