再次提供一個IP地理位置查詢類

IP 地理位置查詢類

/**
檔名：IpLocation.class.php
* IP 地理位置查詢類別(主檔案我上傳上來了還有一個測試檔案我上傳上來,同時還有一個QQWry.Dat這個大家可以在純真IP庫下載到因為有6M多所以這裡不上傳上來了)
*
* @author 馬秉堯
* @version 1.5
* @copyright 2005 CoolCode.CN
*/
class IpLocation {
 /**
 * QQWry.Dat檔案指標
 * @var resource
*/
 var $fp;

 /**
 * 第一筆IP記錄的偏移位址
 * @var int
*/
 var $firstip;

 /**
 * 最後一筆IP記錄的偏移位址
 * @var int
*/
 var $lastip;

 * IP記錄的總條數（不包含版本資訊記錄）
 * @var int
*/
 var $lastip;

* 建構函數，開啟 QQWry.Dat 檔案並初始化類別中的資訊
* @param string $filename
* @return IpLocation
 /**
* 傳回讀取的長整數數
* @access private
* @return int
*/
 var $totalip;

/**
* 傳回讀取的3個位元組的長整數數
*
* @access private
* @return int
*/
function __construct($filename = "QQWry.Dat") {
 $ this->fp = 0;
 if (($this->fp = @fopen($filename, 'rb')) !== false) {
 $this->firstip = $this->getlong ();
 $this->lastip = $this->getlong();
 $this->totalip = ($this->lastip - $this->firstip) / 7;
 //註冊析構函數，使其在程式執行結束時執行
 register_shutdown_function(array(&$this, '__construct'));
 }
}

/**
* 回傳壓縮後可比較的IP位址
*
* @access private
* @param string $ip
* @return string
 */
function getlong() {
 //將讀取的little-endian編碼的4個位元組轉換為長整數數
 $result = unpack('Vlong', fread($this ->fp, 4));
 return $result['long'];
}

/**
* 回傳讀取的字串
*
* @access private
* @param string $data
* @return string
*/
function getlong3() {
 / /將讀取的little-endian編碼的3個位元組轉換為長整數數
 $result = unpack('Vlong', fread($this->fp, 3).chr(0));
 return $result['long'];
}

/**
* 回傳地區資訊
*
* @access private
* @return string
*/
function packip($ip) {
 // 將IP位址轉換為長整數型數，如果在PHP5中，IP位址錯誤，則傳回False，
 // 這時intval將Flase轉換為整數-1，之後壓縮成big-endian編碼的字串
 return pack(' N', intval(ip2long($ip)));
}

/**
* 根據所給予 IP 位址或網域名稱返回所在地區資訊
* @access public
* @param string $ip
* @return array
*/
function getstring($data = "") {
 $char = fread($this->fp, 1);
 while (ord($char) > 0) { // 字串依照C格式儲存，以
 if ($ip  $u = $i - 1; // 將搜尋的上邊界修改為中間記錄減一
 } else {
 fseek($this->fp, $this->getlong3());
 $endip = strrev(fread($this->fp, 4)); // 取得中間記錄的結束IP位址
 if ($ip > $endip) { // 使用者的IP大於中間記錄的結束IP位址時
 $l = $i + 1; // 將搜尋的下邊界修改為中間記錄加一
 } else { // 使用者的IP在中間記錄的IP範圍內時
 $findip = $this->firstip + $i * 7;
 break; // 則表示找到結果，退出迴圈
 }
 }
}

//取得查找到的IP地理位置資訊
fseek($this->fp, $findip);
$ location['beginip'] = long2ip($this->getlong()); // 使用者IP所在範圍的開始位址
$offset = $this->getlong3();
fseek($this-> fp, $offset);
$location['endip'] = long2ip($this->getlong()); // 使用者IP所在範圍的結束位址
$byte = fread($this->fp , 1); // 標誌位元組
switch (ord($byte)) {
 case 1: // 標誌位元組為1，表示國家和區域資訊都同時被重新導向
 $countryOffset = $this->getlong3(); // 重定向位址
 fseek($this->fp, $countryOffset);
 $byte = fread($this->fp, 1); // 標誌字節
 switch (ord($byte)) {
 case 2: // 標誌位元組為2，表示國家資訊再重新重新導向
 fseek($this->fp, $this->getlong3 ());
 $location['country'] = $this->getstring();
 fseek($this->fp, $countryOffset + 4);
 $location['area'] = $this->getarea();
 break;
 default: // 否則，表示國家資訊沒有被重新導向
 $location['country'] = $this->getstring($byte) ;
 $location['area'] = $this->getarea();
 break;
 }
 break;
 case 2: // 標誌位元組為2，表示國家訊息被重新導向
 fseek($this->fp, $this->getlong3());
 $location['country'] = $this->getstring();
 fseek($this ->fp, $offset + 8);
 $location['area'] = $this->getarea();
 break;
 default: // 否則，表示國家資訊沒有被重新導向
 $location['country'] = $this->getstring($byte);
 $location['area'] = $this->getarea();
 break;
}
if ($location['country'] == " CZ88.NET") { // CZ88.NET表示沒有有效資訊
 $location['country'] = "未知";
}
if ($location['area'] == " CZ88.NET") {
 $location['area'] = "";
}
return $location;
}

/**
* 析構函數，用於在頁面執行結束後自動關閉已開啟的檔案。
*
*/
function __desctruct() {
 if ($this->fp) {
 fclose($this->fp);
 }
 fclose($this->fp);
 }
 $this->fp = 0;
}

