利用jpeg组件加图片水印函数
来源:互联网 发布:sas软件怎么安装 编辑:程序博客网 时间:2024/05/21 07:15
程序代码:
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 "水印成功,图片上加了 "&content&""
end sub
就可轻松实现图片水印效果,当然你的服务器必须支持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 "水印成功,图片上加了 "&content&""
end sub
就可轻松实现图片水印效果,当然你的服务器必须支持ASPJPEG组件!
- 利用jpeg组件加图片水印函数
- persits.jpeg 水印组件
- php 给图片加水印的函数
- 加水印图片生成缩略图公用函数
- php给图片加水印实例函数
- AspJpeg组件给图片加透明图片水印
- AspJpeg组件给图片加透明图片水印
- 用ASPJPEG组件制作图片的缩略图和加水印
- 用ASPJPEG组件制作图片的缩略图和加水印
- 用ASPJPEG组件制作图片的缩略图和加水印
- 用ASPJPEG组件制作图片的缩略图和加水印
- 用ASP用aspjpeg|wsImage组件给图片加水印
- JAVA利用Gif4j将GIF图片加水印
- Asp.net 函数_上传图片,加水印,图片剪切
- jsp加图片水印
- 图片加水印类
- 图片加水印
- 图片加水印类
- 深入浅出Java堆的管理--垃圾回收
- Apache 简介及基本配置
- EJB 3.0开发指南之依赖注入
- Snake.Net中ORM(一)
- 办公室男性如何避免发胖?
- 利用jpeg组件加图片水印函数
- Snake.Net 中的ORM (二)
- Spring教程系列(二)-Spring管理对象
- 男人:别光着上身睡觉
- 21种代码的“坏味道”
- 星期总结7.18-7.22
- 搞定坏男人的最有效6大招数
- Java的内存泄漏
- Longhorn比XP快仅因注册表一处不同?