小鬼论坛 - Powered by Discuz! Board

标题: 在zBlog文章页中图片自动加水印方法 [打印本页]

作者: 尘起缘飞 时间: 2012-3-28 08:21 标题: 在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 时间: 2012-4-1 20:38

什么内容都有

作者: qjipdWkB 时间: 2012-7-22 16:53

鉴定完毕.!

欢迎光临小鬼论坛 (http://bbs.xghome.net/)