asp版域名查詢的數據庫接口_ASP教程

推薦：ASP常用函數:LastDay()
程序代碼 % '功能:判斷一個值是否存在于數組 '來源:http://www.cncms.com/asp.asp Function InArray( sValue, aArray ) Dim x InArray = False For Each x In aArray If x = sValue Then InArray = True Exit For End If Next End Function % 程序代碼 % '功能:判斷一

 <%　 
  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　 
  %>

分享：ASP常用函數:CheckBoxScript()
程序代碼 % '功能:用來在指定CheckBox的哪幾個值上打勾 '來源:http://www.cncms.com/asp.asp Function CheckBoxScript(ByVal FormElement , ByVal ElementValue) CheckBoxScript = scr ipt language=javascript type=text/Javascript vbCrLf String.PRototype. CheckBo