当前位置：Gxlcms > PHP教程 > 再次提供一个IP地理位置查询类

再次提供一个IP地理位置查询类

时间：2021-07-01 10:21:17 帮助过：20人阅读

IP 地理位置查询类
  2. /**
  3. 文件名：IpLocation.class.php
  4. * IP 地理位置查询类 (主文件我上传上来了 还有一个测试文件我上传上来,同时还有一个QQWry.Dat这个大家可以在纯真IP库下载到 因为有6M多 所以这里不上传上来了)
  5. *
  6. * @author 马秉尧
  7. * @version 1.5
  8. * @copyright 2005 CoolCode.CN
  9. */
  10. class IpLocation {
  11. /**
  12. * QQWry.Dat文件指针
  13. * @var resource
  14. */
  15. var $fp;
  17. /**
  18. * 第一条IP记录的偏移地址
  19. * @var int
  20. */
  21. var $firstip;
  23. /**
  24. * 最后一条IP记录的偏移地址
  25. * @var int
  26. */
  27. var $lastip;
  29. /**
  30. * IP记录的总条数（不包含版本信息记录）
  31. * @var int
  32. */
  33. var $totalip;
  35. /**
  36. * 构造函数，打开 QQWry.Dat 文件并初始化类中的信息
  37. * @param string $filename
  38. * @return IpLocation
  39. */
  40. function __construct($filename = "QQWry.Dat") {
  41. $this->fp = 0;
  42. if (($this->fp = @fopen($filename, 'rb')) !== false) {
  43. $this->firstip = $this->getlong();
  44. $this->lastip = $this->getlong();
  45. $this->totalip = ($this->lastip - $this->firstip) / 7;
  46. //注册析构函数，使其在程序执行结束时执行
  47. register_shutdown_function(array(&$this, '__construct'));
  48. }
  49. }
  51. /**
  52. * 返回读取的长整型数
  53. * @access private
  54. * @return int
  55. */
  56. function getlong() {
  57. //将读取的little-endian编码的4个字节转化为长整型数
  58. $result = unpack('Vlong', fread($this->fp, 4));
  59. return $result['long'];
  60. }
  62. /**
  63. * 返回读取的3个字节的长整型数
  64. *
  65. * @access private
  66. * @return int
  67. */
  68. function getlong3() {
  69. //将读取的little-endian编码的3个字节转化为长整型数
  70. $result = unpack('Vlong', fread($this->fp, 3).chr(0));
  71. return $result['long'];
  72. }
  74. /**
  75. * 返回压缩后可进行比较的IP地址
  76. *
  77. * @access private
  78. * @param string $ip
  79. * @return string
  80. */
  81. function packip($ip) {
  82. // 将IP地址转化为长整型数，如果在PHP5中，IP地址错误，则返回False，
  83. // 这时intval将Flase转化为整数-1，之后压缩成big-endian编码的字符串
  84. return pack('N', intval(ip2long($ip)));
  85. }
  87. /**
  88. * 返回读取的字符串
  89. *
  90. * @access private
  91. * @param string $data
  92. * @return string
  93. */
  94. function getstring($data = "") {
  95. $char = fread($this->fp, 1);
  96. while (ord($char) > 0) { // 字符串按照C格式保存，以\0结束
  97. $data .= $char; // 将读取的字符连接到给定字符串之后
  98. $char = fread($this->fp, 1);
  99. }
  100. return $data;
  101. }
  103. /**
  104. * 返回地区信息
  105. *
  106. * @access private
  107. * @return string
  108. */
  109. function getarea() {
  110. $byte = fread($this->fp, 1); // 标志字节
  111. switch (ord($byte)) {
  112. case 0: // 没有区域信息
  113. $area = "";
  114. break;
  115. case 1:
  116. case 2: // 标志字节为1或2，表示区域信息被重定向
  117. fseek($this->fp, $this->getlong3());
  118. $area = $this->getstring();
  119. break;
  120. default: // 否则，表示区域信息没有被重定向
  121. $area = $this->getstring($byte);
  122. break;
  123. }
  124. return $area;
  125. }
  127. /**
  128. * 根据所给 IP 地址或域名返回所在地区信息
  129. * @access public
  130. * @param string $ip
  131. * @return array
  132. */
  133. function getlocation($ip) {
  134. if (!$this->fp) return null; // 如果数据文件没有被正确打开，则直接返回空
  135. $location['ip'] = gethostbyname($ip); // 将输入的域名转化为IP地址
  136. $ip = $this->packip($location['ip']); // 将输入的IP地址转化为可比较的IP地址
  137. // 不合法的IP地址会被转化为255.255.255.255
  138. // 对分搜索
  139. $l = 0; // 搜索的下边界
  140. $u = $this->totalip; // 搜索的上边界
  141. $findip = $this->lastip; // 如果没有找到就返回最后一条IP记录（QQWry.Dat的版本信息）
  142. while ($l <= $u) { // 当上边界小于下边界时，查找失败
  143. $i = floor(($l + $u) / 2); // 计算近似中间记录
  144. fseek($this->fp, $this->firstip + $i * 7);
  145. $beginip = strrev(fread($this->fp, 4)); // 获取中间记录的开始IP地址
  146. // strrev函数在这里的作用是将little-endian的压缩IP地址转化为big-endian的格式
  147. // 以便用于比较，后面相同。
  148. if ($ip < $beginip) { // 用户的IP小于中间记录的开始IP地址时
  149. $u = $i - 1; // 将搜索的上边界修改为中间记录减一
  150. } else {
  151. fseek($this->fp, $this->getlong3());
  152. $endip = strrev(fread($this->fp, 4)); // 获取中间记录的结束IP地址
  153. if ($ip > $endip) { // 用户的IP大于中间记录的结束IP地址时
  154. $l = $i + 1; // 将搜索的下边界修改为中间记录加一
  155. } else { // 用户的IP在中间记录的IP范围内时
  156. $findip = $this->firstip + $i * 7;
  157. break; // 则表示找到结果，退出循环
  158. }
  159. }
  160. }
  162. //获取查找到的IP地理位置信息
  163. fseek($this->fp, $findip);
  164. $location['beginip'] = long2ip($this->getlong()); // 用户IP所在范围的开始地址
  165. $offset = $this->getlong3();
  166. fseek($this->fp, $offset);
  167. $location['endip'] = long2ip($this->getlong()); // 用户IP所在范围的结束地址
  168. $byte = fread($this->fp, 1); // 标志字节
  169. switch (ord($byte)) {
  170. case 1: // 标志字节为1，表示国家和区域信息都被同时重定向
  171. $countryOffset = $this->getlong3(); // 重定向地址
  172. fseek($this->fp, $countryOffset);
  173. $byte = fread($this->fp, 1); // 标志字节
  174. switch (ord($byte)) {
  175. case 2: // 标志字节为2，表示国家信息又被重定向
  176. fseek($this->fp, $this->getlong3());
  177. $location['country'] = $this->getstring();
  178. fseek($this->fp, $countryOffset + 4);
  179. $location['area'] = $this->getarea();
  180. break;
  181. default: // 否则，表示国家信息没有被重定向
  182. $location['country'] = $this->getstring($byte);
  183. $location['area'] = $this->getarea();
  184. break;
  185. }
  186. break;
  187. case 2: // 标志字节为2，表示国家信息被重定向
  188. fseek($this->fp, $this->getlong3());
  189. $location['country'] = $this->getstring();
  190. fseek($this->fp, $offset + 8);
  191. $location['area'] = $this->getarea();
  192. break;
  193. default: // 否则，表示国家信息没有被重定向
  194. $location['country'] = $this->getstring($byte);
  195. $location['area'] = $this->getarea();
  196. break;
  197. }
  198. if ($location['country'] == " CZ88.NET") { // CZ88.NET表示没有有效信息
  199. $location['country'] = "未知";
  200. }
  201. if ($location['area'] == " CZ88.NET") {
  202. $location['area'] = "";
  203. }
  204. return $location;
  205. }
  207. /**
  208. * 析构函数，用于在页面执行结束后自动关闭打开的文件。
  209. *
  210. */
  211. function __desctruct() {
  212. if ($this->fp) {
  213. fclose($this->fp);
  214. }
  215. $this->fp = 0;
  216. }
  217. }
  218. ?>
  1. require_once('IpLocation.class.php');
  2. $ip='127.0.0.1';
  3. $idADDR=new IpLocation();
  4. print_r($idADDR->getlocation($ip));
  5. ?>
  2. /**
  3. * IP 地理位置查询类
  4. *
  5. * @author 马秉尧
  6. * @version 1.5
  7. * @copyright 2005 CoolCode.CN
  8. */
  9. class IpLocation {
  10. /**
  11. * QQWry.Dat文件指针
  12. * @var resource
  13. */
  14. var $fp;
  16. /**
  17. * 第一条IP记录的偏移地址
  18. * @var int
  19. */
  20. var $firstip;
  22. /**
  23. * 最后一条IP记录的偏移地址
  24. * @var int
  25. */
  26. var $lastip;
  28. /**
  29. * IP记录的总条数（不包含版本信息记录）
  30. * @var int
  31. */
  32. var $totalip;
  34. /**
  35. * 构造函数，打开 QQWry.Dat 文件并初始化类中的信息
  36. * @param string $filename
  37. * @return IpLocation
  38. */
  39. function __construct($filename = "QQWry.Dat") {
  40. $this->fp = 0;
  41. if (($this->fp = @fopen($filename, 'rb')) !== false) {
  42. $this->firstip = $this->getlong();
  43. $this->lastip = $this->getlong();
  44. $this->totalip = ($this->lastip - $this->firstip) / 7;
  45. //注册析构函数，使其在程序执行结束时执行
  46. register_shutdown_function(array(&$this, '__construct'));
  47. }
  48. }
  50. /**
  51. * 返回读取的长整型数
  52. * @access private
  53. * @return int
  54. */
  55. function getlong() {
  56. //将读取的little-endian编码的4个字节转化为长整型数
  57. $result = unpack('Vlong', fread($this->fp, 4));
  58. return $result['long'];
  59. }
  61. /**
  62. * 返回读取的3个字节的长整型数
  63. *
  64. * @access private
  65. * @return int
  66. */
  67. function getlong3() {
  68. //将读取的little-endian编码的3个字节转化为长整型数
  69. $result = unpack('Vlong', fread($this->fp, 3).chr(0));
  70. return $result['long'];
  71. }
  73. /**
  74. * 返回压缩后可进行比较的IP地址
  75. *
  76. * @access private
  77. * @param string $ip
  78. * @return string
  79. */
  80. function packip($ip) {
  81. // 将IP地址转化为长整型数，如果在PHP5中，IP地址错误，则返回False，
  82. // 这时intval将Flase转化为整数-1，之后压缩成big-endian编码的字符串
  83. return pack('N', intval(ip2long($ip)));
  84. }
  86. /**
  87. * 返回读取的字符串
  88. *
  89. * @access private
  90. * @param string $data
  91. * @return string
  92. */
  93. function getstring($data = "") {
  94. $char = fread($this->fp, 1);
  95. while (ord($char) > 0) { // 字符串按照C格式保存，以\0结束
  96. $data .= $char; // 将读取的字符连接到给定字符串之后
  97. $char = fread($this->fp, 1);
  98. }
  99. return $data;
  100. }
  102. /**
  103. * 返回地区信息
  104. *
  105. * @access private
  106. * @return string
  107. */
  108. function getarea() {
  109. $byte = fread($this->fp, 1); // 标志字节
  110. switch (ord($byte)) {
  111. case 0: // 没有区域信息
  112. $area = "";
  113. break;
  114. case 1:
  115. case 2: // 标志字节为1或2，表示区域信息被重定向
  116. fseek($this->fp, $this->getlong3());
  117. $area = $this->getstring();
  118. break;
  119. default: // 否则，表示区域信息没有被重定向
  120. $area = $this->getstring($byte);
  121. break;
  122. }
  123. return $area;
  124. }
  126. /**
  127. * 根据所给 IP 地址或域名返回所在地区信息
  128. * @access public
  129. * @param string $ip
  130. * @return array
  131. */
  132. function getlocation($ip) {
  133. if (!$this->fp) return null; // 如果数据文件没有被正确打开，则直接返回空
  134. $location['ip'] = gethostbyname($ip); // 将输入的域名转化为IP地址
  135. $ip = $this->packip($location['ip']); // 将输入的IP地址转化为可比较的IP地址
  136. // 不合法的IP地址会被转化为255.255.255.255
  137. // 对分搜索
  138. $l = 0; // 搜索的下边界
  139. $u = $this->totalip; // 搜索的上边界
  140. $findip = $this->lastip; // 如果没有找到就返回最后一条IP记录（QQWry.Dat的版本信息）
  141. while ($l <= $u) { // 当上边界小于下边界时，查找失败
  142. $i = floor(($l + $u) / 2); // 计算近似中间记录
  143. fseek($this->fp, $this->firstip + $i * 7);
  144. $beginip = strrev(fread($this->fp, 4)); // 获取中间记录的开始IP地址
  145. // strrev函数在这里的作用是将little-endian的压缩IP地址转化为big-endian的格式
  146. // 以便用于比较，后面相同。
  147. if ($ip < $beginip) { // 用户的IP小于中间记录的开始IP地址时
  148. $u = $i - 1; // 将搜索的上边界修改为中间记录减一
  149. } else {
  150. fseek($this->fp, $this->getlong3());
  151. $endip = strrev(fread($this->fp, 4)); // 获取中间记录的结束IP地址
  152. if ($ip > $endip) { // 用户的IP大于中间记录的结束IP地址时
  153. $l = $i + 1; // 将搜索的下边界修改为中间记录加一
  154. } else { // 用户的IP在中间记录的IP范围内时
  155. $findip = $this->firstip + $i * 7;
  156. break; // 则表示找到结果，退出循环
  157. }
  158. }
  159. }
  161. //获取查找到的IP地理位置信息
  162. fseek($this->fp, $findip);
  163. $location['beginip'] = long2ip($this->getlong()); // 用户IP所在范围的开始地址
  164. $offset = $this->getlong3();
  165. fseek($this->fp, $offset);
  166. $location['endip'] = long2ip($this->getlong()); // 用户IP所在范围的结束地址
  167. $byte = fread($this->fp, 1); // 标志字节
  168. switch (ord($byte)) {
  169. case 1: // 标志字节为1，表示国家和区域信息都被同时重定向
  170. $countryOffset = $this->getlong3(); // 重定向地址
  171. fseek($this->fp, $countryOffset);
  172. $byte = fread($this->fp, 1); // 标志字节
  173. switch (ord($byte)) {
  174. case 2: // 标志字节为2，表示国家信息又被重定向
  175. fseek($this->fp, $this->getlong3());
  176. $location['country'] = $this->getstring();
  177. fseek($this->fp, $countryOffset + 4);
  178. $location['area'] = $this->getarea();
  179. break;
  180. default: // 否则，表示国家信息没有被重定向
  181. $location['country'] = $this->getstring($byte);
  182. $location['area'] = $this->getarea();
  183. break;
  184. }
  185. break;
  186. case 2: // 标志字节为2，表示国家信息被重定向
  187. fseek($this->fp, $this->getlong3());
  188. $location['country'] = $this->getstring();
  189. fseek($this->fp, $offset + 8);
  190. $location['area'] = $this->getarea();
  191. break;
  192. default: // 否则，表示国家信息没有被重定向
  193. $location['country'] = $this->getstring($byte);
  194. $location['area'] = $this->getarea();
  195. break;
  196. }
  197. if ($location['country'] == " CZ88.NET") { // CZ88.NET表示没有有效信息
  198. $location['country'] = "未知";
  199. }
  200. if ($location['area'] == " CZ88.NET") {
  201. $location['area'] = "";
  202. }
  203. return $location;
  204. }
  206. /**
  207. * 析构函数，用于在页面执行结束后自动关闭打开的文件。
  208. *
  209. */
  210. function __desctruct() {
  211. if ($this->fp) {
  212. fclose($this->fp);
  213. }
  214. $this->fp = 0;
  215. }
  216. }
  217. ?>

人气教程排行

本站所有资源全部来源于网络，若本站发布的内容侵害到您的隐私或者利益，请联系我们删除！