ฉันรวบรวมและจัดเรียงโค้ดสำหรับการสืบค้นค่า pr ใน asp จากอินเทอร์เน็ต ฉันทดลองและใช้ asp เพื่อสืบค้นค่า pr ได้สำเร็จ และการทดสอบก็ผ่านไป คัดลอกรหัสรหัสดังต่อไปนี้:
<%@LANGUAGE=JAVASCRIPT%>
<title>โปรแกรม asp แบบสอบถามค่า Google PR</title>
-
ฟังก์ชั่น hexdec(str)
-
กลับ parseInt(str,16);
-
ฟังก์ชั่น ZeroFill(a,b)
-
var z = ฐานสิบหก (80000000);
ถ้า (z & a)
-
ก = ก>>1;
ก &= ~z;
และ |= 0x40000000;
ก = ก>>(ข-1);
-
อื่น
-
ก = ก >> ข;
-
กลับ (ก);
-
ฟังก์ชันมิกซ์(a,b,c)
-
ก -= b; ก -= ค; ^= (เติมศูนย์(c,13));
ข -= ค; ข -= ข ^= (ก << 8);
ค -= ก; ค -= ข; ค ^= (เติมศูนย์(b,13));
ก -= b; ก -= ค; ^= (เติมศูนย์(c,12));
ข -= ค; ข -= ข ^= (ก << 16);
ค -= ก; ค -= ข; ค ^= (เติมศูนย์(b,5));
ก -= b; ก -= ค; ^= (เติมศูนย์(c,3));
ข -= ค; ข -= ข ^= (ก << 10);
ค -= ก; ค -= ข; ค ^= (เติมศูนย์(b,15));
var ret = อาร์เรย์ใหม่((a),(b),(c));
กลับมาอีกครั้ง;
-
ฟังก์ชั่น GoogleCH (url, ความยาว)
-
ตัวแปรเริ่มต้น = 0xE6359A60;
ถ้า (อาร์กิวเมนต์ความยาว == 1)
length = url.length;
วา = 0x9E3779B9;
วาร์ ข = 0x9E3779B9;
วาร์ ค = 0xE6359A60;
วาร์ เค = 0;
var len = ความยาว;
var mixo = อาร์เรย์ใหม่ ();
ในขณะที่(เลน >= 12)
-
+= (url[k+0] +(url[k+1]<<8) +(url[k+2]<<16) +(url[k+3]<<24));
ข += (url[k+4] +(url[k+5]<<8) +(url[k+6]<<16) +(url[k+7]<<24));
ค += (url[k+8] +(url[k+9]<<8) +(url[k+10]<<16)+(url[k+11]<<24));
mixo = ผสม(a,b,c);
ก = มิกซ์โซ[0]; b = มิกซ์โซ[1];
เค += 12;
เลน -= 12;
-
ค += ความยาว;
สวิตช์ (เลน)
-
กรณีที่ 11:
ค += url[k+10]<<24;
กรณีที่ 10:
c+=url[k+9]<<16;
กรณีที่ 9:
c+=url[k+8]<<8;
กรณีที่ 8:
b+=(url[k+7]<<24);
กรณีที่ 7:
b+=(url[k+6]<<16);
กรณีที่ 6:
b+=(url[k+5]<<8);
กรณีที่ 5:
b+=(url[k+4]);
กรณีที่ 4:
a+=(url[k+3]<<24);
กรณีที่ 3:
a+=(url[k+2]<<16);
กรณีที่ 2:
a+=(url[k+1]<<8);
กรณีที่ 1:
a+=(url[k+0]);
-
mixo = ผสม(a,b,c);
ถ้า (มิกซ์โซ[2] < 0)
กลับ (0x100000000 + มิกโซ [2]);
อื่น
กลับมิกซ์โซ[2];
-
ฟังก์ชั่นสตรอม
-
var re = อาร์เรย์ใหม่ ();
สำหรับ(i=0;i<s.length;i++)
-
ใหม่[i] = s.charCodeAt(i);
-
กลับมาอีกครั้ง;
-
//ที่มาจากอินเทอร์เน็ต www.vevb.com
ฟังก์ชั่น c32to8bit (arr32)
-
var arr8 = อาร์เรย์ใหม่ ();
สำหรับ(i=0;i<arr32.length;i++)
-
สำหรับ (bitOrder=i*4;bitOrder<=i*4+3;bitOrder++)
-
arr8[bitOrder]=arr32[i]&255;
arr32[i]=ศูนย์เติม(arr32[i], 8);
-
-
กลับ arr8;
-
ฟังก์ชั่น myfmod(x,y)
-
var i = Math.floor(x/y);
กลับ (x - i*y);
-
//จากอินเตอร์เน็ต www.pqshow .com
ฟังก์ชั่น GoogleNewCh(ch)
-
ch = (((ch/7) << 2) | ((myfmod(ch,13))&7));
prbuf = อาร์เรย์ใหม่();
ปราบัฟ[0] = CH;
สำหรับ(i = 1; i < 20; i++) {
ปราบัฟ[i] = ปราบูฟ[i-1]-9;
-
ch = GoogleCH(c32to8bit(prbuf), 80);
กลับช;
-
ฟังก์ชั่น URLencode (sStr)
-
ส่งคืน encodeURIComponent(sStr).replace(//+/g,%2B).replace(////g,%2F);
-
ฟังก์ชั่น getGoogleHostInfo (url) {
var reqgr = ข้อมูล: + url;
var reqgre = ข้อมูล: + URLencode(url);
//Response.Write(reqgr+<br>+reqgre); จากอินเทอร์เน็ต 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(สตริงการสืบค้น); จากอินเทอร์เน็ต www.vevb.com
var objXMLHTTP, xml;
xml = Server.CreateObject(Microsoft.XMLHTTP);
xml.Open(GET, สตริงการสืบค้น, เท็จ);
xml.setRequestHeader( User-Agent, Mozilla/4.0 (เข้ากันได้; GoogleToolbar 2.0.114-big; Windows XP 5.1) );
xml.ส่ง();
กลับ xml.responseText;
-
ฟังก์ชั่น getPageRank (ชั่วคราว) {
var foo = temp.match(/Rank_.*?:.*?:(/d+)/i);
var pr = (foo) ? foo[1] : ;
กลับราคา;
-
ฟังก์ชั่น getDirectory (ชั่วคราว) {
var foo = temp.match(/FVN_.*?:.*?:(?:Top//)?([^/s]+)/i);
var cat = (ฟู) ? ฟู[1] : ;
ถ้า(cat!=)cat=http://directory.google.com/Top/+cat
กลับแมว;
-
// มาจากอินเทอร์เน็ต www.vevb.com
เว็บไซต์ var;
site=www.baidu.com; //กรอกชื่อเว็บไซต์
ถ้า (ไซต์! = ไม่ได้กำหนด) {
var google=getGoogleHostInfo(ไซต์);
var pagerank=getPageRank(google);
var directory=getDirectory(กูเกิล);
Response.Write(เพจแรงก์:+เพจแรงค์+<br>);
Response.Write(เพจแรงก์:<img src=/images/pr+pagerank+.png/ />Response.Write(ไซต์:+site+<br>);
if(directory!=)Response.Write(ไซต์:<a href=+directory+>+directory+</a><br>);
-
-
เพียงบันทึกโค้ดด้านบนเป็น pr.asp แล้วรัน หากคุณต้องการส่งพารามิเตอร์ คุณก็สามารถทำได้
site=www.baidu.com; //กรอกชื่อเว็บไซต์
แทนที่ด้วย
site=Request.QueryString(url); //กรอกชื่อเว็บไซต์