본문 바로가기
Development/Visual Basic | VBScript | ASP

XMLHTTP

by Dev. Jkun 2013. 5. 30.
반응형

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



반응형

댓글