複製代碼 代碼如下:<?
class SearchDomain
{
var $domain="";
function SetDomain($udomain)
{
$this->domain = $udomain;
}
//
// 擷取whois並分析網域名稱狀態
// ok 未被註冊
// 非空值 到期時間
// 空值 未知
//
function GetInfo()
{
/*
$dinfo = trim($this->GetWhois());
if($dinfo=="") return "";
if(eregi("no match",$dinfo)) return "ok";
//return $rs;
*/
$wl = "";
$w_server = $this->GetServer();
if($w_server=="") return "";
$fp = fsockopen($w_server, 43, $errno, $errstr, 30);
if(!$fp)
{
echo $errstr;
return "";
}
$out = $this->domain."\r\n";
$out .= "Connection: Close\r\n\r\n";
fputs($fp, $out);
while (!feof($fp))
{
$wl = fgets($fp, 255);
if(eregi("no match",$wl))
{
fclose($fp);
return "ok";
}
if(eregi("Expiration Date",$wl))
{
$lines = split(":",$wl);
$t = trim($lines[1]);
$ts = split(" ",$t);
$t = $ts[0];
if(ereg("[^0-9-]",$t))
{
$ts = split("-",$t);
$t = $ts[2]."-".$this->MonthToNum($ts[1])."-".$ts[0];
}
fclose($fp);
return $t;
}
}
fclose($fp);
return "";
}
//
//獲得網域名稱的整個whois資訊
//
function GetWhois()
{
$wh = "";
$w_server = $this->GetServer();
if($w_server=="") return "";
$fp = fsockopen($w_server, 43, $errno, $errstr, 30);
if(!$fp)
{
echo $errstr;
return "";
}
$out = $this->domain."\r\n";
$out .= "Connection: Close\r\n\r\n";
fputs($fp, $out);
while (!feof($fp))
{
$wh .= nl2br(fgets($fp, 255));
}
fclose($fp);
return $wh;
}
//
//輸出當前網域名稱的狀態資訊
//
function PrintSta()
{
$rs = $this->GetInfo();
if($rs=="ok") echo $this->domain." 未註冊!<br/>\r\n";
else if($rs=="") echo "無法查詢 ".$this->domain." 狀態!<br/>\r\n";
else echo $this->domain." 登入,到期時間:$rs<br/>\r\n";
}
//
//獲得 whois 查詢服務器
//
function GetServer()
{
$udomain=substr($this->domain,-3);
switch($udomain)
{
case "com":
$w_server="whois.internic.net";
break;
case "net":
$w_server="whois.internic.net";
break;
case "org":
$w_server="whois.pir.org";
break;
case "nfo":
$w_server="whois.afilias.info";
break;
case "biz":
$w_server="whois.biz";
break;
case ".cc":
$w_server="whois.nic.cc";
break;
case "edu":
$w_server="whois.educause.net";
break;
case "gov":
$w_server="whois.nic.gov";
break;
case ".cn":
$w_server="whois.cnnic.net.cn";
break;
default:
$w_server="";
}
return $w_server;
}
//
//英語的月份轉為數字
//
function MonthToNum($m)
{
$m = strtolower($m);
for($i=1;$i<=12;$i++)
{
$tt = mktime(0,0,0,$i+1,0,2005);
if($m==strtolower(strftime("%b",$tt)))
{
if($i>9) return $i-1;
else return "0".$i-1;
}
}
}
}
$sd = new SearchDomain();
$sd->SetDomain("job-sky.com");
//查詢網域名稱是否被註冊,等價於 $sd->PrintSta();
$rs = $sd->GetInfo();
if($rs=="ok") echo $sd->domain." 未註冊!<br/>\r\n";
else if($rs=="") echo "無法查詢 ".$sd->domain." 狀態!<br/>\r\n";
else echo $sd->domain." 登入,到期時間:$rs<br/>\r\n";
//獲得網域名稱的詳細whois資訊
//echo $sd->GetWhois();
?>