西安网站建设ASP缩放居中裁减生成缩略图JPEG组建代码

8262015-04-12
西安网站建设ASP缩放居中裁减生成缩略图JPEG组建代码

Sub Dianmo_2015(imgurl)
dim jpeg
Set jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
jpeg.Open Server.MapPath(imgurl) '打开图片
jpeg.PreserveAspectRatio = True '等比缩放
'Response.write "jpeg.OriginalWidth="&jpeg.OriginalWidth&"<br>" '原图宽
'Response.write "jpeg.OriginalHeight="&jpeg.OriginalHeight&"<br>" '原图高


if jpeg.OriginalWidth-jpeg.OriginalHeight>0 then '宽大于高
 jpeg.width=350
 jpeg.height=350
 now_width_2015 = Jpeg.OriginalWidth*350 / jpeg.OriginalHeight
 now_width_2015=now_width_2015-350
 now_width_2015=now_width_2015/2
 
 jpeg.crop now_width_2015,0,now_width_2015+350,350 '裁掉宽图两边的部分

else '高大于宽
 jpeg.height=350
 jpeg.width=350
 
 now_height_2015 = Jpeg.OriginalHeight*350 / jpeg.OriginalWidth
 now_height_2015=now_height_2015-350
 now_height_2015=now_height_2015/2
 jpeg.crop 0,now_height_2015,350,now_height_2015+350
end if

jpeg.Save Server.MapPath(imgurl&"_s.jpg") '保存图片到磁盘,我是在原图后面加了个JPG扩展,不用保存到数据库,调用原图加后缀就是新缩略图,比较省事
jpeg.Close:Set jpeg = Nothing
End Sub

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1