Domain Name Query system--for beginners

<%
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)
' Response.Write Instr (WSTR, "can register")
If InStr (LCase (WSTR), "registered domain name") >0 Then
body= "Domain name has been registered"
ElseIf InStr (LCase (WSTR), "unregistered domain name") >0 Then
body= "Domain name not registered"
Else
body= "Network latency, please find again"
End If End If