仿D4用户使用QQIP数据库插件。（很简单修改，实现精确IP地址显示）

一、打开include\misc.php开头查找

1. if(!defined('IN_DISCUZ')) {
   
2.         exit('Access Denied');
   
3. }

复制代码

下边加

1. define('QQWRY' , $qqwry_root_path . 'ipdata/wry.dat' ) ;
   
2. 
   
3. function IpToInt($Ip) {
   
4.     $array=explode('.',$Ip);
   
5.     $Int=($array[0] * 256*256*256) + ($array[1]*256*256) + ($array[2]*256) + $array[3];
   
6.     return $Int;
   
7. }
   
8. 
   
9. function IntToIp($Int) {
   
10.     $b1=($Int & 0xff000000)>>24;
    
11.     if ($b1<0) $b1+=0x100;
    
12.     $b2=($Int & 0x00ff0000)>>16;
    
13.     if ($b2<0) $b2+=0x100;
    
14.     $b3=($Int & 0x0000ff00)>>8;
    
15.     if ($b3<0) $b3+=0x100;
    
16.     $b4= $Int & 0x000000ff;
    
17.     if ($b4<0) $b4+=0x100;
    
18.     $Ip=$b1.'.'.$b2.'.'.$b3.'.'.$b4;
    
19.     return $Ip;
    
20. }
    
21. 
    
22. 
    
23. class TQQwry
    
24. {
    
25.     var $StartIP = 0;
    
26.     var $EndIP   = 0;
    
27.     var $Country = '';
    
28.     var $Local   = '';
    
29. 
    
30.     var $CountryFlag = 0; // 标识 Country位置
    
31.                           // 0x01,随后3字节为Country偏移,没有Local
    
32.                           // 0x02,随后3字节为Country偏移，接着是Local
    
33.                           // 其他,Country,Local,Local有类似的压缩。可能多重引用。
    
34.     var $fp;
    
35. 
    
36.     var $FirstStartIp = 0;
    
37.     var $LastStartIp = 0;
    
38.     var $EndIpOff = 0 ;
    
39. 
    
40.     function getStartIp ( $RecNo ) {
    
41.         $offset = $this->FirstStartIp + $RecNo * 7 ;
    
42.         @fseek ( $this->fp , $offset , SEEK_SET ) ;
    
43.         $buf = fread ( $this->fp , 7 ) ;
    
44.         $this->EndIpOff = ord($buf[4]) + (ord($buf[5])*256) + (ord($buf[6])* 256*256);
    
45.         $this->StartIp = ord($buf[0]) + (ord($buf[1])*256) + (ord($buf[2])*256*256) + (ord($buf[3])*256*256*256);
    
46.         return $this->StartIp ;
    
47.     }
    
48. 
    
49.     function getEndIp ( ) {
    
50.         @fseek ( $this->fp , $this->EndIpOff , SEEK_SET ) ;
    
51.         $buf = fread ( $this->fp , 5 ) ;
    
52.         $this->EndIp = ord($buf[0]) + (ord($buf[1])*256) + (ord($buf[2])*256*256) + (ord($buf[3])*256*256*256);
    
53.         $this->CountryFlag = ord ( $buf[4] ) ;
    
54.         return $this->EndIp ;
    
55.     }
    
56. 
    
57.     function getCountry ( ) {
    
58. 
    
59.         switch ( $this->CountryFlag ) {
    
60.             case 1:
    
61.             case 2:
    
62.                 $this->Country = $this->getFlagStr ( $this->EndIpOff+4) ;
    
63.                 //echo sprintf('EndIpOffset=(%x)',$this->EndIpOff );
    
64.                 $this->Local = ( 1 == $this->CountryFlag )? '' : $this->getFlagStr ( $this->EndIpOff+8);
    
65.                 break ;
    
66.             default :
    
67.                 $this->Country = $this->getFlagStr ($this->EndIpOff+4) ;
    
68.                 $this->Local =   $this->getFlagStr ( ftell ( $this->fp )) ;
    
69. 
    
70.         }
    
71.     }
    
72. 
    
73. 
    
74.     function getFlagStr ( $offset )
    
75.     {
    
76. 
    
77.         $flag = 0 ;
    
78.         while ( 1 ){
    
79.             @fseek ( $this->fp , $offset , SEEK_SET ) ;
    
80.             $flag = ord ( fgetc ( $this->fp ) ) ;
    
81.             if ( $flag == 1 || $flag == 2 ) {
    
82.                 $buf = fread ($this->fp , 3 ) ;
    
83.                 if ($flag == 2 ){
    
84.                     $this->CountryFlag = 2 ;
    
85.                     $this->EndIpOff = $offset - 4 ;
    
86.                 }
    
87.                 $offset = ord($buf[0]) + (ord($buf[1])*256) + (ord($buf[2])* 256*256);
    
88.             }else{
    
89.                 break ;
    
90.             }
    
91. 
    
92.         }
    
93.         if ( $offset < 12 )
    
94.             return '';
    
95.         @fseek($this->fp , $offset , SEEK_SET ) ;
    
96.         return $this->getStr();
    
97.     }
    
98.     function getStr ( )
    
99.     {
    
100.         $str = '' ;
     
101.         while ( 1 ) {
     
102.             $c = fgetc ( $this->fp ) ;
     
103.             if ( ord ( $c[0] ) == 0  )
     
104.                break ;
     
105.             $str .= $c ;
     
106.         }
     
107.         return $str ;
     
108.     }
     
109. 
     
110. 
     
111.     function qqwry ($dotip) {
     
112. 
     
113.         $nRet;
     
114.         $ip = IpToInt ( $dotip );
     
115. 
     
116.         $this->fp= @fopen(QQWRY, "rb");
     
117.         if ($this->fp == NULL) {
     
118.               $szLocal= "OpenFileError";
     
119.             return 1;
     
120. 
     
121.           }
     
122.           @fseek ( $this->fp , 0 , SEEK_SET ) ;
     
123.         $buf = fread ( $this->fp , 8 ) ;
     
124.         $this->FirstStartIp = ord($buf[0]) + (ord($buf[1])*256) + (ord($buf[2])*256*256) + (ord($buf[3])*256*256*256);
     
125.         $this->LastStartIp  = ord($buf[4]) + (ord($buf[5])*256) + (ord($buf[6])*256*256) + (ord($buf[7])*256*256*256);
     
126. 
     
127.         $RecordCount= floor( ( $this->LastStartIp - $this->FirstStartIp ) / 7);
     
128.         if ($RecordCount <= 1){
     
129.             $this->Country = "FileDataError";
     
130.             fclose ( $this->fp ) ;
     
131.             return 2 ;
     
132.         }
     
133. 
     
134.           $RangB= 0;
     
135.         $RangE= $RecordCount;
     
136.         // Match ...
     
137.         while ($RangB < $RangE-1)
     
138.         {
     
139.           $RecNo= floor(($RangB + $RangE) / 2);
     
140.           $this->getStartIp ( $RecNo ) ;
     
141. 
     
142.             if ( $ip == $this->StartIp )
     
143.             {
     
144.                 $RangB = $RecNo ;
     
145.                 break ;
     
146.             }
     
147.           if ( $ip > $this->StartIp)
     
148.             $RangB= $RecNo;
     
149.           else
     
150.             $RangE= $RecNo;
     
151.         }
     
152.         $this->getStartIp ( $RangB ) ;
     
153.         $this->getEndIp ( ) ;
     
154. 
     
155.         if ( ( $this->StartIp  <= $ip ) && ( $this->EndIp >= $ip ) ){
     
156.             $nRet = 0 ;
     
157.             $this->getCountry ( ) ;
     
158.            
     
159.             $this->Local = str_replace("（我们一定要解放台湾！！！）", "", $this->Local);
     
160. 
     
161.         }else {
     
162.             $nRet = 3 ;
     
163.             $this->Country = '未知' ;
     
164.             $this->Local = '' ;
     
165.         }
     
166.         fclose ( $this->fp ) ;
     
167.         return $nRet ;
     
168.     }
     
169. }

