無資料庫的詳細網域查詢程式PHP版(1)_PHP教學課程

文件一：index.php


echo "\n";

/*
    ############################################################################################# ###########################################################
    #                                                                                       #
    #  本域名查詢系統由mydowns收集整理漢化，漢化歸把握時間網站所有(http://www.85time.com)   #
    #  該程序是2001年5月18日發布的最新版本，本站將對此程序繼續進行修改完善，敬請關注本站！  #
    #  該程式可以查詢網域所有者的詳細資料信息，現提供9個類型的網域以供查詢！ #
    #  簡報網址：http://www.85time.com/whois                          #
    #  來源程式包裝下載：http://www.85time.com/mydowns/mydowns.php?id=378        🎜>    #  使用時間網站提供PHP、ASP、CGI、HTML、JSP等來源程式、電子教材、文章資料               .85time.ent                  #
    #  請保留此資訊，謝謝！#
    #                                                          地##
   ##################################################
    MWhois - 用PHP 和Perl 編寫的Whois 查找腳本
    版權所有(C) 2000 Matt Wilson

   公共許可證條款重新分發和/或修改
    它；許可證的版本2，或
    （由您選擇）任何更高版本。

    分發此程序的目的是希望它有用，
    但未提供任何保證；甚至沒有
    適銷性或特定用途適用性的默示保證。  請參閱
    GNU 通用公共許可證以了解更多詳細資訊。

    您應該隨本程式一起收到GNU 通用公共許可證
    的副本；如果沒有，請寫信給自由軟體
    Foundation, Inc., 59 Temple Place, Suite , MA  02111-1307  美國
*/

if(!isset($use_global_templates))
    $use_global_templates = 1;    // 是否使用全局模板

$template_header = " gheader.tml";    // 全域標題範本
$template_footer = "gfooter.tml";    // 全域頁腳模板

/* 範本資訊內容
 --------------------
  模板中的下列字串將替換為說明；

    [>DOMAIN的網域[>RAWOUTPUT    [>WHOIS_SERVER [>AVAIL_LIST [>UNAVAIL_LIST    [> ;ERROR_MSG    [>EXT    [>EXT_HTML_LIST    [> ;EXT_LIST
參數清單（沒有腳本參數會顯示正常的搜尋腳本參數）； 🎜>
    show_raw=1    = 是否顯示原始輸出頁
    do_wizard=1    _exts=1 = 顯示擴充功能支援頁面
    do_global=1    = 前往全域搜尋頁面
    do_mini_search=1 = 僅顯示搜尋表單，且不顯示任何其他內容
 用於搜尋
    keyword1=(string) = 用於精靈，需要用於搜尋
    keyword2=(string) = 用於嚮導，需要用於搜尋

  如果其中任何不清楚，請參閱提供的範例範本
*/

$template_search_mini = "searchform.tml";    // 搜尋範本
$template_search = "searchmain.tml";
$template_outoutput = "rawoutput.tml";    // 原始輸出範本
$template_available = "isavail.tml";    // 可用的範本
$template_taken = "istaken.tml";    // 取得的範本
$template_wizard = "wizard.tml"; 🎜>$template_wizard_results = "wizardres.tml"; // 域精靈的輸出範本
$template_error = "error.tml";    // 錯誤時的模板
$template_exts_list = "exts_list.list." 🎜>$template_global = "global.tml";
$template_global_results = "globres.tml";

$search_title = "讓佛洛伊德找到你的網域名稱";

$search_title = "讓佛洛伊德找到你的網域名稱";
$raw_output_title =$ "Floyd 的原始WHOIS 輸出";
$available_title = "佛洛伊德說網域可用！";
$taken_title = "佛洛伊德說正在使用多曼的名字";
$wizard_title = "網域名稱精靈佛洛伊德";
$error_title = "佛洛伊德遇到錯誤！";
$exts_list_title = "Floyd 支援以下擴充";
$global_title = "讓弗洛伊德來完成艱苦的工作吧！ "net",
    "org ",
    "com.cn",
    "net.cn",
    "org.cn "sh",
    "cc 「
）；

// 某些擴充功能(com/net/org) 有一個伺服器，其中包含應用於

資訊的伺服器名稱，這只是告訴腳本使用whois伺服器作為伺服器資訊的來源...;)
$whois_si_servers = array();

// `whois' 伺服器陣列
$whois_servers = array ();

// 資訊的預設whois 伺服器
$whois_info_servers = array();

// 要嘗試的備份whois 伺服器
$whois_info_servers_backis_info_array_back =

// 網域可用時傳回的字串
$whois_avail_strings = array();

// 後面跟著一些替換字串
$errormsg = "";
$titlebar = "MWhois 由Matt Wilson 寫成";    // 預設標題列
$rawoutput = "";
$avail = array();
$unavail = array();
$ whois_server = "";

// 腳本名稱
$script_name = "index.php";

