asp版域名查询的数据库接口

-
<%  
  on   error   resume   next  
  PRivate   d_exsit  
  Dim   Retrieval  
  Dim   Domain  
  Dim   TakenHTML  
  Function   GetURL(url)  
          Set   Retrieval   =   Server.CreateObject("Microsoft.xmlHTTP")  
                      With   Retrieval  
                      .Open   "GET",   url,   False,   "",   ""  
                      .Send  
                      GetURL   =   .ResponseText  
                      End   With  
          Set   Retrieval   =   Nothing  
  End   Function  
  Domain   =   Replace(Request.Form("domain"),"www.","")   &   "."   &   Request.Form("ext")  
  if   Domain=".com"   or   Request.Form("domain")=""   then  
  Response.Write   ("<script>alert('看看您什么忘记填写了？没有填写域名吧？');javascript:history.back(1)</script>")  
  response.end  
  end   if  
  'TakenHTML   =   GetURL("http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain")  
  TakenHTML   =   GetURL("http://www.china-channel.com/checkdomain.asp?action=whois&domain="   &   Domain)  
  d_exsit=1  
  if   InStr(TakenHTML,"No   entries")   >   1   then  
           
          Response.Write   Domain   &   "出错了,请返回！<br><br>"  
  else  
          if   InStr(TakenHTML,"No   match")   >   1   then   %>  
  祝贺您，您想注册的域名   <%   =Domain   %>   还没有被注册<p><a   href="#"   onClick="MM_openBrWindow('../formmail/domain.htm','','scrollbars=auto,width=500,height=500')">  
  点击这里，开始注册您的域名</a></p></font>  
  <%   else   %>  
              <font   color="red"><br>很抱歉</font>   您想注册的域名   <%   =Domain   %>   已经被注册了！<p></p>请您换个域名再试</font>  
              <form   method="post"   action="search.asp"   name="checkdomain"   id=Form1>  
                  www.<input   type="text"   name="domain"   id=Text1>  
                  <select   name="ext"   id=Select1>  

 1/3    1 2 3 下一页 尾页