<%
  '------------------------------------------------------------------------
  '-------------------无垠网域：http://www.5inet.net/ ---------------------
  '-------------------作者：嘻哈呵嘿 ,webmaster@5inet.net -----------------
  '----------远程获取内容，并将内容存在本地电脑上，包括任何文件！----------
  '---------------利用xmlhttp和adodb.stream,酷！绝对原创！-----------------
  'On Error Resume Next
  'Set the content type to the specific type that you are sending.
  'Response.ContentType = "IMAGE/JPEG"
  '-------------------------------定义输出格式-----------------------------
  
  Path=request.querystring("p")
  sPath = Path
  if left(lcase(path),7) <> "http://" then
  '-------------如果前面没有http就是本地文件，交给LocalFile处理------------
  LocalFile(path)
  else
  '--------------------否则为远程文件，交给RemoteFile处理------------------
  RemoteFile(Path)
  end if
  'Response.Write err.Description
  
  sub LocalFile(Path)
  '-------------------如果为本地文件则简单的跳转到该页面-------------------
  Response.Redirect Path
  End Sub
  
  Sub RemoteFile(sPath)
  '-------------------------处理远程文件函数------------------------------
  FileName = GetFileName(sPath)
  '-------------GetFileName为把地址转换为合格的文件名过程-------------
  FileName = Server.MapPath("/UploadFile/Cache/" & Fil

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

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

	Web www.51ec.org

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

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