文歌随笔(Aven's Blog)

致"文歌"所有朋友:
  
  今天,“文歌随笔”已经走了十个年头。很庆幸,他还在,近期我会抽些时间对内容进行调整,感谢大家的支持! 谢谢!
                                                      ----黑蝙蝠(QQ:67858601)
2015.05.08

English Sentence Loading...
英语句子加载中...

  网站消息:增加二维码扫描功能,扫一扫可以使用手机浏览!2015.05.13
  网站消息:
关闭原有评论和留言系统,加入第三评论系统-友言!2015.05.12
  网站消息:尝试着对博客进行调整,尽量更新,敬请关注!2015.05.08

  1.申请“友情链接”的朋友请到这里        2.留言板| 亲,请点这里给我留言吧

[ASP]利用AspJpeg组件给上传图片自动加水印




利用AspJpeg组件给上传图片自动加水印,在使用该组件前请测试你的服务器是否支持。
在你的上传文件(如:upfilea.asp)中加入以下代码:

Dim Jpeg'' 水印部分代码开始
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath(FileName) '获取图片,根据实际情况更改
Jpeg.Canvas.Font.Color = &330066'' 绿色'' '设置文字水印颜色
Jpeg.Canvas.Font.Family = "宋体"                '设置文字字体
Jpeg.Canvas.Font.Size = 12                        '设置字体大小
Jpeg.Canvas.Pen.Width = 2                        '画笔宽度
Jpeg.Canvas.Font.Quality = 1                     ' 设置文字清晰度
Jpeg.Canvas.Font.Bold = True                    '设置字体加粗
Jpeg.Canvas.Print 180, 420, "Lounger.cn"   '定义水印文字
Jpeg.Save Server.MapPath(FileName)     '保存文件,根据实际情况更改
Set Jpeg = Nothing                   ' 注销对象 水印部分结束


该代码已测试通过,支持ASP。



[本日志由 黑蝙蝠 于 2008-04-13 01:46 AM 编辑]
上一篇: [摄影]数码相机术语详解
下一篇: [商务]8种最有效的创业赢利模式之七:产品金字塔模式
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp AspJpeg组件 图片 水印
相关日志:
评论: 2 | 引用: 0 | 查看次数: 34484
owlly[2008-12-09 06:14 PM | | | 218.85.196.250 | del | 回复回复]
沙发
Jpeg.Open Server.MapPath(FileName) '获取图片,根据实际情况更改

这个地方要怎么改

黑蝙蝠回复:就是你图片的路径和文件的名称啊。
发表评论