ASP利用AspJpeg组件给图片生成PNG透明水印

在ASP中利用AspJpeg组件给图片生成PNG透明水印非常简单，以下是示例代码：

filename="pic.jpg" ‘原始图片
set jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.Open Server.MapPath(filename)       
iWidth=jpeg.OriginalWidth ‘图片的宽度
iHeight=jpeg.OriginalHeight ‘图片的高度
iiwidth=200 ‘水印图片的宽度
iiheight=30 ‘水印图片的高度

‘水印图居左上
jpeg.Canvas.DrawPNG 5, 5,Server.MapPath("logo.png")

‘水印图居右上
‘jpeg.Canvas.DrawPNG iWidth-iiWidth-5, 5, Server.MapPath("logo.png") 

‘水印图居左下                      
‘jpeg.Canvas.DrawPNG 5, iHeight-iiHeight-5, Server.MapPath("logo.png")

‘水印图居右下
‘jpeg.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("logo.png")

‘水印图居中
‘jpeg.Canvas.DrawPNG iWidth/2-iiWidth/2, iHeight/2-iiHeight/2, Server.MapPath("logo.png")

jpeg.save Server.mappath(filename) ‘保存打上水印的图片将覆盖原图,亦可另存
set jpeg = nothing