在zBlog文章页中图片自动加水印方法

尘起缘飞

很多使用zblog程序搭建的博客站长都会遇到这个问题，图片上传后，是无法自动为上传的图片添加水印的。
将下面代码复制到c_system_lib.asp文件的TUpLoadFile类中的Upload函数的结尾即可实现水印功能。
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 建立对象
Jpeg.Open BlogPath & "/upload/" & 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, "呵呵呵" '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing

65177

什么内容都有

qjipdWkB

鉴定完毕.!