域名查询代码公布

 1   
 2// 网络技术主管座右铭：三人行，其必有我师焉。http://www.ctohome.com   
 3// 这个代码可以是说是非常的SMART，我改动了小小部分使它更容易用。   
 4  
 5$moreinfolist = array( // 储存WHOIS查询主机的连接方法   
 6'at' => 'www.ripe.net/cgi-bin/whois?query=',   
 7'au' => 'www.aunic.net/cgi-bin/whois.aunic?',   
 8'bm' => 'www.bermudanic.bm/cgi-bin/BermudaNIC/rwhois_query_get.pl?query_text=',   
 9'ch' => 'www.switch.ch/cgi-bin/domain/search_domain?keyword=',   
10'com'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',   
11'cz' => 'www.ripe.net/cgi-bin/whois?query=',   
12'de' => 'www.ripe.net/cgi-bin/whois?query=',   
13'dk' => 'www.ripe.net/cgi-bin/whois?query=',   
14'edu'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',   
15'es' => 'www.nic.es/whois/index.php?type=Dominios&key=',   
16'fi' => 'www.ripe.net/cgi-bin/whois?query=',   
17'fo' => 'www.ripe.net/cgi-bin/whois?query=',   
18'fr' => 'harmonic.nic.fr/cgi-bin/HarmoNIC.pl?Annu_Suffixe=&Annu_Action=Rechercher&Annu_Automaton_State=17&Annu_Motif=',   
19'gl' => 'www.ripe.net/cgi-bin/whois?query=',   
20'gm' => 'www.ripe.net/cgi-bin/whois?query=',   
21'gov'=> 'www.nic.gov/cgi-bin/whois?s=nic.gov',   
22'gr' => 'www.ripe.net/cgi-bin/whois?query=',   
23'hu' => 'www.ripe.net/cgi-bin/whois?query=',   
24'id' => 'whois.idnic.net.id/cgi-bin/whois-cgi?user=',   
25'ie' => 'www.ripe.net/cgi-bin/whois?query=',   
26'il' => 'www.ripe.net/cgi-bin/whois?query=',   
27'is' => 'www.ripe.net/cgi-bin/whois?query=',   
28'it' => 'www.ripe.net/cgi-bin/whois?query=',   
29'jp' => 'www.nic.ad.jp/cgi-bin/whois_gw?lang=/e&type=DOM&rule=ex&key=',   
30'lb' => 'www.aub.edu.lb/cgi-bin/lbdr.pl?cn=',   
31'li' => 'www.switch.ch/cgi-bin/domain/search_domain?keyword=',   
32'lt' => 'www.ripe.net/cgi-bin/whois?query=',   
33'lv' => 'www.ripe.net/cgi-bin/whois?query=',   
34'mc' => 'www.ripe.net/cgi-bin/whois?query=',   
35'mil'=> 'www.nic.mil/cgi-bin/whois?stype=Domains&ctype=reg&keyword=',   
36'ms' => 'www.adamsnames.tc/whois/?seen=y&domain=',   
37'mx' => 'www.nic.mx/cgi/whois?',   
38'net'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',   
39'no' => 'www.ripe.net/cgi-bin/whois?query=',   
40'nz' => 'www.domainz.net.nz/facility/namesearch/Result.asp?prmMode=Search&DomainName=',   
41'org'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',   
42'pt' => 'www.ripe.net/cgi-bin/whois?query=',   
43'ro' => 'whois.rotld.ro/cgi-bin/whois?whois=',   
44'sk' => 'www.ripe.net/cgi-bin/whois?query=',   
45'sm' => 'www.ripe.net/cgi-bin/whois?query=',   
46'tc' => 'www.adamsnames.tc/whois/?seen=y&domain=',   
47'tf' => 'www.adamsnames.tc/whois/?seen=y&domain=',   
48'th' => 'www.thnic.net/cgi-bin/whois.pl?server=whois.thnic.net&string=',   
49'tj' => 'www.nic.tj/whois.cgi?domain',   
50'tr' => 'whois.cc.metu.edu.tr/whois/wwwwhois?Whois=',   
51'uk' => 'www.nic.uk/cgi-bin/whois.cgi?query=',   
52'va' => 'www.ripe.net/cgi-bin/whois?query=',   
53'vg' => 'www.adamsnames.tc/whois/?seen=y&domain='   
54);   
55  
56# where can we get more info?   
57$moreinfo = FALSE;   
58for ( reset($moreinfolist) ; list($tail, $moreinfoname) = each($moreinfolist) ; )   
59if ( eregi("\\\\.$tail\$", $address) ) { // 比较域名后缀   
60$moreinfo = $moreinfoname; // 遇到匹配项就立即结束循环   
61break;   
62}   
63  
64if ( $moreinfo && $address) { // 跳转到WHOIS主机   
65header('Location: http://'. $moreinfo . $address);   
66exit();   
67}   
68else {   
69echo "

<form action="$PHP_SELF" method="post">
请输入域名：<input name="address"/> <input type="submit"/></form>

1";   
2}   
3

 1<html>
 2<head>
 3<title>whois tool</title>
 4</head>
 5<body>
 6<p>网络技术主管汉化解释.</p>
 7<hr/>
 8<address>http://www.ctohome.com</address>
 9</body>
10</html>

1   
2highlight_file("whois.php");