织梦（DedeCMS）系统将IP地址转换为纯真IP数据库的地区的实现函数

“将织梦系统的IP地址转换为纯真IP数据库的函数”，通过这个函数，可以实现类似于本站评论处的那样的显示IP地址所在地区。
一、实现方法
1）函数编写
本来是以前的版本，我是通过JS方式来调用的，但这种方式在有些页面可能会不兼容。后来就升级了函数方式，但一直没更新。好了，我们来看看具体的函数编写方法：
在/include/extend.func.php 文件中的?>的上面加入以下函数代码：

 

function convertip( $ip){
      $dat_path = DEDEDATA . '/ip/QQWry.dat';
      if(! ereg("^([0-9]{1,3}.){3}[0-9]{1,3}$",  $ip)){
          return 'IP格式错误';
         }
      if(! $fd = @ fopen( $dat_path, 'rb')){
          return '无法打开IP数据库';
         }
      $ip =  explode('.',  $ip);
      $ipNum =  $ip[0] * 16777216 +  $ip[1] * 65536 +  $ip[2] * 256 +  $ip[3];
      $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;
      while( $ip1num >  $ipNum ||  $ip2num <  $ipNum){
          $Middle =  intval(( $EndNum +  $BeginNum) / 2);
          fseek( $fd,  $ipbegin + 7 *  $Middle);
          $ipData1 =  fread( $fd, 4);
          if( strlen( $ipData1) < 4){
              fclose( $fd);
              return 'System Error';
             }
          $ip1num =  implode('',  unpack('L',  $ipData1));
          if( $ip1num < 0)  $ip1num +=  pow(2, 32);
          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;
     }

 

 

  

复制代码      保存后关闭即可。
2）调用方法
直接通过 {dede:field.ip  function="convertip(@me)"/}来调用即可。
在PHP文件中，也可以直接使用：

     $ipadress = convertip( $ip);

 

 

来获得IP地址的地区数据，注意$ip为实际IP地址的变量。