使用xmlhttp为网站增加域名查询功能

　　当咱们筹备创造一个web站点时，就必需向域名备案组织请求一个internet域名，所以，咱们常常蓄意领会本人筹备运用的域名能否仍旧被备案，这时候，不妨考察nic站点http://www.nic.net，点击"whois"链接后输出需查问的域名，就不妨获得咱们须要的截止。

　　whois效劳器为 .com、.net 和 .org 的国际顶级域名的查问归来十足的 whois 数据，囊括网站域名备案人、处置合约、接洽办法（电话、电子邮件、地方）、帐单结合、本领扶助和域名效劳器消息，对于用户领会一个网站的基础情景很有扶助。在很多域名备案效劳商的网站中，常常都有whois（域名查问）的高档效劳，但部分网站由于不完备域名备案效劳商的资历和数据，以是在普遍前提下没辙供给whois效劳。

　　本来，运用xmlhttp和议，咱们每部分都不妨在本人的部分网站中供给域名精细情景查问（whois）效劳，正文引见了怎样运用asp贯串xmlhttp编制程序来实行这个功效。

　　一、道理：　　道理特殊大略，域名的查问主假如鉴于rfc 954供给的whois和议。在实行进程中，咱们经过本人的web效劳器考察nic站点的whois数据库效劳器，从whois数据库中查问咱们所须要的实质，而后经过asp拉拢成网页回送给存户端。　　同声，咱们运用xmlhttp和议实行存户端网页无革新功效以及向效劳端提出检索whois数据的诉求。　　简直过程为：存户端经过xmlhttp提出域名查问诉求--＞web效劳器中的asp侦听页接收乞求后运用xmlhttp向whois效劳器发送交检验索吩咐--＞whois数据库实行查问操纵，归来截止给咱们本人的web效劳器（html情势）--＞web效劳器接受到实质后，登时将截止传递给存户端-＞存户端欣赏器运用vbscript过滤掉html过剩局部，抉择出whois数据表露出来。

　　二、asp xmlhttp编制程序简述：　　1、存户端html页面：

＜script language="vbscript"＞　sub submit1_onmouseup '当点击“查问”按钮时触发；　　dim objxml, objxsl, objfso,strfile, strfilename, strxsl,strurl,theform　　set theform = document.wordfind　　window.status="正在检索数据···"　　strurl="dns.asp"　　set objxml = createobject("microsoft.xmlhttp") '创造ms的xmlhttp组件；　　stra = "submit=submit&fqdn="&theform.words.value　　objxml.open "post",strurl,false '沿用post提交办法；　　objxml.setrequestheader "content-length",len(stra)　　objxml.setrequestheader "content-type","application/x-www-form-urlencoded"　　objxml.send stra ' 发送消息　　xmlget = objxml.responsetext '稍等短促后，获得效劳器端传回顾的截止；　　if instr(1,xmlget,"this is not a valid .com .net .org .info or .biz domain 　name",1)＜1 and len(trim(xmlget))＞100 then 　　　if instr(1,xmlget,"this domain is available",1)＜1 then 　　　　if instr(1,xmlget,"registrant:",1) then 　　　　 strfind1 =instr(1,xmlget,"registrant:",1)　　　　else 　　　　 strfind1 = instr(1,xmlget,"＜pre＞＜font face=""verdana, arial",1)+65

strfind2 = instr(1,xmlget,"＜/font＞＜/pre＞",1)　　　　　strfind4=strfind2-strfind1　　　　　shtml = mid(xmlget,strfind1,strfind4)　　　　　theform.comments.value="查问截止："+chr(13)+chr(10)+shtml　　　　　window.status="查问截止：该域名已被占用"　　　else　　　　theform.comments.value="祝贺你，此域名可用！" 　　　　window.status="查问截止：该域名仍旧居于可用状况！" 　　　end if　　else　　　theform.comments.value= "失效的国际顶级域名！请输出以（.com .net .org .info or .biz）结果的国际域名， 比方sun.com"　　　window.status="失效的国际顶级域名！请输出以（.com .net .org .info or .biz）结果的国际域名， 比方cctv.com"　　end if　　set objxml = nothing　end sub ＜/script＞＜html＞＜head＞＜title＞xmlhttp之域名查问篇＜/title＞＜/head＞＜body bgcolor=#cccca3＞＜form method="post" name=wordfind onsubmit="javascript:return false"＞请输出域名称呼：＜input type="text" value="cctv.com" name="words" size="69"＞＜input type="submit" value="查问" id=submit1 name=submit1＞＜textarea name=comments readonly rows=10 cols=76＞＜/textarea＞＜/form＞＜/body＞＜/html＞

　　2、效劳器端asp步调：

＜%dim xmlget,objxml, objxsl, objfso,strfile, strfilename, strxsl,strurl　xmlget=""　if len(trim(request.form("fqdn"))) ＞ 1 then　　strurl="http://www.domainbank.net/whoisresults_gen.cfm?show=1"　　 'whois效劳器的地方　　set objxml = createobject("microsoft.xmlhttp") '创造ms的xmlhttp组件

　　stra = "submit=submit&fqdn="&trim(request.form("fqdn"))　　objxml.open "post",strurl,false　　objxml.setrequestheader "content-length",len(stra)　　objxml.setrequestheader "content-type","application/x-www-form-urlencoded"　　objxml.send stra ' 发送消息到whois数据库效劳器；

　　xmlget = objxml.responsetext ' 博得域名效劳器归来的消息　　set objxml = nothing　end if　response.write xmlget '归来截止给存户端%＞

　　在上述进程中，不妨创造咱们本人的web效劳器中的asp步调本来只起到一个中央传播的效率，在本质运用中，也不妨省去这个中央层，运用vbscript经过xmlhttp径直向whois数据库发送和接受数据。然而如许的话，大概会由于ie中“经过（其它）域考察数据资源”被禁止使用（默许）而惹起权力不够引导没辙实行，以是各省去asp中央层的本领并不太通用。

　　本步调在鉴于windows2000平台的iis5.0和ie6.0上运转经过。本质运用进程中，不妨把上述代码正片到本人网页中，过程大略的页面编纂，就可在本人的网页中减少在页面无革新情景下的域名查问功效了，初看上去，还真的有点象专科的域名备案效劳商网站供给的效劳了。