使用XMLHTTP制作域名查询系统的案例分析-创新互联

这篇文章给大家分享的是有关使用XMLHTTP制作域名查询系统的案例分析的内容。小编觉得挺实用的，因此分享给大家做个参考。一起跟随小编过来看看吧。

如何使用XMLHTTP制作域名查询系统的代码案例

<%
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=" 
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,"可以注册")　
　 if instr(lcase(wstr),"已被注册的域名")>0 then
　　 body="域名已经被注册"
　 elseif instr(lcase(wstr),"未被注册的域名")>0 then
　 body="域名未被注册"
　 else
　　 body="网络延迟,请重新查找"
　 end if　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
end if
%>
　　 

　 
　　 
　 
　 
　　 
　 
域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%>

　　　　 
　　　　　 
　　　　　　 
　　　　 
　　　　 
　　　　 
　　　　　 
　　　　 
　　　 
 
www.
　　　　　　　　 
　　　　　　　　 
　　　　　　　　　 .cn
　　　　　　　　　 .com
　　　　　　　　　 .net
　　　　　　　　　 .org
　　　　　　　　　 .com.cn
　　　　　　　　　 .net.cn
　　　　　　　　　 .gov.cn
　　　　　　　　 
　　　　　　　 


　　　　　　　 
　　　　　　 
　　　　　　 


　　 
 

　 
　　 
　 

代码我已经在本地测试过了。正常通过。

感谢各位的阅读！关于使用XMLHTTP制作域名查询系统的案例分析就分享到这里了，希望以上内容可以对大家有一定的帮助，让大家可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到吧！