ASP實現保存遠程圖片到本機

'這是ASP編程中，ASP將遠程的圖片保存到當前目錄下img文件夾中的代碼，大家可以把它定義成一個函數，以便到時候用的時候，調用一下即可。 vIEw source print? 01 <% 02 '先下載遠程圖片 03 url="/School/UploadFiles_7810/201603/20160320154555552.jpg" '遠程圖片地址 04 savepath=server.mappath("img") '圖片保存到當前目錄下的img文件夾中 05 '為文件重命名 06 randomize 07 ranNum=int(999*rnd) 08 filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum 09 '為文件重命名結束 10 set XMLhttp=server.createobject("Microsoft.XMLHTTP") 11 XMLhttp.open "get",url,false 12 XMLhttp.send 13 img = XMLhttp.ResponseBody 14 set XMLhttp=nothing 15 set objADOStream=server.createobject("ADODB.Stream") 16 objADOStream.Open() 17 objADOStream.type=1 18 objADOStream.Write(img) 19 objADOStream.SaveToFile(savepath&filename&".jpg") 20 objADOStream.SetEOS 21 set objADOStream=nothing 22 '文件下載結束 23 Set Upload = Server.CreateObject("Persits.Upload") '打開對象 24 Set File = Upload.OpenFile(savepath&filename&".jpg") '打開已經保存的文件 25 If File.ImageType <> "JPG" and File.ImageType <> "GIF" and File.ImageType <> "BMP" and File.ImageType <> "PNG" Then 26     Upload.DeleteFile savepath&filename&".jpg" '如果格式不正確就刪除這張已下載的圖片 27     response.write "錯誤的圖片格式" 28 end if 29 '注銷實例 30 Set Upload = nothing 31 Set File = nothing 32 %>