php写的域名查询系统whois

March 25,2004

<?PHP
if ($domain)
{
if ($domain)
      {

      $fp = fsockopen( "rs.internic.net", 43, &$errno, &$errstr, 10);
      if (!$fp)
{
      echo  "$errstr ($errno)<br>n";
      }
      else
      {
      fputs($fp, "$domainrn");
      while(!feof($fp))
            {
            $buf = fgets($fp,128);
            if (ereg( "Whois Server:", $buf))
                     {
                     $server = str_replace( "Whois Server: ",  "", $buf);
                     $server = trim($server);
                     }
            }
      fclose($fp);
      }
      if ($server)
            {
            echo  "<B>$domain is registered at $server:</B><BR>";
            echo  "<PRE>";
            $fp = fsockopen($server, 43, &$errno, &$errstr, 10);
            if(!$fp)
                     {
                     echo  "Could not open connection to $server on port 43.n";
                     echo  "$errstr ($errno)<br>n";
                     }
            else
                     {
                     fputs($fp, "$domainrn");
                     while(!feof($fp))
                              {
                              echo fgets($fp,128);
                              }
                     fclose($fp);
                     }
            }
      else {
            echo( "<b>$domain does not appear to be registered.</b><BR>");
            }
      echo ( "</PRE><BR>");
      }

}
?>
<FORM ACTION=" <?PHP echo($PHP_SELF); ?>" METHOD="post">
  查找 .com, .org, and .net 主机<br>
  主机名: <INPUT TYPE="text" NAME="domain" SIZE="40" MAXLENGTH="100">
  <INPUT TYPE=submit VALUE="Find out"><INPUT TYPE=reset VALUE="Reset">
</FORM>