XML에서 파일Url 추출해서 이미지 저장

파라메터 = request("파라메터")

 ' XMLHTTP 컨트롤 사용
 url = "http://xml경로="& 파라메터

 set objXmlHttp = createobject("MSXML2.ServerXMLHTTP")

 objXmlHttp.open "get",url,False
 objXmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded; charset=euc-kr;"

 objXmlHttp.send()

 imgData = objXmlHttp.responseText
 imgData = Left(imgData, Len(imgData) -1)
 arrfileName = Split(imgData, "/")
 fileName = arrfileName(ubound(arrfileName))
 

   Set http= CreateObject("MSXML2.ServerXMLHTTP")
       Http.Open "GET", imgData, false
       Http.Send()
       binData = Http.ResponseBody
   Set http = Nothing

   Set Stream = CreateObject("ADODB.Stream")
    Stream.open()
    Stream.type = 1
    Stream.Write binData
    Stream.SaveToFile server.MapPath("/images/goods/") & "/" & fileName,2
   Set Stream = Nothing