域名查询代码公布
[作者]:菩提树下的杨过 [来源]:互联网 [收录时间]:2007-8-1 20:12:36
<SPAN class=unnamed3>域名查询代码公布 <br /> <?php <br />// <a class="link_keyword" href="http://www.qqread.com/keywords/network-technique.html" target="_blank">网络技术</a>主管座右铭:三人行,其必有我师焉。http://www.ctohome.com <br /><table border="0" align="left" class=ppc_download_ad_frame cellspacing=0 cellpadding=0 width="1%" style="margin-top:10px;margin-right:7px;margin-bottom:3px;margin-left:0px"> <tr> <td id=a><img height=9 width=9></td> <td id=b width="100%"><img height=1 width=1></td> <td id=c><img height=9 width=9></td> </tr> <tr> <td id=d><img height=1 width=1></td> <td id=e valign=top height="100%"><!-- frame contents --> <table cellspacing=0 cellpadding=0 border=0> <tr> <td><div id="w_hzh"></div></td> </tr> </table> <!-- /frame contents --></td> <td id=f><img height=1 width=1></td> </tr> <tr> <td id=g><img height=9 width=9></td> <td id=h><img height=1 width=1></td> <td id=i><img height=9 width=9></td> </tr> </table>// 这个代码可以是说是非常的SMART,我改动了小小部分使它更容易用。 <br /><br />$moreinfolist = array( // 储存WHOIS查询主机的连接方法 <br />&#39;at&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;au&#39; => &#39;www.aunic.net/cgi-bin/whois.aunic?&#39;, <br />&#39;bm&#39; => &#39;www.bermudanic.bm/cgi-bin/BermudaNIC/rwhois_query_get.pl?query_text=&#39;, <br />&#39;ch&#39; => &#39;www.switch.ch/cgi-bin/domain/search_domain?keyword=&#39;, <br />&#39;com&#39;=> &#39;www.networksolutions.com/cgi-bin/whois/whois/?STRING=&#39;, <br />&#39;cz&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;de&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;dk&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;edu&#39;=> &#39;www.networksolutions.com/cgi-bin/whois/whois/?STRING=&#39;, <br />&#39;es&#39; => &#39;www.nic.es/whois/index.php?type=Dominios&amp;key=&#39;, <br />&#39;fi&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;fo&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;fr&#39; => &#39;harmonic.nic.fr/cgi-bin/HarmoNIC.pl?Annu_Suffixe=&amp;Annu_Action=Rechercher&amp;Annu_Automaton_State=17&amp;Annu_Motif=&#39;, <br />&#39;gl&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;gm&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;gov&#39;=> &#39;www.nic.gov/cgi-bin/whois?s=nic.gov&#39;, <br />&#39;gr&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;hu&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;id&#39; => &#39;whois.idnic.net.id/cgi-bin/whois-cgi?user=&#39;, <br />&#39;ie&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;il&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;is&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;it&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;jp&#39; => &#39;www.nic.ad.jp/cgi-bin/whois_gw?lang=/e&amp;type=DOM&amp;rule=ex&amp;key=&#39;, <br />&#39;lb&#39; => &#39;www.aub.edu.lb/cgi-bin/lbdr.pl?cn=&#39;, <br />&#39;li&#39; => &#39;www.switch.ch/cgi-bin/domain/search_domain?keyword=&#39;, <br />&#39;lt&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;lv&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;mc&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;mil&#39;=> &#39;www.nic.mil/cgi-bin/whois?stype=Domains&amp;ctype=reg&amp;keyword=&#39;, <br />&#39;ms&#39; => &#39;www.adamsnames.tc/whois/?seen=y&amp;domain=&#39;, <br />&#39;mx&#39; => &#39;www.nic.mx/cgi/whois?&#39;, <br />&#39;net&#39;=> &#39;www.networksolutions.com/cgi-bin/whois/whois/?STRING=&#39;, <br />&#39;no&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;nz&#39; => &#39;www.domainz.net.nz/facility/namesearch/Result.asp?prmMode=Search&amp;DomainName=&#39;, <br />&#39;org&#39;=> &#39;www.networksolutions.com/cgi-bin/whois/whois/?STRING=&#39;, <br />&#39;pt&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;ro&#39; => &#39;whois.rotld.ro/cgi-bin/whois?whois=&#39;, <br />&#39;sk&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;sm&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;tc&#39; => &#39;www.adamsnames.tc/whois/?seen=y&amp;domain=&#39;, <br />&#39;tf&#39; => &#39;www.adamsnames.tc/whois/?seen=y&amp;domain=&#39;, <br />&#39;th&#39; => &#39;www.thnic.net/cgi-bin/whois.pl?server=whois.thnic.net&amp;string=&#39;, <br />&#39;tj&#39; => &#39;www.nic.tj/whois.cgi?domain&#39;, <br />&#39;tr&#39; => &#39;whois.cc.metu.edu.tr/whois/wwwwhois?Whois=&#39;, <br />&#39;uk&#39; => &#39;www.nic.uk/cgi-bin/whois.cgi?query=&#39;, <br />&#39;va&#39; => &#39;www.ripe.net/cgi-bin/whois?query=&#39;, <br />&#39;vg&#39; => &#39;www.adamsnames.tc/whois/?seen=y&amp;domain=&#39; <br />); <br /><br /># where can we get more info? <br />$moreinfo = FALSE; <br />for ( reset($moreinfolist) ; list($tail, $moreinfoname) = each($moreinfolist) ; ) <br />if ( eregi("\\.$tail\$", $address) ) { // 比较域名后缀 <br />$moreinfo = $moreinfoname; // 遇到匹配项就立即结束循环 <br />break; <br />} <br /><br />if ( $moreinfo &amp;&amp; $address) { // 跳转到WHOIS主机 <br />header(&#39;Location: http://&#39;. $moreinfo . $address); <br />exit(); <br />} <br />else { <br />echo "<form action=$PHP_SELF method=post> <br />请输入域名:<input name=address> <br /><input type=submit></form>"; <br />} <br /><br />?> <br /><br /><html> <br /><br /><head> <br /><title>whois tool</title> <br /></head> <br /><br /><body> <br /><br /><p>网络技术主管汉化解释</a>.</p> <br /><br /><hr /> <br /><address>http://www.ctohome.com</address> <br /><br /></body> <br /><br /></html> <br /><br /><?php <br />highlight_file("whois.php"); <br />?> <br /><br /></SPAN> </div> </div>