西安网站建设另外一例ASP+JPEG组件生成等比缩放缩略图

16222012-05-13

西安网站建设另外一例ASP+JPEG组件生成等比缩放缩略图

Sub AsaiPicSuo(pic1,pic2,newwidth,newheight)
dim jpeg
Set jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
jpeg.Open Server.MapPath(pic1) '打开图片
 jpeg.PreserveAspectRatio = True '等比缩放
 if (jpeg.OriginalWidth/jpeg.OriginalHeight)>(newwidth/newheight) then '太扁了,要剪掉左右部分
jpeg.Height = newheight
  jpeg.crop CInt((jpeg.Width-newwidth)/2),0,CInt((jpeg.Width-newwidth)/2)+newwidth,newheight
 else '太高了,要剪掉上下部分
  jpeg.Width = newwidth
  jpeg.crop 0,CInt((jpeg.Height-newheight)/2),newwidth,CInt((jpeg.Height-newheight)/2)+newheight
 end if
jpeg.Save Server.MapPath(pic2) '保存图片到磁盘
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