ASP Google PR-Abfragecode

Ich habe den Code zum Abfragen des PR-Werts in ASP aus dem Internet gesammelt und aussortiert. Ich habe ASP erfolgreich zum Abfragen des PR-Werts verwendet und den Test bestanden. Kopieren Sie den Codecode wie folgt:

<%@LANGUAGE=JAVASCRIPT%>

<title>Google PR-Wertabfrage-ASP-Programm</title>

<%

Funktion hexdec(str)

{

return parseInt(str,16);

}

Funktion ZeroFill(a,b)

{

var z = hexdec(80000000);

wenn (z & a)

{

a = a>>1;

a &= ~z;

a |= 0x40000000;

a = a>>(b-1);

}

anders

{

a = a >> b;

}

return(a);

}

Funktion 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;

}

Funktion GoogleCH(URL,Länge)

{

var init = 0xE6359A60;

if (Argumente. Länge == 1)

Länge = URL.Länge;

var a = 0x9E3779B9;

var b = 0x9E3779B9;

var c = 0xE6359A60;

var k = 0;

var len = Länge;

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];

k += 12;

Länge -= 12;

}

c += Länge;

Schalter(len)

{

Fall 11:

c += url[k+10]<<24;

Fall 10:

c+=url[k+9]<<16;

Fall 9:

c+=url[k+8]<<8;

Fall 8:

b+=(url[k+7]<<24);

Fall 7:

b+=(url[k+6]<<16);

Fall 6:

b+=(url[k+5]<<8);

Fall 5:

b+=(url[k+4]);

Fall 4:

a+=(url[k+3]<<24);

Fall 3:

a+=(url[k+2]<<16);

Fall 2:

a+=(url[k+1]<<8);

Fall 1:

a+=(url[k+0]);

}

mixo = mix(a,b,c);

if (mixo[2] < 0)

return (0x100000000 + mixo[2]);

anders

return mixo[2];

}

Funktionsstrom(e)

{

var re = new Array();

for(i=0;i<s.length;i++)

{

re[i] = s.charCodeAt(i);

}

Rückkehr re;

}

//Quelle: www.vevb.com

Funktion 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;

}

Funktion myfmod(x,y)

{

var i = Math.floor(x/y);

return (x - i*y);

}

//Aus dem Internet, www.pqshow.com

Funktion 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;

}

Funktion URLencode(sStr)

{

return encodeURIComponent(sStr).replace(//+/g,%2B).replace(////g,%2F);

}

Funktion getGoogleHostInfo(url){

var reqgr = info: + url;

var reqgre = info: + URLencode(url);

//Response.Write(reqgr+<br>+reqgre); Aus dem Internet, www.vevb.com

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); Aus dem Internet, www.vevb.com

var objXMLHTTP, xml;

xml = Server.CreateObject(Microsoft.XMLHTTP);

xml.Open(GET, querystring, false);

xml.setRequestHeader( User-Agent, Mozilla/4.0 (kompatibel; GoogleToolbar 2.0.114-big; Windows XP 5.1) );

xml.send();

return xml.responseText;

}

Funktion getPageRank(temp){

var foo = temp.match(/Rank_.*?:.*?:(/d+)/i);

var pr = (foo) ? foo[1] : ;

Rückkehr PR;

}

Funktion getDirectory(temp){

var foo = temp.match(/FVN_.*?:.*?:(?:Top//)?([^/s]+)/i);

var cat = (foo) ? foo[1] : ;

if(cat!=)cat=http://directory.google.com/Top/+cat

Katze zurückgeben;

}

//Quelle: www.vevb.com

Var-Site;

site=www.baidu.com; //Geben Sie den Site-Namen ein

if(site!=undefiniert){

var google=getGoogleHostInfo(site);

var pagerank=getPageRank(google);

var Verzeichnis=getDirectory(google);

Response.Write(PageRank:+pagerank+<br>);

Response.Write(PageRank:<img src=/images/pr+pagerank+.png/ />Response.Write(Site:+site+<br>);

if(directory!=)Response.Write(Site:<a href=+directory+>+directory+</a><br>);

}

%>

Speichern Sie einfach den obigen Code als pr.asp und führen Sie ihn aus. Wenn Sie Parameter übergeben möchten, können Sie dies tun

site=www.baidu.com; //Geben Sie den Site-Namen ein

Ersetzen durch

site=Request.QueryString(url); //Geben Sie den Site-Namen ein