Query System | Query system development Such a domain name query system is actually a very easy thing, as long as we can allow users to query after the results, to see their input domain name is not occupied by others can, if not occupied we can apply.
<%
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
%>
<table width= "40%" border= "0" align= "center" cellpadding= "5" cellspacing= "1" bgcolor= "#999999" >
<tr>
<TD height= "bgcolor=" EFEFEF > Domain Name Query system: <% 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= "> <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</op