ASP - 외부 URL 이미지 가져오기

<%

  img_url = "http://~~~경로"

  Set xh = CreateObject("MSXML2.ServerXMLHTTP")

  xh.Open "GET", img_url, false

  xh.Send()

  imgData = xh.ResponseBody

  Set  xh = Nothing

  Set stm =CreateObject("ADODB.Stream")

  stm.open()

  stm.type=1

  stm.write imgData

  stm.SaveToFile 저장경로&저장할이름, 2

  stm.close()

  Set  stm = Nothing

%>