欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2024-02-06 13:10:52
<%     on   error   resume   next    ...
<%  
  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("?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>  
                     type="text"   name="domain"   id=text1>  
                  <select   name="ext"   id=select1>  
                      <option   value="com"   selected>.com</option>  
                      <option   value="net">.net</option>  
                      <option   value="org">.org</option>  
                      <option   value="com.cn">.com.cn</option>  
                      <option   value="net.cn">.net.cn</option>  
                      <option   value="org.cn">.org.cn</option>  
                      <option   value="cc">.cc</option>  
                      <option   value="tv">.tv</option>  
                      <option   value="biz">.biz</option>  
                      <option   value="info">.info</option>  
                  </select>  
                  <input   type="submit"   name="submit"   value="查询"   id=submit1   onclick   =   "return   submitchecken();">  
              </form>以下是此域名的详细注册信息<br></font>  
  <table><tr><td><pre><%   =dowith()   %></pre></td></tr></table></font>  
  <%   end   if  
  end   if  
  function   dowith()  
  dim   lstrurl  
          dim   pagebefore  
            dim   pageafter  
            dim   tempcontent  
 &nb