這篇文章給大家分享的是有關使用XMLHTTP制作域名查詢系統(tǒng)的案例分析的內容。小編覺得挺實用的，因此分享給大家做個參考。一起跟隨小編過來看看吧。

站在用戶的角度思考問題，與客戶深入溝通，找到華容網站設計與華容網站推廣的解決方案，憑借多年的經驗，讓設計與互聯(lián)網技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都做網站、網站設計、企業(yè)官網、英文網站、手機端網站、網站推廣、域名注冊、網站空間、企業(yè)郵箱。業(yè)務覆蓋華容地區(qū)。

如何使用XMLHTTP制作域名查詢系統(tǒng)的代碼案例

<%
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
%>
　　 

　 
　　 
　 
　 
　　 
　 
域名查詢系統(tǒng):<% 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制作域名查詢系統(tǒng)的案例分析就分享到這里了，希望以上內容可以對大家有一定的幫助，讓大家可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！

名稱欄目：使用XMLHTTP制作域名查詢系統(tǒng)的案例分析-創(chuàng)新互聯(lián)
本文URL：http://weahome.cn/article/gjjho.html