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

站在用戶的角度思考問題，與客戶深入溝通，找到華容網(wǎng)站設(shè)計(jì)與華容網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗(yàn)，讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個(gè)性化、用戶體驗(yàn)好的作品，建站類型包括：成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊(cè)、網(wǎng)站空間、企業(yè)郵箱。業(yè)務(wù)覆蓋華容地區(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,"可以注冊(cè)")　
　 if instr(lcase(wstr),"已被注冊(cè)的域名")>0 then
　　 body="域名已經(jīng)被注冊(cè)"
　 elseif instr(lcase(wstr),"未被注冊(cè)的域名")>0 then
　 body="域名未被注冊(cè)"
　 else
　　 body="網(wǎng)絡(luò)延遲,請(qǐng)重新查找"
　 end if　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
end if
%>
　　 
<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
　 <tr>
　　 <td height="26" bgcolor="efefef">域名查詢系統(tǒng):<% 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="36"> <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="35">
<div align="center">
　　　　　　　 <input type="submit" name="Submit" value=" 查 詢 ">
　　　　　　 </div>
　　　　　　 <div align="center"></div></td>
　　　　 </tr>
　　　 </table></form></td>
　 </tr>
</table>
　　 
<p align="center">&nbsp;</p>
<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
　 <tr>
　　 <td height="42" 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="好域名">
　　　　　 <input type="submit" name="ss" value="查看"onclick=document.search_form.action='http://search.sohu.com/web' style="font-size:14px;width=40;height=20">
　　　　　 &nbsp;</div>
　　　 </FORM></td>
　 </tr>
</table>

代碼我已經(jīng)在本地測(cè)試過了。正常通過。

感謝各位的閱讀！關(guān)于使用XMLHTTP制作域名查詢系統(tǒng)的案例分析就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)。如果覺得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！

新聞名稱：使用XMLHTTP制作域名查詢系統(tǒng)的案例分析-創(chuàng)新互聯(lián)
網(wǎng)站網(wǎng)址：http://aaarwkj.com/article40/gjjho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、虛擬主機(jī)、網(wǎng)站策劃、網(wǎng)站排名、品牌網(wǎng)站制作、全網(wǎng)營銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)