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

9442015-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

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

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

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

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