상담사례

<%
   urlS     = "http://static.naver.com/kin/img"
   FILENAME = "/tmp13.gif" '/ 표시 주의!
   SAVEpath = Server.MapPath("/")

'   Set http= CreateObject("Microsoft.XMLHTTP") '엮인글의 사유로 변경함

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

   Set Stream = CreateObject("ADODB.Stream")
   Stream.open()
   Stream.type = 1
   Stream.Write binData
   Stream.SaveToFile savepath & filename,2
   Set Stream = Nothing

   '--- 화면에 보기
   '   Response.BinaryWrite binData
%>