减小字体
增大字体- ·上一篇文章：常用防CC攻击的asp代码
- ·下一篇文章：ASP程序中调用函数Now()中文的问题
ASP实现保存远程图片到本机
'这是asp编程中，asp将远程的图片保存到当前目录下img文件夹中的代码，大家可以把它定义成一个函数，以便到时候用的时候，调用一下即可。
<(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)
% '先下载远程图片 url="http://www.K88.NET/uploadfile/adv/s20111015104708.jpg" '远程图片地址 savepath=server.mappath("img") '图片保存到当前目录下的img文件夹中'为文件重命名 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 %>
ASP实现保存远程图片到本机
