Discuz友情连接自动提取PR，自动检测对方有没有本站的连接

湖中沉

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

1. <?php

复制代码

第二步，再建立一个　source\include\cron\cron_autolink.php

1. <?
   
2. if(!defined('IN_DISCUZ')) {
   
3. exit('Access Denied');
   
4. }
   
5. require_once DISCUZ_ROOT.'./source/function/function_autopr.php';
   
6. 
   
7. $discuz = & discuz_core::instance();
   
8. $myhost = 'http://www.XXXXXXX.com';//你的域名
   
9. 
   
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. }
    
17. 
    
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( "\n", "", $pr );
    
25. if(substr($htmls,-1) == "/"){
    
26. $htmls = str_replace("/","",$htmls);
    
27. }
    
28. 
    
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']);
    
32. 
    
33. }else{
    
34. 
    
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");//七次检查没有，自动隐藏
    
41. 
    
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的友情连接功能里。

0575xf

X2 RC版本可以吗？

w7980

2.0能用吗？还要修改数据库，这个最头疼了

w7980

我晕，怎么这么背呀！七个！