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, 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>