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