印 像 新 闻 系 统
<%
call jpegclass("images_admin/header_blue.jpg",14,"宋体",0,20,250,"www.115000.com.cn")
response.write "<img src=images_admin/header_blue.jpg border=0>"
rem call jpegclass("images_admin/header_blue.jpg",14,"宋体",1,18,18,"www.115000.com.cn")
Sub jpegclass(imgurl,fontsize,family,isbold,top,leftf,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_fanily = "宋体"
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_top = top 水印离图片top位置
if leftf <> "" then f_left = leftf 水印离图片左边位置
if content = "" then
response.write "水印什么内容呢，水印不成功！"
exit sub
else
f_content = content 水印内容
end if
添加文字水印
jpeg.canvas.font.color = &hffffff 红色
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
%>
