url1 = "http://icon.hanmail.net/top/0303/logo2.gif"

Set xh = CreateObject("MSXML2.ServerXMLHTTP")

xh.Open "GET", url1, false

xh.Send()

imgData = xh.ResponseBody

Set  xh = Nothing


Set stm =CreateObject("ADODB.Stream")

stm.open()

stm.type=1

stm.write imgData

stm.SaveToFile Server.MapPath("/") & "\logo.gif", 2

stm.close()

Set  stm = Nothing



'Development > ASP' 카테고리의 다른 글

서버사이드 비동기 접근  (0) 2013.05.30
ASP 에서 XML파서를 이용한 AJAX 한글처리  (0) 2013.05.30
XMLHTTP  (0) 2013.05.30
MSXML2.ServerXMLHTTP  (0) 2013.05.30
ASP Dictionary Object  (0) 2012.10.17
ASP, VBScript 형변환, 날짜/시간함수  (0) 2012.05.23

+ Recent posts