원격 파일을 얻고 대상 데이터를 필터링하는 xmlhttp 구성 요소에 대한 자세한 설명

黄舟
풀어 주다: 2017-03-27 16:47:27
원래의
2118명이 탐색했습니다.

자세한 설명xmlhttp 구성 요소는 원격 파일을 얻고 대상 데이터를 필터링합니다

getfile.asp

<%
&#39;&#39;利用xmlhttp组件获取远程文件保存到当前空间
&#39;&#39;此是网站建设中的一个实例,远程获取一个网页内容并筛选出相关的天气数据,当然可以跳过文件本地存储再获取数据
&#39;&#39;参考了xoyu的函数,在此感谢
fileurl="http://www.hbqx.gov.cn/other/tqyb/inc_city_hb.asp"
dotloc=InStrRev(fileurl,".")
filepath="thistest"&mid(fileurl,dotloc) &#39;&#39;建立同类型文件名
&#39;&#39;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
&#39;&#39; GetDetail = .ResponseText &#39;&#39;对文本型文件可直接获取内容,但不能支持中文,不知道如何解决
End With
   
Set Retrieval = Nothing
&#39;&#39;RESPONSE.WRITE GetDetail
   
Set Ads = Server.CreateObject("Adodb.Stream") &#39;&#39;生成对应文件
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
   
&#39;&#39;以上完成远程存储文件,以下只适用于对文本型文件的操作www.knowsky.com
set fso=server.createobject("scripting.filesystemobject") &#39;&#39;读取文件内容
set fileout=fso.opentextfile(server.mappath(filepath),1)
content=fileout.readall
set fileout=nothing
set fso=nothing
&#39;&#39;response.write content
   
contentarr=split(content,"<td") &#39;&#39;根据内容进行筛选
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(&#39;恩施州未来24小时天气预报:"&xu(1)&",最低温度"&xu(2)&"摄氏度,最高温度"&xu(3)&"摄氏度,风向:"&xu(4)&".--武汉中心气象台发布&#39;);"
else
response.write "document.write(&#39;暂未发布&#39;);"
end if
&#39;&#39;response.write server.htmlencode(str)
%>
로그인 후 복사

다른 HTML 페이지에서인용문내용 보기

<script src="getfile.asp"></script>
로그인 후 복사

위 내용은 원격 파일을 얻고 대상 데이터를 필터링하는 xmlhttp 구성 요소에 대한 자세한 설명의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

원천:php.cn
본 웹사이트의 성명
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.
인기 튜토리얼
더>
최신 다운로드
더>
웹 효과
웹사이트 소스 코드
웹사이트 자료
프론트엔드 템플릿
회사 소개 부인 성명 Sitemap
PHP 중국어 웹사이트:공공복지 온라인 PHP 교육,PHP 학습자의 빠른 성장을 도와주세요!