 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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> 返回类别: 教程 上一教程: 一个BBS的源代码(四) 下一教程: 趣味访客计数器设计两则 您可以阅读与"XMLHTTP组件获取远程文件并筛选出目标数据"相关的教程: · 使用XMLHTTP和ADODB.STREAM取得远程文件并保存到本地 · XMLHTTP下载远程数据输出到浏览器 · 大灰狼的ASP工具箱??XMLHTTP的应用，获得远程的文件，获得远程HTML文件源码 · XMLHTTP异步获取网站数据的例子 · 利用XMLHTTP 从其他页面获取数据 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
