| 写了图片水印效果函数，代码如下： 程序代码： 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 调用如下：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 "水印成功，图片上加了 "&content&"" end sub 调用如下：call jpegclass("psg.jpg",13,"楷体",1,18,18,"你好，这是水印程序") 就可轻松实现图片水印效果，当然你的服务器必须支持ASPJPEG组件！ |
|小黑屋|最新主题|手机版|微赢网络技术论坛
( 苏ICP备08020429号 )
GMT+8, 2024-9-30 03:26 , Processed in 0.116873 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.
