生在红旗下长在春风里，长期浸泡在河蟹社会里面所以久而久之就有了一些河蟹的思维方式，正好有一段时间在做一个.NET的网站访问统计系统，顺便想着怎么“监视”下每一个留言的博主们的所在地，于是就有了如今下图所示的根据获取到的留言者的IP地址得到留言者所在的地区，当然并没有河蟹社会监视人民群众的意思，纯属了解一下各位博主所在的真实地点，万一是个美女博主不就可以让我有线索可循。
想要把IPv4地址转为真实的地址，肯定要参考IP数据库，商业的IP数据库存储在关系型数据库中，查询和使用都非常方便，但是成本不是个人和小公司愿意承受的，所以简单应用的思路就是利用一些免费的IP数据库或者一些大网站提供的查询API，他们的数据量足够我们使用了。
1. 利用纯真IP数据库
利用本地的QQWry.Dat文件（搜索下载一个QQWry.Dat 文件放到你的wordpress主题根目录下），优点是查询速度非常快，缺点是数据库文件要放在自己的空间内并且要偶尔更新数据库。时间关系废话不多说，下面是使用这个文件的函数，如果是在WordPress里面使用这个功能，把下面的代码写入主题下面的functions.php里面，然后在comments-list的输出即可。仅管理员可见话，则调用代码即可。如果是其他程序引用，输入一个有效的IPv4地址就可以得到一个真实的地址。
以下为引用的内容：
function convertip($ip) {
$dat_path = TEMPLATEPATH."/QQWry.Dat";
if(!$fd = @fopen($dat_path, "rb")){
return "IP date file not exists or access denied";
}
$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 $ipend = implode("", unpack("L", $DataEnd));
if($ipend $ipAllNum = ($ipend - $ipbegin) / 7 + 1;
$BeginNum = 0;
$EndNum = $ipAllNum;
while($ip1num>$ipNum $ip2num $Middle= intval(($EndNum + $BeginNum) / 2);
fseek($fd, $ipbegin + 7 * $Middle);
$ipData1 = fread($fd, 4);
if(strlen($ipData1) fclose($fd);
return "System Error";
}
$ip1num = implode("", unpack("L", $ipData1));
if($ip1num if($ip1num > $ipNum) {
$EndNum = $Middle;
continue;
}
$DataSeek = fread($fd, 3);
if(strlen($DataSeek) fclose($fd);
return "System Error";
}
$DataSeek = implode("", unpack("L", $DataSeek.chr(0)));
fseek($fd, $DataSeek);
$ipData2 = fread($fd, 4);
if(strlen($ipData2) fclose($fd);
return "System Error";
}
$ip2num = implode("", unpack("L", $ipData2));
if($ip2num if($ip2num if($Middle == $BeginNum) {
fclose($fd);
return "Unknown";
}
$BeginNum = $Middle;
}
}
$ipFlag = fread($fd, 1);
if($ipFlag == chr(1)) {
$ipSeek = fread($fd, 3);
if(strlen($ipSeek) 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) fclose($fd);
return "System Error";
}
$ipFlag = fread($fd, 1);
if($ipFlag == chr(2)) {
$AddrSeek2 = fread($fd, 3);
if(strlen($AddrSeek2) 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) 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";
}
$ipaddr = iconv("gbk", "utf-8//IGNORE", $ipaddr);
if( $ipaddr != " " )
return $ipaddr;
else
$ipaddr = "地址未知！火星来客？";
return $ipaddr;
}
