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