用AspJpeg组件生成图片缩略图及生成图片水印代码

生成图片缩略图代码
<%  
Set Jpeg = Server.CreateObject("Persits.Jpeg")    ’创建实例 
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 
%>  

生成图片水印代码
<%  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")  
开始写文字  
Jpeg.Canvas.Font.Color = &000000’’ red 颜色  
Jpeg.Canvas.Font.Family = "Courier New" 字体  
Jpeg.Canvas.Font.Bold = True 是否加粗  
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."  
打印坐标x 打印坐标y 需要打印的字符  
以下是对图片进行边框处理  
Jpeg.Canvas.Pen.Color = &H000000’’ black 颜色  
Jpeg.Canvas.Pen.Width = 2 画笔宽度  
Jpeg.Canvas.Brush.Solid = False 是否加粗处理  
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height  
起始X坐标 起始Y坐标 输入长度 输入高度  
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存  
%>