이미지 URL저장

' 변수로 받아온 이미지 URL값

attFile          = getData("attFile")

' 테스트용 [실제 적용시 주석처리 해야지 됨]

attFile = "https://t1.daumcdn.net/cfile/tistory/256CF33E543370792B"

fPath = server.mappath("/fileup/")

set objXmlHttp = createobject("Microsoft.XMLHTTP")

objXmlHttp.open "get", attFile, false

objXmlHttp.send()

imgData = objXmlHttp.responseBody

set objXmlHttp = nothing

set objStream = CreateObject("ADODB.Stream")

objStream.Open()

objStream.Type = 1

objStream.Write imgData

' /fileup/test/20141010.jpg 로 저장됨, 이미지명은 알아서 변수로 처리. 단 확장자는 알수없음

objStream.SaveToFile fPath & "/test/" & "\20141010.jpg", 2

set objStream = Nothing