在修改前请先联系你的服务器提供商,询问服务器是否安装了aspjpeg组件1.3版本以上,如果安装了,那么你走运了!
admin/upfile_photo.asp中找到
“ofile.SaveToFile Server.mappath(SavePath & strFileName) '保存文件”
在后面加入
'---------增加水印------------
if PhotoUrlID<>0 then'判断是否是缩略图,不是缩略图时才加入水印
dim photo,logo,photopath,logopath
'打开一张要加入水印的图片
Set Photo = Server.CreateObject("Persits.Jpeg")
'确定要加入水印的图片路径
PhotoPath = Server.MapPath(SavePath & strFileName)
Photo.Open PhotoPath
'打开水印图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("\img") & "\shuiyin.jpg" '在这里修改水印图片所在的路径
Logo.Open LogoPath
' 重新定义水印图片的大小
Logo.Width = 200 '更改水印图片的宽度
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth '按照原先的长宽比计算新的水印高度
'将水印放置于上传图片中
Photo.DrawImage photo.width-210, photo.height-40, Logo,0.7
'在这里可以更改水印所在的位置(photo.width-210,photo.height-40 这里我是放在了图片的右下角)还可以更改水印的透明度(我定义为0.7)
'保存增加水印后的图片
photo.Save Server.MapPath(SavePath & strFileName)
end if
'-----------增加水印结束-------------
增加后,在用户上传图片的时候,就可以自动把水印加入上传的图片了