检测域名是否被注册的程序

<?PHP
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
if ($domain)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
if ($domain)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
// first get the domain server from internic
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb

chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
$fp = fsockopen( "rs.internic.net", 43, &$errno, &$errstr, 10);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
if (!$fp)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo "$errstr ($errno)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
n";
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
else
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
fputs($fp, "$domainrn");
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
while(!feof($fp))
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
$buf = fgets($fp,128);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
if (ereg( "Whois Server:", $buf))
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
$server = str_replace( "Whois Server: ", "", $buf);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
$server = trim($server);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
fclose($fp);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
if ($server)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo "<B>很遗憾，$domain 在 $server 被注册:</B> <p>
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
下面是详细注册信息：<BR>";
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo "<PRE>";
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
$fp = fsockopen($server, 43, &$errno, &$errstr, 10);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
if(!$fp)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo "Could not open connection to $server on port 43.n";
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo "$errstr ($errno)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
n";
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
else
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
fputs($fp, "$domainrn");
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
while(!feof($fp))
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
{
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo fgets($fp,128);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
fclose($fp);
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
else {
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo( "<b>祝贺你！$domain 在 $now(time)
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
这一刻还没被注册，国际域名正在以5秒每个的速度减少，请在齐鲁热线注册。</b><BR>");
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
echo ( "</PRE><BR>");
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb

chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
}
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
?>
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
<FORM ACTION=" <?PHP echo($PHP_SELF); ?>" METHOD="post">
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
检索你要注册的域名，看是否被注册 <i>yourname</i>.com, .org, and .net domains
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb

chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
domain:www. <INPUT TYPE="text" NAME="domain" SIZE="40" MAXLENGTH="100">
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
<INPUT TYPE=submit VALUE="Find out"><INPUT TYPE=reset VALUE="Reset">
chin a i t p oe er . co mwmeTakHFTc7Tm340BxHfVvVGb
</FORM>
php爱好者站 http://www.ｐｈｐfans.net c/vc/c++/java.