複製程式碼

 require_once('IpLocation.class.php');
 $ip='127.0.0.1';
 $idADDR=new IpLocation( );

複製程式碼

/**
* IP 地理位置查詢類別
*
* @author 馬秉堯
* @version 1.5
* @copyright 2005 CoolCode.CN
*/
class IpLocation {
 /**
 * QQWry.Dat檔案指標
 * @var resource
*/
 var $fp;

 /**
 * 第一筆IP記錄的偏移位址
 * @var int
*/
 var $firstip;

 /**
 * 最後一筆IP記錄的偏移位址
 * @var int
*/
 var $lastip;

 * IP記錄的總條數（不包含版本資訊記錄）
 * @var int
*/
 var $lastip;

* 建構函數，開啟 QQWry.Dat 檔案並初始化類別中的資訊
* @param string $filename
* @return IpLocation
 /**
* 傳回讀取的長整數數
* @access private
* @return int
*/
 var $totalip;

/**
* 傳回讀取的3個位元組的長整數數
*
* @access private
* @return int
*/
function __construct($filename = "QQWry.Dat") {
 $ this->fp = 0;
 if (($this->fp = @fopen($filename, 'rb')) !== false) {
 $this->firstip = $this->getlong ();
 $this->lastip = $this->getlong();
 $this->totalip = ($this->lastip - $this->firstip) / 7;
 //註冊析構函數，使其在程式執行結束時執行
 register_shutdown_function(array(&$this, '__construct'));
 }
}

/**
* 回傳壓縮後可比較的IP位址
*
* @access private
* @param string $ip
* @return string
 */
function getlong() {
 //將讀取的little-endian編碼的4個位元組轉換為長整數數
 $result = unpack('Vlong', fread($this ->fp, 4));
 return $result['long'];
}

/**
* 回傳讀取的字串
*
* @access private
* @param string $data
* @return string
*/
function getlong3() {
 / /將讀取的little-endian編碼的3個位元組轉換為長整數數
 $result = unpack('Vlong', fread($this->fp, 3).chr(0));
 return $result['long'];
}

/**
* 回傳地區資訊
*
* @access private
* @return string
*/
function packip($ip) {
 // 將IP位址轉換為長整數型數，如果在PHP5中，IP位址錯誤，則傳回False，
 // 這時intval將Flase轉換為整數-1，之後壓縮成big-endian編碼的字串
 return pack(' N', intval(ip2long($ip)));
}

/**
* 根據所給予 IP 位址或網域名稱返回所在地區資訊
* @access public
* @param string $ip
* @return array
*/
function getstring($data = "") {
 $char = fread($this->fp, 1);
 while (ord($char) > 0) { // 字串依照C格式儲存，以
 if ($ip  $u = $i - 1; // 將搜尋的上邊界修改為中間記錄減一
 } else {
 fseek($this->fp, $this->getlong3());
 $endip = strrev(fread($this->fp, 4)); // 取得中間記錄的結束IP位址
 if ($ip > $endip) { // 使用者的IP大於中間記錄的結束IP位址時
 $l = $i + 1; // 將搜尋的下邊界修改為中間記錄加一
 } else { // 使用者的IP在中間記錄的IP範圍內時
 $findip = $this->firstip + $i * 7;
 break; // 則表示找到結果，退出迴圈
 }
 }
}

//取得查找到的IP地理位置資訊
fseek($this->fp, $findip);
$ location['beginip'] = long2ip($this->getlong()); // 使用者IP所在範圍的開始位址
$offset = $this->getlong3();
fseek($this-> fp, $offset);
$location['endip'] = long2ip($this->getlong()); // 使用者IP所在範圍的結束位址
$byte = fread($this->fp , 1); // 標誌位元組
switch (ord($byte)) {
 case 1: // 標誌位元組為1，表示國家和區域資訊都同時被重新導向
 $countryOffset = $this->getlong3(); // 重定向位址
 fseek($this->fp, $countryOffset);
 $byte = fread($this->fp, 1); // 標誌字節
 switch (ord($byte)) {
 case 2: // 標誌位元組為2，表示國家資訊再重新重新導向
 fseek($this->fp, $this->getlong3 ());
 $location['country'] = $this->getstring();
 fseek($this->fp, $countryOffset + 4);
 $location['area'] = $this->getarea();
 break;
 default: // 否則，表示國家資訊沒有被重新導向
 $location['country'] = $this->getstring($byte) ;
 $location['area'] = $this->getarea();
 break;
 }
 break;
 case 2: // 標誌位元組為2，表示國家訊息被重新導向
 fseek($this->fp, $this->getlong3());
 $location['country'] = $this->getstring();
 fseek($this ->fp, $offset + 8);
 $location['area'] = $this->getarea();
 break;
 default: // 否則，表示國家資訊沒有被重新導向
 $location['country'] = $this->getstring($byte);
 $location['area'] = $this->getarea();
 break;
}
if ($location['country'] == " CZ88.NET") { // CZ88.NET表示沒有有效資訊
 $location['country'] = "未知";
}
if ($location['area'] == " CZ88.NET") {
 $location['area'] = "";
}
return $location;
}

/**
* 析構函數，用於在頁面執行結束後自動關閉已開啟的檔案。
*
*/
function __desctruct() {
 if ($this->fp) {
 fclose($this->fp);
 }
 fclose($this->fp);
 }
 $this->fp = 0;
}

複製程式碼