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

核心提示：<% on error resume next PRivate d_exsit Dim Retrieval Dim Domain Dim TakenHTML Function GetURL(url) Set Retrieval = Server.CreateObject("M

<%　
  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="#"　 >　
  点击这里，开始注册您的域名</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>　
　　　　　　　　　　  <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　
　　　　　  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"">意外的错误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"">意外的错误!</font>"　
　　　　　　　　　　　　　　　　  d_exsit　 =　 3　
　　　　　　　　　　　　　　　　  Exit　 Function　
　　　　　　　　　　　　　  Else　
　　　　　　　　　　　　　　　  pageend　 =　 pageend　 -　 pagestart　 '得到内容长度　
　　　　　　　　　　　　　　　  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　
  %>