利用ASPJPEG为图片加水印及制作缩略图代码

Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
Jpeg.Open BlogPath & "/pic/file1/" & FileName  ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
Jpeg.Canvas.Font.Family = "黑体"  ' 设置字体 
Jpeg.Canvas.Font.Bold = False '是否设置成粗体 
Jpeg.Canvas.Font.Size = 26 '字体大小 
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "www.yuzhiguo.com"   '水印文字
Jpeg.Save BlogPath & "/pic/file1/" & FileName  ' 保存文件
Set Jpeg = Nothing

Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
Path = Server.MapPath(BlogPath & "/pic/file1/" & FileName) '处理图片路径
Jpeg.Open Path '打开图片
'调整宽度和高度为原来的50%,也可以直接写固定的数字大小
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath(BlogPath & "/pic/file1/" & FileName) '保存图片到磁盘
Jpeg.Close:Set Jpeg = Nothing