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

專注于為中小企業(yè)提供成都網(wǎng)站設計、網(wǎng)站建設服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)瓊海免費做網(wǎng)站提供優(yōu)質(zhì)的服務。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上千企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設實現(xiàn)規(guī)模擴充和轉變。

 getfile.asp

<%
''利用xmlhttp組件獲取遠程文件保存到當前空間
''此是網(wǎng)站建設中的一個實例,遠程獲取一個網(wǎng)頁內(nèi)容并篩選出相關的天氣數(shù)據(jù),當然可以跳過文件本地存儲再獲取數(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 ''對文本型文件可直接獲取內(nèi)容,但不能支持中文,不知道如何解決
End With
　　 
Set Retrieval = Nothing
''RESPONSE.WRITE GetDetail
　　 
Set Ads = Server.CreateObject("Adodb.Stream") ''生成對應文件
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
　　 
''以上完成遠程存儲文件,以下只適用于對文本型文件的操作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,"")
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('恩施州未來24小時天氣預報:"&xu(1)&",最低溫度"&xu(2)&"攝氏度,最高溫度"&xu(3)&"攝氏度,風向:"&xu(4)&".--武漢中心氣象臺發(fā)布');"
else
response.write "document.write('暫未發(fā)布');"
end if
''response.write server.htmlencode(str)
%>

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

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

當前題目：xmlhttp組件如何獲取遠程文件并篩選出目標數(shù)據(jù)-創(chuàng)新互聯(lián)
URL標題：http://weahome.cn/article/eosjh.html