---

开发这样一个域名查询系统其实是一件很容易的事情，只要我们能够让使用者进行查询后得出结果，看看自己输入的域名是不是被别人占用了就可以，如果没有被占用我们就可以自行去申请了。

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