DedeCms 根据IP显示地址

DedeCms 根据IP显示地址

版本: V5.3 UTF-8
 

---

将纯真数据库放入\plus目录下..

在评论相应的模板添加,UTF-8版本需要转码

	
$fields['ip']= iconv("GB2312","UTF-8",convertip($fields['ip'])); 

下面是根据纯真获取IP的php函数，测试没有问题。加入用户扩展函数php文件里

	
//根据IP获得真实地址  
	
function convertip($ip) {  
	
   //IP数据文件路径  
	
   $dat_path = 'QQWry.Dat';  
	
   //检查IP地址  
	
  // if(!preg_match("/^d{1,3}.d{1,3}.d{1,3}.d{1,3}$/", $ip)) {  
	
  //     return 'IP Address Error';  
	
  // }  
	
   //打开IP数据文件  
	
   if(!$fd = @fopen($dat_path, 'rb')){  
	
       return 'IP date file not exists or access denied';  
	
   }  
	
 
	
   //分解IP进行运算，得出整形数  
	
   $ip = explode('.', $ip);  
	
   $ipNum = $ip[0] * 16777216 + $ip[1] * 65536 + $ip[2] * 256 + $ip[3];  
	
 
	
   //获取IP数据索引开始和结束位置  
	
   $DataBegin = fread($fd, 4);  
	
   $DataEnd = fread($fd, 4);  
	
   $ipbegin = implode('', unpack('L', $DataBegin));  
	
   if($ipbegin < 0) $ipbegin += pow(2, 32);  
	
   $ipend = implode('', unpack('L', $DataEnd));  
	
   if($ipend < 0) $ipend += pow(2, 32);  
	
   $ipAllNum = ($ipend - $ipbegin) / 7 + 1;  
	
     
	
   $BeginNum = 0;  
	
   $EndNum = $ipAllNum;  
	
 
	
   //使用二分查找法从索引记录中搜索匹配的IP记录  
	
   while($ip1num>$ipNum || $ip2num<$ipNum) {  
	
       $Middle= intval(($EndNum + $BeginNum) / 2);  
	
 
	
       //偏移指针到索引位置读取4个字节  
	
       fseek($fd, $ipbegin + 7 * $Middle);  
	
       $ipData1 = fread($fd, 4);  
	
       if(strlen($ipData1) < 4) {  
	
           fclose($fd);  
	
           return 'System Error';  
	
       }  
	
       //提取出来的数据转换成长整形，如果数据是负数则加上2的32次幂  
	
       $ip1num = implode('', unpack('L', $ipData1));  
	
       if($ip1num < 0) $ip1num += pow(2, 32);  
	
         
	
       //提取的长整型数大于我们IP地址则修改结束位置进行下一次循环  
	
       if($ip1num > $ipNum) {  
	
           $EndNum = $Middle;  
	
           continue;  
	
       }  
	
         
	
       //取完上一个索引后取下一个索引  
	
       $DataSeek = fread($fd, 3);  
	
       if(strlen($DataSeek) < 3) {  
	
           fclose($fd);  
	
           return 'System Error';  
	
       }  
	
       $DataSeek = implode('', unpack('L', $DataSeek.chr(0)));  
	
       fseek($fd, $DataSeek);  
	
       $ipData2 = fread($fd, 4);  
	
       if(strlen($ipData2) < 4) {  
	
           fclose($fd);  
	
           return 'System Error';  
	
       }  
	
       $ip2num = implode('', unpack('L', $ipData2));  
	
       if($ip2num < 0) $ip2num += pow(2, 32);  
	
 
	
       //没找到提示未知  
	
       if($ip2num < $ipNum) {  
	
           if($Middle == $BeginNum) {  
	
               fclose($fd);  
	
               return 'Unknown';  
	
           }  
	
           $BeginNum = $Middle;  
	
       }  
	
   }  
	
 
	
   //下面的代码读晕了，没读明白，有兴趣的慢慢读  
	
   $ipFlag = fread($fd, 1);  
	
   if($ipFlag == chr(1)) {  
	
       $ipSeek = fread($fd, 3);  
	
       if(strlen($ipSeek) < 3) {  
	
           fclose($fd);  
	
           return 'System Error';  
	
       }  
	
       $ipSeek = implode('', unpack('L', $ipSeek.chr(0)));  
	
       fseek($fd, $ipSeek);  
	
       $ipFlag = fread($fd, 1);  
	
   }  
	
 
	
   if($ipFlag == chr(2)) {  
	
       $AddrSeek = fread($fd, 3);  
	
       if(strlen($AddrSeek) < 3) {  
	
           fclose($fd);  
	
           return 'System Error';  
	
       }  
	
       $ipFlag = fread($fd, 1);  
	
       if($ipFlag == chr(2)) {  
	
           $AddrSeek2 = fread($fd, 3);  
	
           if(strlen($AddrSeek2) < 3) {  
	
               fclose($fd);  
	
               return 'System Error';  
	
           }  
	
           $AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));  
	
           fseek($fd, $AddrSeek2);  
	
       } else {  
	
           fseek($fd, -1, SEEK_CUR);  
	
       }  
	
 
	
       while(($char = fread($fd, 1)) != chr(0))  
	
           $ipAddr2 .= $char;  
	
 
	
       $AddrSeek = implode('', unpack('L', $AddrSeek.chr(0)));  
	
       fseek($fd, $AddrSeek);  
	
 
	
       while(($char = fread($fd, 1)) != chr(0))  
	
           $ipAddr1 .= $char;  
	
   } else {  
	
       fseek($fd, -1, SEEK_CUR);  
	
       while(($char = fread($fd, 1)) != chr(0))  
	
           $ipAddr1 .= $char;  
	
 
	
       $ipFlag = fread($fd, 1);  
	
       if($ipFlag == chr(2)) {  
	
           $AddrSeek2 = fread($fd, 3);  
	
           if(strlen($AddrSeek2) < 3) {  
	
               fclose($fd);  
	
               return 'System Error';  
	
           }  
	
           $AddrSeek2 = implode('', unpack('L', $AddrSeek2.chr(0)));  
	
           fseek($fd, $AddrSeek2);  
	
       } else {  
	
           fseek($fd, -1, SEEK_CUR);  
	
       }  
	
       while(($char = fread($fd, 1)) != chr(0)){  
	
           $ipAddr2 .= $char;  
	
       }  
	
   }  
	
   fclose($fd);  
	
 
	
   //最后做相应的替换操作后返回结果  
	
   if(preg_match('/http/i', $ipAddr2)) {  
	
       $ipAddr2 = '';  
	
   }  
	
   $ipaddr = "$ipAddr1 $ipAddr2";  
	
   $ipaddr = preg_replace('/CZ88.NET/is', '', $ipaddr);  
	
   $ipaddr = preg_replace('/^s*/is', '', $ipaddr);  
	
   $ipaddr = preg_replace('/s*$/is', '', $ipaddr);  
	
   if(preg_match('/http/i', $ipaddr) || $ipaddr == '') {  
	
       $ipaddr = 'Unknown';  
	
   }  
	
 
	
   return $ipaddr;  
	
}