求 php 大牛帮忙呀!!! - V2EX
V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
sbgone
V2EX    问与答

求 php 大牛帮忙呀!!!

  •  
  • /div>   sbgone 2014-11-22 16:49:42 +08:00 2273 次点击
    这是一个创建于 4058 天前的主题,其中的信息可能已经有所发展或是发生改变。
    <?php
    //返回当前IP的城市字符串
    function convertip($ip,$dir='') {
    //IP数据文件路径
    $dat_path = $dir.'date/ip_date.Dat';

    //检查IP地址
    if(!preg_match("/^(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])\.(\d{1,2}|1\d\d|2[0-4]\d|25[0-5])$/", $ip)) {
    return 'IP地址错误';
    }
    //打开IP数据文件
    if(!$fd = @fopen($dat_path, 'rb')){
    return 'IP数据文件不存在或拒绝访问';
    }

    //分解IP进行运算,得出整形数
    $ip = explode('.', $ip);
    $ipNum = $ip[0] * 16777216 + $ip[1] * 65536 + $ip[2] * 256 + $ip[3];

    //获取IP数据索引开始和结束位置
    $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;

    //使用二分查找法从索引记录中搜索匹配的IP记录
    while($ip1num>$ipNum || $ip2num<$ipNum) {
    $Middle= intval(($EndNum + $BeginNum) / 2);

    //偏移指针到索引位置读取4个字节
    fseek($fd, $ipbegin + 7 * $Middle);
    $ipData1 = fread($fd, 4);
    if(strlen($ipData1) < 4) {
    fclose($fd);
    return '系统错误';
    }
    //提取出来的数据转换成长整形,如果数据是负数则加上2的32次幂
    $ip1num = implode('', unpack('L', $ipData1));
    if($ip1num < 0) $ip1num += pow(2, 32);

    //提取的长整型数大于我们IP地址则修改结束位置进行下一次循环
    if($ip1num > $ipNum) {
    $EndNum = $Middle;
    continue;
    }

    //取完上一个索引后取下一个索引
    $DataSeek = fread($fd, 3);
    if(strlen($DataSeek) < 3) {
    fclose($fd);
    return '系统错误';
    }
    $DataSeek = implode('', unpack('L', $DataSeek.chr(0)));
    fseek($fd, $DataSeek);
    $ipData2 = fread($fd, 4);
    if(strlen($ipData2) < 4) {
    fclose($fd);
    return '系统错误';
    }
    $ip2num = implode('', unpack('L', $ipData2));
    if($ip2num < 0) $ip2num += pow(2, 32);

    //没找到提示未知
    if($ip2num < $ipNum) {
    if($Middle == $BeginNum) {
    fclose($fd);
    return '未知错误';
    }
    $BeginNum = $Middle;
    }
    }

    $ipFlag = fread($fd, 1);
    if($ipFlag == chr(1)) {
    $ipSeek = fread($fd, 3);
    if(strlen($ipSeek) < 3) {
    fclose($fd);
    return '系统错误';
    }
    $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 '系统错误';
    }
    $ipFlag = fread($fd, 1);
    if($ipFlag == chr(2)) {
    $AddrSeek2 = fread($fd, 3);
    if(strlen($AddrSeek2) < 3) {
    fclose($fd);
    return '系统错误';
    }
    $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 '系统错误';
    }
    $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 = '未知错误';
    }

    return $ipaddr;
    }


    //查找字符串
    function findstr($str, $substr)
    {
    $m = strlen($str);
    $n = strlen($substr );
    if ($m < $n) return false ;
    for ($i=0; $i <=($m-$n+1); $i ++){
    $sub = substr( $str, $i, $n);
    if ( strcmp($sub, $substr) == 0) return true;
    }
    return false ;
    }
    ?>


    别人给的源码..搭建的时候,第33行,121行,136行出现了问题。。
    Notice: Undefined variable: ip1num in D:\sb\sb\WWW\ip.php on line 33

    Notice: Undefined variable: ip2num in D:\sb\sb\WWW\ip.php on line 33

    Notice: Undefined variable: ipAddr1 in D:\sb\sb\WWW\ip.php on line 121

    Notice: Undefined variable: ipAddr2 in D:\sb\sb\WWW\ip.php on line 136
    2 条回复    2014-12-04 15:20:38 +08:00
    sbgone
        1
    sbgone  
    OP
       2014-11-22 16:51:32 +08:00
    不会php好无力呀
    eenot
        2
    eenot  
       2014-12-04 15:20:38 +08:00
    这个不是php语句学错了,而是这个你的php的新版本 使用php5.2就不会报错了
    关于     帮助文档     自助推广系统     博客     API     FAQ     Solana     2578 人在线   最高记录 6679       Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 67ms UTC 13:57 PVG 21:57 LAX 05:57 JFK 08:57
    Do have faith in what you're doing.
    ubao msn snddm index pchome yahoo rakuten mypaper meadowduck bidyahoo youbao zxmzxm asda bnvcg cvbfg dfscv mmhjk xxddc yybgb zznbn ccubao uaitu acv GXCV ET GDG YH FG BCVB FJFH CBRE CBC GDG ET54 WRWR RWER WREW WRWER RWER SDG EW SF DSFSF fbbs ubao fhd dfg ewr dg df ewwr ewwr et ruyut utut dfg fgd gdfgt etg dfgt dfgd ert4 gd fgg wr 235 wer3 we vsdf sdf gdf ert xcv sdf rwer hfd dfg cvb rwf afb dfh jgh bmn lgh rty gfds cxv xcv xcs vdas fdf fgd cv sdf tert sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf shasha9178 shasha9178 shasha9178 shasha9178 shasha9178 liflif2 liflif2 liflif2 liflif2 liflif2 liblib3 liblib3 liblib3 liblib3 liblib3 zhazha444 zhazha444 zhazha444 zhazha444 zhazha444 dende5 dende denden denden2 denden21 fenfen9 fenf619 fen619 fenfe9 fe619 sdf sdf sdf sdf sdf zhazh90 zhazh0 zhaa50 zha90 zh590 zho zhoz zhozh zhozho zhozho2 lislis lls95 lili95 lils5 liss9 sdf0ty987 sdft876 sdft9876 sdf09876 sd0t9876 sdf0ty98 sdf0976 sdf0ty986 sdf0ty96 sdf0t76 sdf0876 df0ty98 sf0t876 sd0ty76 sdy76 sdf76 sdf0t76 sdf0ty9 sdf0ty98 sdf0ty987 sdf0ty98 sdf6676 sdf876 sd876 sd876 sdf6 sdf6 sdf9876 sdf0t sdf06 sdf0ty9776 sdf0ty9776 sdf0ty76 sdf8876 sdf0t sd6 sdf06 s688876 sd688 sdf86