Okay, let's take a look at the Submit query page
Here is a look at the code that we are working with to register the domain name.
<style>
body {font-size:12px;}
</style>
<%
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
& nbsp; 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 = no
end Function
%>
<%
br> dns=request ("DNS")
Ext=request ("ext")
E=split (ext, ",")
for I=0 to UBound (e)
edns=dns & "." & Trim (E (i))
url= "Http://www.che" ckdomain.com/cgi-bin/checkdomain.pl?domain= "&edns
wstr=gethttppage (URL)
if InStr (LCase ( WSTR), "registered") >0 then
Response.Write Edns & ": Registered <br>
else
& nbsp Response.Write Edns & ": Can register <br>"
end if
next
%>