第一步，首先建立一个　/source/function/function_autopr.php

  1. <?php
  3. function HashURL($url)
  4. {$SEED = "Mining PageRank is AGAINST GOOGLE'S TERMS OF SERVICE. Yes, I'm talking to you, scammer.";
  5. $Result = 0x01020345;
  6. for ($i=0; $i<strlen($url); $i++)
  7. {
  8. $Result ^= ord($SEED{$i%87}) ^ ord($url{$i});
  9. $Result = (($Result >> 23) & 0x1FF) | $Result << 9;
  10. }
  11. return sprintf("8%x", $Result);
  12. }
  13. function prget($domain)
  14. {
  15. $PRURL
    =
    "http://www.google.com/search?client=navclient-auto&features=Rank:&q=info:".$domain.'&ch='.HashURL($domain);
  17. $prstr = file_get_contents($PRURL);
  19. $pagerank = substr($prstr,9);
  20. if ($pagerank){
  21. return $pagerank;
  22. }
  23. else {
  24. return "0";
  25. }
  26. }
  28. ?>

第二步，再建立一个　sourceincludecroncron_autolink.php

  1. <?
  2. if(!defined('IN_DISCUZ')) {
  3. exit('Access Denied');
  4. }
  5. require_once DISCUZ_ROOT.'./source/function/function_autopr.php';
  7. $discuz = & discuz_core::instance();
  8. $myhost = 'http://www.XXXXXXX.com';//你的域名
  10. set_time_limit(1800);
  11. $query = DB::query("select id,url,display from pre_common_friendlink where display=0 and checknum<10");
  12. while($links = DB::fetch($query)) {
  13. $links['url']=strtolower($links['url']);
  14. if(!empty($links['url']) and substr($links['url'],0,4)=="http"){
  15. $htmls=@file_get_contents($links['url']);
  16. }
  18. $website = $links['url'] ;
  19. $website = str_replace("http://","",$website);
  20. $website = str_replace("https://","",$website);
  21. $website = str_replace("/","",$website);
  22. $website = trim($website);
  23. $pr = prget($website);
  24. $pr = str_replace( "
    ", "", $pr );
  25. if(substr($htmls,-1) == "/"){
  26. $htmls = str_replace("/","",$htmls);
  27. }
  29. //if( !strstr($htmls,$myhost) ) {
  30. if(!ereg($myhost,$htmls)){
  31. DB::query("update pre_common_friendlink set checknum=checknum+1,pr='".$pr."' where id=".$links['id']);
  33. }else{
  35. if($links["display"]==0){
  36. DB::query("update pre_common_friendlink set display=1,checknum=0,pr=".$pr." where id=".$links['id']);
  37. }
  38. }
  39. }
  40. DB::query("update pre_common_friendlink set display=0 where checknum>7");//七次检查没有，自动隐藏
  42. //DB::query("delete from pre_common_friendlink where checknum>10");//十次检查没有，自动删除。
  43. ?>

第三步，在数据库表　pre_common_friendlink　增加 display，checknum，pr 字段

  1. ALTER TABLE pre_common_friendlink ADD `display` smallint(2) unsigned NOT NULL default '0'
  2. ALTER TABLE pre_common_friendlink ADD `checknum` tinyint(3) NOT NULL default '0'
  3. ALTER TABLE pre_common_friendlink ADD `pr` int(11) NOT NULL default '0'

第四步，在后台－－工具－－计划任务添加 cron_autolink.php

执行一下就可以了。

大功告成。

另外，也可以在添加时，就直接提取对方的 PR 值。

用法：

$pr = prget($pr);

这个帖子希望官方能够看到，并完善 DZ1.5 的友情连接功能里。