<%
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, "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</option>
<option value= "net.cn" >.net.cn</option>
<option value= "gov.cn" >.gov.cn</option>
</select>
</div></td>
</tr>
<tr>
<TD height= ">"
<div align= "center" >
<input type= "Submit" name= "Submit" value= "Enquiry" >
</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= "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= "good domain name" >
<input type= "Submit" Name= "ss" value= "View" onclick=document.search_form.action= ' Http://search.sohu.com/web ' style = "Font-size:14px;width=40;height=20" >
</div>
</FORM></td>
</tr>
</table>
I've already tested the code locally. Normal pass.
The Microsoft.XMLHTTP component used in the article. For its use, see:http://www.knowsky.com/5190.html
Turn from: Dynamic Network production guide www.knowsky.com