利用aspjpeg组件对图片进行处理 1、为图片制作缩略图 <% ' 建立实例Dim Jpeg,PathSet Jpeg = Server.CreateObject("Persits.Jpeg")' 图片所在位置Path = Server.MapPath("images") & "\clock.jpg" ' 打开Jpeg.Open Path ' 设置缩略图大小（这里比例设定为50%）Jpeg.Width = Jpeg.OriginalWidth / 2Jpeg.Height = Jpeg.OriginalHeight / 2 ' 保存缩略图到指定文件夹下Jpeg.Save Server.MapPath("images") & "\clock_small.jpg" ' 注销实例Set Jpeg = Nothing%> <IMG SRC="images/clock.jpg"><P><IMG SRC="images/clock_small.jpg"> 2、为图片加入水印功能 <%Dim Jpeg' 建立实例Set Jpeg = Server.CreateObject("Persits.Jpeg")' 打开目标图片Jpeg.Open Server.MapPath("images/dodge_viper.jpg") ' 添加文字水印Jpeg.Canvas.Font.Color = &HFF0000' 红色Jpeg.Canvas.Font.Family = "宋体"Jpeg.Canvas.Font.Bold = True  Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org" ' 保存文件Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") ' 注销对象Set Jpeg = Nothing%> ' Aspjpeg 功能设置Set Jpeg = Server.CreateObject("Persits.Jpeg")' 获取源图片路径Path = Server.MapPath("uploadimages/")&"/"&FileName' 打开源图片Jpeg.Open Path' 设定生成缩略图细节 这里有很多种设定方法 下面的方法是先判断宽高比 然后按比例缩放If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 thenJpeg.Width = 98 Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 thenJpeg.Width = 98Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height)end if' 设定锐化效果Jpeg.Sharpen 1, 130 ' 向指定路径生成缩略图Jpeg.Save Server.MapPath("uploadimages/")&"/small"&FileName%> 来源：csdn  作者：daviva

评论