[ASP] XMLHTTP GET으로 파일 읽어오기

function GetFileFrom(sURL, sSavepath)

    on error resume next

    dim oHTTP, oStream

    Const adTypeBinary = 1

    Const adSaveCreateOverWrite = 2

    set oHTTP = Server.CreateObject("Microsoft.XMLHTTP")

    oHTTP.open "GET", sURL, False

    oHTTP.send

    set oStream = Server.Createobject("ADODB.Stream")

    oStream.type = adTypeBinary

    oStream.open

    oStream.write oHTTP.responseBody

    oStream.savetofile sSavepath, adSaveCreateOverWrite

    set oStream = nothing

    set oHTTP = nothing

    if err.number <> 0 then
     GetFileFrom = false

    Else
     GetFileFrom = true

    end if

end function

Call GetFileFrom(sPath, "test11.xml") ' 사용예