eName)
  Set objFso = Server.CreateObject("Scripting.FileSystemObject")
  'Response.Write fileName
  if objFso.FileExists(FileName) Then
  '--------------检查文件是否是已经访问过,如是，则简单跳转------------
  Response.Redirect "/uploadfile/cache/" & GetFileName(path)
  Else
  '----------------否则的话就先用GetBody函数读取----------------------
  'Response.Write Path
  t = GetBody(Path)
  '-----------------用二进制方法写到浏览器上--------------------------
  Response.BinaryWrite t
  Response.Flush
  '-----------------输出缓冲------------------------------------------
  SaveFile t,GetFileName(path)
  '------------------将文件内容缓存到本地路径，以待下次访问-----------
  End if
  Set objFso = Nothing
  End Sub
  
  Function GetBody(url)
  '-----------------------本函数为远程获取内容的函数---------------------
  'on error resume next
  'Response.Write url
  Set Retrieval = CreateObject("Microsoft.XMLHTTP")
  '----------------------建立XMLHTTP对象-----------------------------
  With Retrieval
  .Open "Get", url, False, "", ""
  '------------------用Get，异步的方法发送-----------------------
  .Send
  'GetBody = .ResponseText
  GetBody = .ResponseBody
  '------------------函数返回获取的内容--------------------------
  End With
  Set Retrieval = Nothing

上一页  [1] [2] [3] 下一页

在google里搜索更多远程获取内容，并将内容存在本地电脑上，包括任何文件

	Web www.51ec.org

上一篇信息学院： 使用NextRecordset通过一个Connection输出多个select查询

下一篇信息学院： 一个分页存储过程