AspJpeg组件生成图片缩略图

<%
Dim Jpeg '//声明变量

Set Jpeg = Server.CreateObject("Persits.Jpeg") '//调用组件

Jpeg.Open Server.MapPath("aaa.JPG") '//原图位置

Jpeg.Width = Jpeg.OriginalWidth/4 '//设图片宽度为原图的四分之一

Jpeg.Height = Jpeg.OriginalHeight/4 '//设图片高度为原图的四分之一

Jpeg.Sharpen 1, 130 '//设定锐化效果

Jpeg.Save Server.MapPath("aaa_small.jpg") '//生成缩略图位置及名称

Set Jpeg = Nothing '//注销组件，释放资源

Response.Write "<img src=aaa_small.jpg>" '//在该页显示生成缩略图
%>