28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建ASPJpeg对象实例
Path = Server.MapPath("../images/apple.jpg") '设置图片路径
Jpeg.Open Path '打开图片
'调整宽度和高度为原来的50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("apple_small.jpg") '保存图片到磁盘
Jpeg.Close:Set Jpeg = Nothing
%>