根据ip自动显示地区网站的代码.doc

根据ip自动显示地区网站的代码php 根据IP显示地区代码define(IPDATA_MINI, PHPCMS_ROOT.include/ipdata/mini.Dat);define(IPDATA_FULL, PHPCMS_ROOT.include/ipdata/QQWry.Dat);class ip_areavar $fp = NULL;var $func;var $offset;var $index;function ip_area()if(file_exists(IPDATA_MINI)$this-func = data_mini;$this-fp = fopen(IPDATA_MINI, rb);$this-offset = unpack(Nlen, fread($this-fp, 4);$this-index = fread($this-fp, $this-offsetlen 4);elseif(file_exists(IPDATA_FULL)$this-func = data_full;$this-fp = fopen(IPDATA_FULL, rb);function get($ip)$return = ”;if(preg_match(”/d1,3.d1,3.d1,3.d1,3$/”, $ip)$iparray = explode(., $ip);if($iparray0 = 10 | $iparray0 = 127 | ($iparray0 = 192 & $iparray1 = 168) | ($iparray0 = 172 & ($iparray1 = 16 & $iparray1 255 | $iparray1 255 | $iparray2 255 | $iparray3 255)$return = Invalid IP Address;else$return = $this-func ? $this-$this-func($ip) : ”;if(strpos($return, ) != false) $return = substr($return, 0, strpos($return, );if(strtolower(CHARSET) = utf-8) $return = iconv(gbk, utf-8, $return);return $return;function data_mini($ip)$ipdot = explode(., $ip);$ipdot0 = (int)$ipdot0;$ipdot1 = (int)$ipdot1;$ip = pack(N, ip2long($ip);$length = $this-offsetlen 1028;$start = unpack(Vlen, $this-index$ipdot0 * 4 . $this-index$ipdot0 * 4 + 1 . $this-index$ipdot0 * 4 + 2 . $this-index$ipdot0 * 4 + 3);for($start = $startlen * 8 + 1024; $start index$start . $this-index$start + 1 . $this-index$start + 2 . $this-index$start + 3 = $ip)$this-index_offset = unpack(Vlen, $this-index$start + 4 . $this-index$start + 5 . $this-index$start + 6 . “x0);$this-index_length = unpack(Clen, $this-index$start + 7);break;fseek($this-fp, $this-offsetlen + $this-index_offsetlen 1024);if($this-index_lengthlen)return str_replace(- , ”, fread($this-fp, $this-index_lengthlen);elsereturn Unknown;function data_full($ip)rewind($this-fp);$ip = explode(., $ip);$ipNum = $ip0 * 16777216 + $ip1 * 65536 + $ip2 * 256 + $ip3;if(!($DataBegin = fread($this-fp, 4) | !($DataEnd = fread($this-fp, 4) ) return;$ipbegin = implode(”, unpack(L, $DataBegin);if($ipbegin 0) $ipbegin += pow(2, 32);$ipend = implode(, unpack(L, $DataEnd);if($ipend $ipNum | $ip2num fp, $ipbegin + 7 * $Middle);$ipData1 = fread($this-fp, 4);if(strlen($ipData1) fp);return System Error;$ip1num = implode(”, unpack(L, $ipData1);if($ip1num $ipNum)$EndNum = $Middle;continue;$DataSeek = fread($this-fp, 3);if(strlen($DataSeek) fp);return System Error;$DataSeek = implode(”, unpack(L, $DataSeek.chr(0);fseek($this-fp, $DataSeek);$ipData2 = fread($this-fp, 4);if(strlen($ipData2) fp);return System Error;$ip2num = implode(”, unpack(L, $ipData2);if($ip2num 0) $ip2num += pow(2, 32);if($ip2num fp);return Unknown;$BeginNum = $Middle;$ipFlag = fread($this-fp, 1);if($ipFlag = chr(1)$ipSeek = fread($this-fp, 3);if(strlen($ipSeek) fp);return System Error;$ipSeek = implode(”, unpack(L, $ipSeek.chr(0);fseek($this-fp, $ipSeek);$ipFlag = fread($this-fp, 1);if($ipFlag = chr(2)$AddrSeek = fread($this-fp, 3);if(strlen($AddrSeek) fp);return System Error;$ipFlag = fread($this-fp, 1);if($ipFlag = chr(2) $AddrSeek2 = fread($this-fp, 3);if(strlen($AddrSeek2) fp);return System Error;$AddrSeek2 = implode(”, unpack(L, $AddrSeek2.chr(0);fseek($this-fp, $AddrSeek2);elsefseek($this-fp, -1, SEEK_CUR);while($char = fread($this-fp, 1) != chr(0)$ipAddr2 .= $char;$AddrSeek = implode(”, unpack(L, $AddrSeek.chr(0);fseek($this-fp, $AddrSeek);while($char = fread($this-fp, 1) != chr(0)$ipAddr1 .= $char;elsefseek($this-fp, -1, SEEK_CUR);while($char = fread($this-fp, 1) != chr(0)$ipAddr1 .= $char;$ipFlag = fread($this-fp, 1);if($ipFlag = chr(2)$AddrSeek2 = fread($this-fp, 3);if(strlen($AddrSeek2) fp);return System Error;$AddrSeek2 = implode(”, unpack(L, $AddrSeek2.chr(0);fseek($this-fp, $AddrSeek2);elsefseek($this-fp, -1, SEEK_CUR);while($char = fread($this-fp, 1) != chr(0)$ipAddr2 .= $char;if(preg_match(/http/i, $ipAddr2) $ipAddr2 = ”;$ipaddr = “$ipAddr1 $ipAddr2;$ipaddr = preg_replace(/CZ88.NET/is, ”, $ipadd