小编给大家分享一下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,"") 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页中引用显示获取内容
以上是xmlhttp组件如何获取远程文件并筛选出目标数据的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!
文章标题:xmlhttp组件如何获取远程文件并筛选出目标数据
链接URL:http://cdkjz.cn/article/gdchcg.html