南强小屋 Design By 杰米
'==================================================
'过程名:SaveRemoteFile
'作  用:保存远程的文件到本地
'参  数:LocalFileName ------ 本地文件名
'参  数:RemoteFileUrl ------ 远程文件URL
'==================================================
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
    SaveRemoteFile=True
    dim Ads,Retrieval,GetRemoteData    
    On Error Resume Next
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", RemoteFileUrl, False, "", ""
        .Send
        If .Readystate<>4 or .Status > 300 then
            SaveRemoteFile=False
            Exit Function
        End If
        GetRemoteData = .ResponseBody
    End With
    Set Retrieval = Nothing
    'If LenB(GetRemoteData) < 100 Then Exit Function
    'If MaxFileSize > 0 Then
            'If LenB(GetRemoteData) > 5000 Then Exit Function
            Response.Write(Round(LenB(GetRemoteData)/1024)) & "KB"
    'End If
    Set Ads = Server.CreateObject("Adodb.Stream")
    With Ads
        .Type = 1
        .Open
        .Write GetRemoteData
        .SaveToFile server.MapPath(LocalFileName),2
        .Cancel()
        .Close()
    End With
    If Err.number<>0 then
      SaveRemoteFile=False
      Exit Function
         Err.Clear
       End If
    Set Ads=nothing

end Function
标签:
SaveRemoteFile函数之asp实现保存远程的文件到本地的代码

南强小屋 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
南强小屋 Design By 杰米

评论“SaveRemoteFile函数之asp实现保存远程的文件到本地的代码”

暂无SaveRemoteFile函数之asp实现保存远程的文件到本地的代码的评论...