复制代码

二、查找

1. function convertip($ip) {
   
2.         $datadir = DISCUZ_ROOT.'./ipdata/';
   
3.         $ip_detail = explode('.', $ip);
   
4.         if(file_exists($datadir.$ip_detail[0].'.txt')) {
   
5.                 $ip_fdata = fopen($datadir.$ip_detail[0].'.txt', 'r');
   
6.         } else {
   
7.                 if(!($ip_fdata = fopen($datadir.'0.txt', 'r'))) {
   
8.                         echo 'Invalid IP data file';
   
9.                 }
   
10.         }
    
11.         for ($i = 0; $i <= 3; $i++) {
    
12.                 $ip_detail[$i] = sprintf('%03d', $ip_detail[$i]);
    
13.         }
    
14.         $ip = join('.', $ip_detail);
    
15.         do {
    
16.                 $ip_data = fgets($ip_fdata, 200);
    
17.                 $ip_data_detail = explode('|', $ip_data);
    
18.                 if($ip >= $ip_data_detail[0] && $ip <= $ip_data_detail[1]) {
    
19.                         fclose($ip_fdata);
    
20.                         return $ip_data_detail[2].$ip_data_detail[3];
    
21.                 }
    
22.         } while(!feof($ip_fdata));
    
23.         fclose($ip_fdata);
    
24.         return 'UNKNOWN';
    
25. }

复制代码

改为：

1. function convertip($ip) {
   
2. $wry = new TQQwry ;
   
3.     $nRet = $wry->qqwry ( $ip );
   
4.    return $wry->Country.$wry->Local ;
   
5. 
   
6. }

复制代码

三、把QQ纯真IP数据文件QQwry.dat改名为wry.dat，上传ipdata目录。OK了。

最新IP数据文件下载地址：http://www3.skycn.com/soft/14344.html

[ 本帖最后由 1223 于 2005-10-13 21:08 编辑 ]

测试成功，因为只有你点了察看才显示IP。。。所以不影响速度。

[ 本帖最后由 1223 于 2005-10-12 02:43 编辑 ]

要不要传上QQ的IP数据库？

要上传。。看我最后写的。

哦
才看到
我的察看IP一直没改，所以看到的一直是未知地区

我也是刚刚改的，，很爽。

IP库去哪里下载？
好人做到底吧

http://www.gamemx.com/Discuz!_4.0.0_SC_GBK.zip

这个是官方4.0商业版。你解压缩以后，把ipdata目录里的wry.dat，上传到你的ipdata目录里就OK了。

原帖由 fhg007 于 2005-10-12 02:29 发表
会变慢吗？

因为只有你点了察看才显示IP。。。所以不影响速度。