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("asp?action=whois&domain">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>  
     &n