ASP远程保存图片

2016-02-19 11:15 7 1 收藏

有一种朋友不在生活里,却在生命力;有一种陪伴不在身边,却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗?话不多说下面就和大家分享ASP远程保存图片吧。

【 tulaoshi.com - Web开发 】


'先下载远程图片 
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 
%

来源:http://www.tulaoshi.com/n/20160219/1596867.html

延伸阅读
vsco图片怎么保存   vsco图片怎么保存 vsco相机保存照片到手机相册教程 斜向上share箭头,点击save to the camera roll即可保存图片,如果提示saving-save  successful但是相片里没有保存的就看看设置--隐私--照片里的VSCO CAM是不是关闭了。 中文版vscocam相册下方会有一个点圈,点击,在弹出的菜单中点击保存到...
Word中的图片如何保存如何全部一张不拉的原样保存下来,想必大家对此需求已经迫不及待了吧,当然方法有很多,但怎样才能以最快速度批量将Word中数量庞大的图片原样一张不少的提取出来,这里学问就大了。下面笔者为大家推荐一个WPS Word教程,它可以帮助你轻轻松松就把Word中所有的图片都保存下来,不信的朋友可以借此机会学习下哦,希望本教程...
Instagram怎么保存图片   虽然产品不错,但是它并不支持直接保存相片到手机,这让很多朋友头疼。很多朋友不禁问道,Instagram怎么保存图片到手机?今天我们就给大家整理了四中方法,希望对大家有帮助。 方法一:截屏   这种方法能快速获得图片,但是保存下来的图片会根据手机屏幕大小而改变,所以图片质量不好。不...
nice怎么保存图片?   在NICE设置里有,把保存图片到相册这个功能打开就可以了。
方法一、利用windows系统自带的远程桌面连接功能 1.“开始”→“附件”→“远程桌面连接” 2.由于这是一个主动过程连接的功能,所以使用时被连接一方需要提前开启允许远程控制的选项与授权允许访问的用户名,具体操作如上图:打开远程协助功能→打开计算机系统属性设置,打开“远程”选项卡→在“远程协助”选项中设置 允许远程...

经验教程

297

收藏

26
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部