当前位置导航:炫浪网>>网络学院>>网页制作>>XML/WebService教程

XML HTTP组件获取远程文件

  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>
相关内容
赞助商链接