외부 이미지 저장 소스

프로그래밍/Asp |  2009/04/27 19:24
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 

2009/04/27 19:24 2009/04/27 19:24
No trackbacks, No comments.

Trackback Address :: https://youngsam.net/trackback/351

1 ... 98 99 100 101 102 103 104 105 106 ... 198