小編給大家分享一下xmlhttp組件如何獲取遠程文件并篩選出目標數(shù)據(jù),相信大部分人都還不怎么了解,因此分享這篇文章給大家參考一下,希望大家閱讀完這篇文章后大有收獲,下面讓我們一起去了解一下吧!
創(chuàng)新互聯(lián)公司服務項目包括建甌網(wǎng)站建設、建甌網(wǎng)站制作、建甌網(wǎng)頁制作以及建甌網(wǎng)絡營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等,向廣大中小型企業(yè)、政府機構等提供互聯(lián)網(wǎng)行業(yè)的解決方案,建甌網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前,我們服務的客戶以成都為中心已經(jīng)輻射到建甌省份的部分城市,未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任!
getfile.asp
<% ''利用xmlhttp組件獲取遠程文件保存到當前空間 ''此是網(wǎng)站建設中的一個實例,遠程獲取一個網(wǎng)頁內容并篩選出相關的天氣數(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 ''對文本型文件可直接獲取內容,但不能支持中文,不知道如何解決 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") ''讀取文件內容 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ù)內容進行篩選 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('恩施州未來24小時天氣預報:"&xu(1)&",最低溫度"&xu(2)&"攝氏度,最高溫度"&xu(3)&"攝氏度,風向:"&xu(4)&".--武漢中心氣象臺發(fā)布');" else response.write "document.write('暫未發(fā)布');" end if ''response.write server.htmlencode(str) %>
在另一個htm頁中引用顯示獲取內容
<script src="getfile.asp"></script>
以上是xmlhttp組件如何獲取遠程文件并篩選出目標數(shù)據(jù)的所有內容,感謝各位的閱讀!相信大家都有了一定的了解,希望分享的內容對大家有所幫助,如果還想學習更多知識,歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道!
新聞標題:xmlhttp組件如何獲取遠程文件并篩選出目標數(shù)據(jù)
URL網(wǎng)址:http://muchs.cn/article26/gdchcg.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營銷、網(wǎng)站設計公司、營銷型網(wǎng)站建設、Google、全網(wǎng)營銷推廣、微信公眾號
聲明:本網(wǎng)站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)