使用XMLHTTP制作域名查询系统

     <%
  On Error Resume Next
  Server.ScriptTimeOut=9999999
  Function getHTTPPage(Path)
   t = GetBody(Path)
   getHTTPPage=BytesToBstr(t,"GB2312")
  End function
  
  Function GetBody(url)
   on error resume next
   Set Retrieval = CreateObject("Microsoft.XMLHTTP")
   With Retrieval
   .Open "Get", url, False, "", ""
   .Send
   GetBody = .ResponseBody
   End With
   Set Retrieval = Nothing
  End Function
  
  Function BytesToBstr(body,Cset)
   dim objstream
   set objstream = Server.CreateObject("adodb.stream")
   objstream.Type = 1
   objstream.Mode =3
   objstream.Open
   objstream.Write body
   objstream.Position = 0
   objstream.Type = 2
   objstream.Charset = Cset
   BytesToBstr = objstream.ReadText
   objstream.Close
   set objstream = nothing
  End Function
  %>
  <%
  if request("domain")<>"" then
  'url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")
  url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root")
  wstr=getHTTPPage(url)
  'www.knowsky.com
  'response.write Instr (wstr,"可以注册")
   if instr(lcase(wstr),"已被注册的域名")>0 then
   body="域名已经被注册"
   elseif instr(lcase(wstr),"未被注册的域名")>0 then
   body="域名未被注册"
   else
   body="网络延迟,请重新查找"
   end if
  end if
  %>
  
  <table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
   <tr>
   <td height="26" bgcolor="efefef">域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%></td>
   </tr>
   <tr>
   <td bgcolor="#FFFFFF"><form name="form1" method="post" action=""><table width="100%" border="0" cellspacing="1" cellpadding="1">
   <tr>
  
   <td height="36"> <div align="center">www.
   <input type="text" name="domain">
   <select name="root" id="select">
   <option value="cn" selected>.cn</option>
   <option value="com">.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="gov.cn">.gov.cn</option>
   </select>
   </div></td>
  
   </tr>
   <tr>
   <td height="35">
  <div align="center">
   <input type="submit" name="Submit" value=" 查 询 ">
   </div>
   <div align="center"></div></td>
   </tr>
   </table></form></td>
   </tr>
  </table>
  
  <p align="center"> </p>
  <table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
   <tr>
   <td height="42" bgcolor="#FFFFFF">
  <FORM name=search_form action='http://search.sohu.com/web' method=get target=_blank>
   <div align="center">
   <input type="hidden" name="pid" value="hljec">
   <input name="query" type="text" style="font-size:14px;width:150" value="好域名">
   <input type="submit" name="ss" value="查看" onclick=document.search_form.action='http://search.sohu.com/web' style="font-size:14px;width=40;height=20">
    </div>
   </FORM></td>
   </tr>
  </table>
  
  代码我已经在本地测试过了。正常通过。
  文章里面的用到的Microsoft.XMLHTTP组件。其用法请参见：http://www.knowsky.com/5190.html
  
  
    做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。