PHP写的域名查询系统Whois

1. <?PHP 
2. if ($domain) 
3. { 
4. if ($domain) 
5. { 
6.  
7. $fp = fsockopen( "rs.internic.net", 43, &$errno, &$errstr, 10); 
8. if (!$fp) 
9. { 
10. echo "$errstr ($errno)<br>n"; 
11. } 
12. else 
13. { 
14. fputs($fp, "$domainrn"); 
15. while(!feof($fp)) 
16. { 
17. $buf = fgets($fp,128); 
18. if (ereg( "Whois Server:", $buf)) 
19. { 
20. $server = str_replace( "Whois Server: ", "", $buf); 
21. $server = trim($server); 
22. } 
23. } 
24. fclose($fp); 
25. } 
26. if ($server) 
27. { 
28. echo "<B>$domain is registered at $server:</B><BR>"; 
29. echo "<PRE>"; 
30. $fp = fsockopen($server, 43, &$errno, &$errstr, 10); 
31. if(!$fp) 
32. { 
33. echo "Could not open connection to $server on port 43.n"; 
34. echo "$errstr ($errno)<br>n"; 
35. } 
36. else 
37. { 
38. fputs($fp, "$domainrn"); 
39. while(!feof($fp)) 
40. { 
41. echo fgets($fp,128); 
42. } 
43. fclose($fp); 
44. } 
45. } 
46. else { 
47. echo( "<b>$domain does not appear to be registered.</b><BR>"); 
48. } 
49. echo ( "</PRE><BR>"); 
50. } 
51.  
52. } 
53. ?> 
54. <FORM ACTION=" <?PHP echo($PHP_SELF); ?>" METHOD="post"> 
55. 查找 .com, .org, and .net 主机<br> 
56. 主机名: <INPUT TYPE="text" NAME="domain" SIZE="40" MAXLENGTH="100"> 
57. <INPUT TYPE=submit VALUE="Find out"><INPUT TYPE=reset VALUE="Reset"> 
58. </FORM>