Sirve para saber el PageRank de un sitio tomandolo de la pagina: onlyphp.com
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
%>