asp图片加水印的功能代码

"文字水印
FunctionWordWatermark(ImagePath)
DimImage
SetImage=Server.CreateObject("Persits.Jpeg")"建立对象
Image.Openserver.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.PrintImage.OriginalWidth/2-170,Image.OriginalHeight-30,"水印文字""水印文字
Image.Saveserver.mappath(ImagePath)"保存文件
SetImage=Nothing
EndFunction

"图片水印
FunctionImageWatermark(ImagePath)
SetImage=Server.CreateObject("Persits.Jpeg")
"确定要加入水印的图片路径
PhotoPath=Server.MapPath(ImagePath)
Image.OpenPhotoPath
"打开水印图片
SetLogo=Server.CreateObject("Persits.Jpeg")
LogoPath=Server.MapPath("logo.jpg")"水印的图片
Logo.OpenLogoPath
Logo.Width=121"水印图片的大小
Logo.Height=50
Transition_Color=&h0066cc
"将水印放置于上传图片中
Image.DrawImageImage.width-150,Image.height-59,Logo,1,Transition_Color,90
"在这里可以更改水印所在的位置（photo.width-210,photo.height-40这里我是放在了图片的右下角）还可以更改水印的透明度
"保存增加水印后的图片
Image.SaveServer.MapPath(ImagePath)

SetPhoto=Nothing
EndFunction