添加图片水印,如何使水印的位置,显示在右下角!
添加图片水印,如何使水印的位置,显示在右下角!
<%
dim photo,logo,photopath,logopath'打开一张要加入水印的图片
Set Photo = Server.CreateObject("Persits.Jpeg")'确定要加入水印的图片路径
Photo.RegKey = "48958-77556-02411"
PhotoPath = Server.MapPath("aa.jpg")
Photo.Open PhotoPath '打开水印图片
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("2.gif") '在这里修改水印图片所在的路径
Logo.RegKey = "48958-77556-02411"
Logo.Open LogoPath' 重新定义水印图片的大小
Logo.Width = 140 '更改水印图片的宽度
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
'按照原先的长宽比计算新的水印高度
'将水印放置于上传图片中
Photo.DrawImage photo.width/30, photo.height-90, Logo,0.2
'在这里可以更改水印所在的位置(photo.width-210,photo.height-40 这里我是放在了图片的右下角)还可以更改水印的透明度(我定义为0.7)
'保存增加水印后的图片
photo.Save Server.MapPath("44.jpg")
Set photo = Nothing
%>