<%
'建立实例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
'打开要加水印的图片
Jpeg.Open Server.mappath("./Images/1.jpg")
'透明图片水印图
Jpeg1.Open Server.mappath("./Images/2.gif")
'合并图
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF
' 保存文件
Jpeg.Save Server.mappath("images/3.jpg")
' 注销对象
Set Jpeg = Nothing
Set Jpeg1 = Nothing
%>(鼠标移到代码上去,在代码的顶部会出现四个图标,第一个是查看源代码,第二个是复制代码,第三个是打印代码,第四个是帮助)这样就行了。
需要注意一下,1.jpg是没有添加水印前的图片。2.gif透明的logo图片。3.jpg为最后生成的图片。
