asp教程：域名查詢的數(shù)據(jù)庫接口

<%  
  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   &   "出錯(cuò)了,請返回！<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)">  
  點(diǎn)擊這里，開始注冊您的域名</a></p></font>  
  <%   else   %>  
              <font   color="red"><br>很抱歉</font>   您想注冊的域名   <%   =Domain   %>   已經(jīng)被注冊了！<p></p>請您換個(gè)域名再試</font>  
              <form   method="post"   action="search.asp"   name="checkdomain"   id=Form1>  
                  www.<input   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>以下是此域名的詳細(xì)注冊信息<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  
            Dim   pagestart  
            Dim   pageend  
            dim   temps  
                pageafter   =   "<PRE>"  
                pagebefore   =   "</PRE>"  
                tempcontent   =   TakenHTML  
            if   d_exsit<>0   then  
                pagestart   =   InStr(1,tempcontent,   pageafter,1)  
                    If   pagestart   =   0   Then  
                        dowith   =   "<font   color=""red"">意外的錯(cuò)誤2!</font>"  
                          d_exsit   =   3  
                          Exit   Function  
                    Else  
                          pagestart   =   pagestart   +   Len(pageafter)   +   1  
                          pageend   =   InStr(pagestart,   tempcontent,   pagebefore,1)  
                              If   pageend   =   0   Then  
                                  dowith   =   "<font   color=""red"">意外的錯(cuò)誤!</font>"  
                                  d_exsit   =   3  
                                  Exit   Function  
                            Else  
                                pageend   =   pageend   -   pagestart   得到內(nèi)容長度  
                                tempcontent   =   Mid(tempcontent,   pagestart,   pageend)  
                            End   If  
                    End   If          
              Set   pageregexp   =   New   RegExp  
              pageregexp.Global   =   True  
              pageregexp.Pattern   =   "<[^>]*>"  
              tempcontent   =   pageregexp.Replace(tempcontent,   "")  
              Set   pageregexp   =   Nothing  
              dowith   =   tempcontent  
      End   If  
  End   Function