利用jpeg组件加图片水印函数

2008-02-23 07:46:02来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

写了图片水印效果函数,代码如下:

程序代码:

sub jpegclass(imgurl,fontsize,family,isbold,top,left,content) '调用过程名

Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content
'建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")

font_size=10
font_family="宋体"
f_left= 5
f_top=5

if imgurl<>"" then
Jpeg.Open Server.MapPath(imgurl)‘图片路径并打开它
else
response.write "未找到图片路径"
exit sub
end if

if fontsize<>"" then font_size=fontsize ’字体大小
if family<>"" then font_family=family ‘字体
if top<>"" then f_left=left ’水印离图片左边位置
if left<>"" then f_top=top ‘水印离图片top位置
if content="" then ‘水印内容
response.write "水印什么内容呢,水印不成功!"
exit sub
else
f_content=content
end if


' 添加文字水印
Jpeg.Canvas.Font.Color = &hff0000 ' 红色
Jpeg.Canvas.Font.Family = font_family
jpeg.canvas.font.size= font_size
if isbold=1 then
Jpeg.Canvas.Font.Bold = True
end if
Jpeg.Canvas.Print f_left, f_top, f_content

' 保存文件
Jpeg.Save Server.MapPath(imgurl)

' 注销对象
Set Jpeg = Nothing
response.write "水印成功,图片上加了&nbsp;&nbsp;"&content&""
end sub

调用如下:call jpegclass("psg.jpg",13,"楷体",1,18,18,"你好,这是水印程序")

就可轻松实现图片水印效果,当然你的服务器必须支持ASPJPEG组件!

sub jpegclass(imgurl,fontsize,family,isbold,top,left,content) '调用过程名

Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content
'建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")

font_size=10
font_family="宋体"
f_left= 5
f_top=5

if imgurl<>"" then
Jpeg.Open Server.MapPath(imgurl)‘图片路径并打开它
else
response.write "未找到图片路径"
exit sub
end if

if fontsize<>"" then font_size=fontsize ’字体大小
if family<>"" then font_family=family ‘字体
if top<>"" then f_left=left ’水印离图片左边位置
if left<>"" then f_top=top ‘水印离图片top位置
if content="" then ‘水印内容
response.write "水印什么内容呢,水印不成功!"
exit sub
else
f_content=content
end if


' 添加文字水印
Jpeg.Canvas.Font.Color = &hff0000 ' 红色
Jpeg.Canvas.Font.Family = font_family
jpeg.canvas.font.size= font_size
if isbold=1 then
Jpeg.Canvas.Font.Bold = True
end if
Jpeg.Canvas.Print f_left, f_top, f_content

' 保存文件
Jpeg.Save Server.MapPath(imgurl)

' 注销对象
Set Jpeg = Nothing
response.write "水印成功,图片上加了&nbsp;&nbsp;"&content&""
end sub

调用如下:call jpegclass("psg.jpg",13,"楷体",1,18,18,"你好,这是水印程序")

就可轻松实现图片水印效果,当然你的服务器必须支持ASPJPEG组件!

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:客户端插入控件

下一篇:Ajax的错误处理机制探讨