ajax Google PageRank3(PR值)查询源代码

ajax编程获取Google的PageRank3(PR值)及所在目录，想给你的站增加Google PR查询的功能吗？如果你不会就看看本文吧，Google PR 查询源代码程序运行截图：

当然你可以自己在美化一下查询页面！

源代码如下：

<％@LANGUAGE="JAVASCRIPT"％>
<％
function hexdec(str)
{
 return parseInt(str,16);
}
function zeroFill(a,b)
{
 var z = hexdec(80000000);
 if (z & a)
 {
 a = a>>1;
 a &= ~z;
 a |= 0x40000000;
 a = a>>(b-1);
 }
 else
 {
 a = a >> b;
 }
 return (a);
}
function mix(a,b,c)
{
 a -= b; a -= c; a ^= (zeroFill(c,13));
 b -= c; b -= a; b ^= (a<<8);
 c -= a; c -= b; c ^= (zeroFill(b,13));
 a -= b; a -= c; a ^= (zeroFill(c,12));
 b -= c; b -= a; b ^= (a<<16);
 c -= a; c -= b; c ^= (zeroFill(b,5));
 a -= b; a -= c; a ^= (zeroFill(c,3));
 b -= c; b -= a; b ^= (a<<10);
 c -= a; c -= b; c ^= (zeroFill(b,15));
 var ret = new Array((a),(b),(c));
 return ret;
}
function GoogleCH(url,length)
{
 var init = 0xE6359A60;
 if (arguments.length == 1)
 length = url.length; 
 var a = 0x9E3779B9;
 var b = 0x9E3779B9;
 var c = 0xE6359A60;
 var k = 0;
 var len = length;
 var mixo = new Array();
 while(len >= 12)
 {
 a += (url[k+0] +(url[k+1]<<8) +(url[k+2]<<16) +(url[k+3]<<24));
 b += (url[k+4] +(url[k+5]<<8) +(url[k+6]<<16) +(url[k+7]<<24));
 c += (url[k+8] +(url[k+9]<<8) +(url[k+10]<<16)+(url[k+11]<<24));
 mixo = mix(a,b,c);
 a = mixo[0]; b = mixo[1]; c = mixo[2];
 k += 12;
 len -= 12;
 }
 c += length;
 switch(len)
 {
 case 11:
 c += url[k+10]<<24;
 case 10:
 c+=url[k+9]<<16;
 case 9 :
 c+=url[k+8]<<8;
 case 8 :
 b+=(url[k+7]<<24);
 case 7 :
 b+=(url[k+6]<<16);
 case 6 :
 b+=(url[k+5]<<8);
 case 5 :
 b+=(url[k+4]);
 case 4 :
 a+=(url[k+3]<<24);
 case 3 :
 a+=(url[k+2]<<16);
 case 2 :
 a+=(url[k+1]<<8);
 case 1 :
 a+=(url[k+0]);
 }
 mixo = mix(a,b,c);
 if (mixo[2] < 0)
 return (0x100000000 + mixo[2]);
 else
 return mixo[2];
}
function strord(s)
{
 var re = new Array();
 for(i=0;i<s.length;i++)
 {
 re[i] = s.charCodeAt(i);
 }
 return re;
}
function c32to8bit(arr32) 
{
 var arr8 = new Array();
 for(i=0;i<arr32.length;i++) 
 {
 for (bitOrder=i*4;bitOrder<=i*4+3;bitOrder++) 
 {
 arr8[bitOrder]=arr32[i]&255;
 arr32[i]=zeroFill(arr32[i], 8);
 }
 }
 return arr8;
}
function myfmod(x,y)
{
var i = Math.floor(x/y);
 return (x - i*y);
}
function GoogleNewCh(ch)
{
ch = (((ch/7) << 2) | ((myfmod(ch,13))&7));
prbuf = new Array();
prbuf[0] = ch;
for(i = 1; i < 20; i++) {
 prbuf[i] = prbuf[i-1]-9;
}
ch = GoogleCH(c32to8bit(prbuf), 80);
return ch;
}
function URLencode(sStr)
{
return encodeURIComponent(sStr).replace(/\+/g,"％2B").replace(/\//g,"％2F");
}
function getGoogleHostInfo(url){
 var reqgr = "info:" + url;
 var reqgre = "info:" + URLencode(url);
//Response.Write(reqgr+"<br>"+reqgre);
 gch = GoogleCH(strord(reqgr));
 gch = "6" + GoogleNewCh(gch);
 var querystring = "http://toolbarqueries.google.com/search?client=navclient-auto&ch=" + 
gch + "&ie=UTF-8&oe=UTF-8&features=Rank:FVN&q=" + reqgre;
//Response.Write(querystring);
var objXMLHTTP, xml;
xml = Server.CreateObject("Microsoft.XMLHTTP");
xml.Open("GET", querystring, false);
xml.setRequestHeader( "User-Agent", "Mozilla/4.0 (compatible; GoogleToolbar 2.0.114-big; 
Windows XP 5.1)" );
xml.send();
//Response.Write(xml.responseText);
//Response.Write(xml.responseBody);
return xml.responseText;
}
function getPageRank(temp){
 var foo = temp.match(/Rank_.*?:.*?:(\d+)/i);
 var pr = (foo) ? foo[1] : "";
 return pr;
}
function getDirectory(temp){
 var foo = temp.match(/FVN_.*?:.*?:(?:Top\/)?([^\s]+)/i);
 var cat = (foo) ? foo[1] : "";
 if(cat!="")cat="http://directory.google.com/Top/"+cat
 return cat;
}
var site;
site=Request.Form("site");
if(site!="undefined"){
var google=getGoogleHostInfo(site);
var pagerank=getPageRank(google);
var directory=getDirectory(google);
Response.Write("PageRank:"+pagerank+"<br>");
Response.Write("PageRank:<img src=\"images/pr"+pagerank+".png\" 
alt=\"PageRank:"+pagerank+"\"><br>");
Response.Write("网站:"+site+"<br>");
if(directory!="")Response.Write("所在目录:<a href="+directory+">"+directory+"</a><br>");
}
％>