SaveRemoteFile函数之asp实现保存远程的文件到本地的代码_ASP教程

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

2019-10-09 14:20asp代码网 ASP教程

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

'==================================================

'过程名：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