asp图片加水印的功能代码

'文字水印
function wordwatermark(imagepath)
dim image
set image= server.createobject("persits.jpeg") ' 建立对象
image.open server.mappath(imagepath) ' 图片所在位置
image.canvas.font.color = &h000000 ' 颜色,这里是设置成:黑
image.canvas.font.family = "宋体" ' 设置字体
image.canvas.font.bold = false '是否设置成粗体
image.canvas.font.size = 26 '字体大小
image.canvas.font.quality = 4 ' 文字清晰度
image.canvas.print image.originalwidth/2-170,image.originalheight-30, "水印文字" '水印文字
image.save server.mappath(imagepath) ' 保存文件
set image= nothing
end function

'图片水印
function imagewatermark(imagepath)
set image = server.createobject("persits.jpeg")
'确定要加入水印的图片路径
photopath = server.mappath(imagepath)
image.open photopath
'打开水印图片
set logo = server.createobject("persits.jpeg")
logopath = server.mappath("logo.jpg") '水印的图片
logo.open logopath
logo.width = 121 '水印图片的大小
logo.height = 50
transition_color = &h0066cc
'将水印放置于上传图片中
image.drawimage image.width-150, image.height-59, logo,1,transition_color,90
'在这里可以更改水印所在的位置（photo.width-210,photo.height-40 这里我是放在了图片的右下角）还可以更改水印的透明度
'保存增加水印后的图片
image.save server.mappath(imagepath)

set photo = nothing
end function