详解xmlhttp组件获取远程文件并筛选出目标数据

详解xmlhttp组件获取远程文件并筛选出目标数据

getfile.asp

<%
''利用xmlhttp组件获取远程文件保存到当前空间
''此是网站建设中的一个实例,远程获取一个网页内容并筛选出相关的天气数据,当然可以跳过文件本地存储再获取数据
''参考了xoyu的函数,在此感谢
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) ''根据内容进行筛选
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)&.--武汉中心气象台发布');
else
response.write document.write('暂未发布');
end if
''response.write server.htmlencode(str)
%>

在另一个htm页中引用显示获取内容

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