asp自动生成图片缩略图
<!--上传作者照片保存页面-->
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件
Path = Server.MapPath("www.web120.net/images/logo.gif") '待处理图片路径
Jpeg.Open Path '打开图片
'高与宽为原图片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2 '保存图片
Jpeg.Save Server.MapPath("www.web120.net/images/logo.gif")
%>