<%
'先下載遠程圖片
url=\"http://www.im286.com/image... '遠程圖片地址
savepath=\"D:\photo\\" '儲存路徑
'為檔案重新命名
randomize
ranNum=int(999*rnd)
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum
'為檔案重新命名結束
set xmlhttp=server.createobject(\"Microsoft.XMLHTTP\")
xmlhttp.open \"get\",url,false
xmlhttp.send
img = xmlhttp.ResponseBody
set xmlhttp=nothing
set objAdostream=server.createobject(\"ADODB.Stream\")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(img)
objAdostream.SaveToFile(savepath&filename&\".jpg\")
objAdostream.SetEOS
set objAdostream=nothing
'檔案下載結束
Set Upload = Server.CreateObject(\"Persits.Upload\") '開啟對象
Set File = Upload.OpenFile(savepath&filename&\".jpg\") '開啟已經儲存的檔案
If File.ImageType <> \"JPG\" and File.ImageType <> \"GIF\" and File.ImageType <> \"BMP\" and File.ImageType <> \"PNG\" Then
Upload.DeleteFile savepath&filename&\".jpg\" '如果格式不正確就刪除這張已下載的圖片
response.write \"錯誤的圖片格式\"
end if
'登出執行個體
Set Upload = nothing
Set File = nothing
%>