函數my_in_array($val,$ ($l=0; $l        if($array_[$ l] == $val)
     🎜>}

// 這會載入$whois_exts 中擴充程式的伺服器資訊；
函數load_server_info()
{
    >    全球$whois_servers;
    全球$whois_info_servers;
    全域$whois_info_servers_backup；     $tlds = file("servers. lst");

    for($l=0; $l        // = cop($ tlds[$l]);

        // 過濾上註解行（以# 開頭）
        " || !strlen($tlds[$ l])) { 繼續; }

        // 以分隔符號「|」進行爆炸
     l]);

        // 檢查我們是否需要這個TLD
        if(!my_in_array($es[0], $whois_ext)) { continue};

        // 是的，所以將詳細信息存儲在適當的數組中
        $whois_servers[$es[0]] = $es[1];
        $whois_si_servers[$es[0 ]] = $es[5];
        $whois_info_servers[$es[0]] = $es[3];
        $whois_info_servers_back. $whois_avail_strings[$es[1]] = $es[2];

         // 就是如此！
    }
}

function Choose_info_server($domain, $ext)
{
    global $whois_info_servers; 全域$whois_server;
    全球$whois_servers;

    $whois_server = "";

    if($whois_si_servers[$ext]{p. servers[$ext] , 43)) == false){
            echo "
#".$__LINE__。-->\n";
            $whois_server = $w.        echo "\n ";
            fputs($co, $domain.".".$ext."\n");
              $output .= fgets($co, 128);

            fclose($co);

       s[$ext]);
            $ le = strpos($output, "\n", $he);
            $whois_server = substr($output, $  找到`".$whois_server."' @ line #".$__LINE__.",  

用於whois 資訊伺服器-->\n 」;
      $whois_server = $whois_info_servers[$ext];
    }

    $whois_server = trim($whois_server);
}

// 進行所有更改
function make_changes($fil)
{
    global $domain;
   rawoutput;
    全球$avail;
    $script_name;

$f = implode("",file($fil));

    $f = str_replace("[>WHOIS_SERVER  = str_replace("[>TITLE_BAR    $f = str_replace("[>DOMAIN [>ERROR_MSG    $f = str_replace("[>RAWOUTPUT
   $l        $sp[1] = substr(strchr($avail[$l],"."),1);
   substr($avail[$l],0,strlen($avail[$l])-strlen($sp[1])-1);
        $avail_s = $avail_s."

href=\"".$script_name."?domain=".$sp[0]."&ext=".$sp[1] ."\">".$avail[$l]."
";
    }

     for($l=0; $l                $sp[0] = substr($unavail[$l],0,strlen($unfil[0] = substr($unavail[$l],0,strlen($unil[$ ])-1);
                $unavail_s = $unavail_s."
href=\"."
href=\"".$script_name.".$S. $sp[1] ."\">".$unavail[$l]."
";
    }

    $f = str_replace("[>AVAIL_LIST    $f = str_replace("[>UNAVAIL_LIST    $f = str_replace("[>SC_NNscript    $f = str_replace("[>EXT    $f = str_replace("[>EXT_LIST ",$whois_exts),$f);
    $f = str_replace("[>EXT_HTML_LIST
name=ext>\n". n",$whois_exts )."\n",$f);

    返回$f;
}

// 顯示錯誤頁
function do_error()
{
    global $use_global_templates;
    全域$template_header;
   全域$domain;
    全域$titlebar ;
    全域$error_title;
    全域$errormsg;

    $titlebar = $error_title;
    echo make_changes($template_error);

    if($use_global_templates)
   （）；
}

// checks the domain is legal
function check_domain()
{
    global $errormsg;     global $ whois_exts;

    if(isset($ext)){
        if(!strlen($ext)){           return 0;
        }
        if(!my_in_array($ext,$whois_exts)){         }
    }
if(isset($domain)){
        if(strlen($domain) 57){
    return 0;
        }
        if(strlen($domain) == 2 && !ereg("([0-9]){2}",$domain){ g = "在2個位元組的網域不能包含有字母";
            return 0;
        }             return 0;
        } |-){".strlen($domain)."}",$domain)){
            $errormsg = "網域只可包含字母數字組合與-";     }

    return 1;
}

// perform_whois function returns 0 if domain 是$domainname,$ ext,$raw)
{
    global $errormsg;
    global $whois_servers;
    global $rawoutput;    $rawoutput = "";

    if($raw)
        return do_raw($domainname,$ext);
        $errormsg = "無法連接網域查詢伺服器".$whois_servers[$ext]."";
   >    }
    fputs($ns,"$domainname.$ext\n");
    while(!feof($ns))
    while(!feof($ns))
    while(!feof($ns))
  >
    fclose($ns);

    echo "\n";

    if(!ereg($whois_avail_strings[$whois_servers[$ext]], $rawoutput))
        return 0;

    return 1;
}

// 執行whois 查找，然後顯示回傳的資料
function do_raw($domainname, $ext)
{
    global $ext全域$use_global_templates;
    全域$template_header;
    全域$template_footer;
    hois_servers;
    全域$rawoutput;
    全域$errormsg;
    全域$whois_info_servers_backup;
    全域$whois_avail_strings;
    >
    if(($ns = fsockopen($whois_server,43)) == false){
        if(($ns = fsockopen($whois_info_servers[$ext],43)) == false) {                    {
                $whois_server = $whois_info_servers_backup[10];
   else {
            $whois_server = $whois_info_servers[$ext];
       ) : 使用`".$whois_server."' 進行whois查詢-->\n";

        fputs($ns,"$domainname.$ext\n");
         $rawoutput = $rawoutput .fgets($ns,128);

        fclose($ns);

    echo "