帝國CMS根據ip跳轉到不同的頁面

2024-08-28 12:21:41

字體：大中小

來源：轉載

供稿：網友

<?php

//php獲取ip的算法

$user_IP = ($_SERVER["HTTP_VIA"]) ? $_SERVER["HTTP_X_FORWARDED_FOR"] : $_SERVER["REMOTE_ADDR"];

$user_IP = ($user_IP) ? $user_IP : $_SERVER["REMOTE_ADDR"];



//echo $user_IP;

?>



//===================================

// 功能：IP地址獲取真實地址函數

// 參數：$ip - IP地址

//===================================

function convertip($ip) {

    //IP數據文件路徑

    $dat_path = 'QQWry.dat';



    //檢查IP地址

    if(!ereg("^([0-9]{1,3}.){3}[0-9]{1,3}$", $ip)){

        return 'IP Address Error';

    }



    //打開IP數據文件

    if(!$fd = @fopen($dat_path, 'rb')){

        return 'IP date file not exists or access denied';

    }



    //分解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 'System Error';

        }

        //提取出來的數據轉換成長整形，如果數據是負數則加上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 'System Error';

        }

        $DataSeek = implode('', unpack('L', $DataSeek.chr(0)));

        fseek($fd, $DataSeek);

        $ipData2 = fread($fd, 4);

        if(strlen($ipData2) < 4) {

            fclose($fd);

            return 'System Error';

        }

        $ip2num = implode('', unpack('L', $ipData2));

        if($ip2num < 0) $ip2num += pow(2, 32);



        //沒找到提示未知

        if($ip2num < $ipNum) {

            if($Middle == $BeginNum) {

                fclose($fd);

                return 'Unknown';

            }

            $BeginNum = $Middle;

        }//開源軟件:Vevb.com

    }



    //下面的代碼讀暈了，沒讀明白，有興趣的慢慢讀

    $ipFlag = fread($fd, 1);

    if($ipFlag == chr(1)) {

        $ipSeek = fread($fd, 3);

        if(strlen($ipSeek) < 3) {

            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) < 3) {

            fclose($fd);

            return 'System Error';

        }

        $ipFlag = fread($fd, 1);

        if($ipFlag == chr(2)) {

            $AddrSeek2 = fread($fd, 3);

            if(strlen($AddrSeek2) < 3) {

                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) < 3) {

                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';

    }



    return $ipaddr;

}

?>



        var sf='';



if(sf.indexOf("香港")>=0){

        window.location.href="http://www.****.com/?香港";

}

else if(sf.indexOf("廣東省")>=0){

        window.location.href="http://www.****.com/?廣東";

}