ASP保存远程文件到本地（实用版） -pc6资讯

您的位置：首页 → 技术开发 → ASP 学院 → ASP保存远程文件到本地（实用版）

ASP保存远程文件到本地（实用版） 时间：2009/11/10 11:55:00来源：本站整理作者：我要评论(0)

<%
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
    SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
   .Open "Get", RemoteFileUrl, False, "", ""
   .Send
        If .Readystate<>4 then
            SaveRemoteFile=False
            Exit Function
        End If
   GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
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 Function
%>

<%
'以下为调用示例：
remoteurl="http://www.uyux.cn/logo.gif"'远程文件名（绝对全路径）
localfile=Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名（可自定义）
If SaveRemoteFile(localfile,remoteurl)=True Then
Response.Write("成功保存："&localfile)
End If
%>

资料引用:http://www.knowsky.com/532629.html

相关视频

没有数据

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。