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

＜%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上运行通过。实际使用过程中，可以把上述代码拷贝到自己网页中，经过简单的页面编辑，就可在自己的网页中增加在页面无刷新情况下的域名查询功能了，初看上去，还真的有点象专业的域名注册服务商网站提供的服务了。