首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
用ASP生成XML数据文档(RSS订阅..
asp添加xml节点问题
Asp.net+Xml实现无数据库论坛(..
Asp.net+Xml实现无数据库论坛(..
Asp.net+Xml实现无数据库论坛(..
js添加、修改、删除xml节点例子
ASP.NET查找XML节点的几个方法
使用ASP添加xml节点功能
使用asp修改xml中的节点
ASP历遍XML节点与字节点之简单..
ASP向xml文件中的添加节点
ASP遍历XML节点
asp修改xml节点属性
小白ajax定时更新xml数据练习
Ajax核心:XMLHTTP组件相关技术..
远程获取内容,并将内容存在本..
xmlhttp组件获取远程文件并筛选..
XMLHTTP对象及其方法
把HTML表单提交的数据转化成XML..
利用XMLHTTP无刷新添加数据之Po..
Js+Xml:不刷新页面获取对应网址..
xml(元标记语言)学习基础一
Java语言编程中更新XML文档的常..
简析JAVA中的XML编程
XML及其技术指南
XML教程(2)--XML元素与XML属性..
XML教程(1)--严格的语法
从XML到Java代码的数据绑定之一
神奇的XML--突破CGI权限的约束
基于XML的数据库总体分析

技术教程 -> XML教程 ->  
xmlhttp组件获取远程文件并筛选出目标数据
来源:www.souzz.net   人气:3260   录入时间:2006/7/2


    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
   
   ''以上完成远程存储文件,以下只适用于对文本型文件的操作
   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>
   



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2019 868资源网- 版权所有    粤ICP备05007330号