小編給大家分享一下xmlhttp組件如何獲取遠(yuǎn)程文件并篩選出目標(biāo)數(shù)據(jù)，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括建甌網(wǎng)站建設(shè)、建甌網(wǎng)站制作、建甌網(wǎng)頁(yè)制作以及建甌網(wǎng)絡(luò)營(yíng)銷策劃等。多年來(lái)，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，建甌網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到建甌省份的部分城市，未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

 getfile.asp

<%
''利用xmlhttp組件獲取遠(yuǎn)程文件保存到當(dāng)前空間
''此是網(wǎng)站建設(shè)中的一個(gè)實(shí)例,遠(yuǎn)程獲取一個(gè)網(wǎng)頁(yè)內(nèi)容并篩選出相關(guān)的天氣數(shù)據(jù),當(dāng)然可以跳過(guò)文件本地存儲(chǔ)再獲取數(shù)據(jù)
''參考了xoyu的函數(shù),在此感謝
fileurl="http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp"
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) ''建立同類型文件名
''filepath="thistest.htm"
　　 
call saveRemoteFile(filepath,fileurl)
　　 
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
'' GetDetail = .ResponseText ''對(duì)文本型文件可直接獲取內(nèi)容,但不能支持中文,不知道如何解決
End With
　　 
Set Retrieval = Nothing
''RESPONSE.WRITE GetDetail
　　 
Set Ads = Server.CreateObject("Adodb.Stream") ''生成對(duì)應(yīng)文件
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
　　 
''以上完成遠(yuǎn)程存儲(chǔ)文件,以下只適用于對(duì)文本型文件的操作www.knowsky.com
set fso=server.createobject("scripting.filesystemobject") ''讀取文件內(nèi)容
set fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
set fileout=nothing
set fso=nothing
''response.write content
　　 
contentarr=split(content,"<td") ''根據(jù)內(nèi)容進(jìn)行篩選
for i=1 to ubound(contentarr)
if instr(contentarr(i),"恩施") then thisloc=i
next
dim xu(5)
for j=0 to 4
con1=contentarr(thisloc+j)
start1=instr(con1,">")
con1=right(con1,len(con1)-start1)
stop1=instr(con1,"<")
con1=left(con1,stop1-1)
str=str&contentarr(thisloc+j)
xu(j)=trim(con1)
next
if xu(1)<>"" then
response.write "document.write('恩施州未來(lái)24小時(shí)天氣預(yù)報(bào):"&xu(1)&",最低溫度"&xu(2)&"攝氏度,最高溫度"&xu(3)&"攝氏度,風(fēng)向:"&xu(4)&".--武漢中心氣象臺(tái)發(fā)布');"
else
response.write "document.write('暫未發(fā)布');"
end if
''response.write server.htmlencode(str)
%>

在另一個(gè)htm頁(yè)中引用顯示獲取內(nèi)容

<script src="getfile.asp"></script>

以上是xmlhttp組件如何獲取遠(yuǎn)程文件并篩選出目標(biāo)數(shù)據(jù)的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

新聞標(biāo)題：xmlhttp組件如何獲取遠(yuǎn)程文件并篩選出目標(biāo)數(shù)據(jù)
URL網(wǎng)址：http://aaarwkj.com/article26/gdchcg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營(yíng)銷、網(wǎng)站設(shè)計(jì)公司、營(yíng)銷型網(wǎng)站建設(shè)、Google、全網(wǎng)營(yíng)銷推廣、微信公眾號(hào)

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)