登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

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

2008-03-19 15:57:18|  分类: asp高级篇 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 

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>

  评论这张
 
阅读(528)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018