'
建立实例
Set Jpeg = Server.CreateObject( " Persits.Jpeg " )
Set Jpeg1 = Server.CreateObject( " Persits.Jpeg " )
' 打开要加水印的图片
Jpeg.Open Server.mappath(路径)
' 透明图片水印图
Jpeg1.Open Server.mappath( " ../Images/sy.gif " )
' 合并图
Jpeg.Canvas.DrawImage 0 ,Jpeg.OriginalHeight / 2 - 33 ,Jpeg1, 0.6 , & HFFFFFF
' 保存文件
Jpeg.Save Server.mappath(路径)
' 注销对象
Set Jpeg = Nothing
Set Jpeg1 = Nothing
Set Jpeg = Server.CreateObject( " Persits.Jpeg " )
Set Jpeg1 = Server.CreateObject( " Persits.Jpeg " )
' 打开要加水印的图片
Jpeg.Open Server.mappath(路径)
' 透明图片水印图
Jpeg1.Open Server.mappath( " ../Images/sy.gif " )
' 合并图
Jpeg.Canvas.DrawImage 0 ,Jpeg.OriginalHeight / 2 - 33 ,Jpeg1, 0.6 , & HFFFFFF
' 保存文件
Jpeg.Save Server.mappath(路径)
' 注销对象
Set Jpeg = Nothing
Set Jpeg1 = Nothing
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF
其中0.6是透明度,1是不透明,值越小,透明越大,0就什么也看不见了。&HFFFFFF这个参数是最关键的,这是透明图片水印图的背景色,这个参数必须与透明图片水印图的背景一样,不然的话就实现不了透明了。就是我们不想看到的那一部分色。