aspJpeg图片水印有杂点的完美解决方法

操作实现函数：
代码如下:

Function AddWater(n) 
Set Photo = Server.CreateObject("Persits.Jpeg") 
PhotoPath = Server.MapPath(n) 
Photo.Open PhotoPath 
Photo.Interpolation=1 
Photo.Quality=100 
iWidth=Photo.OriginalWidth 
iHeight=Photo.OriginalHeight 
iiwidth=214 '水印图片的宽度 
iiheight=51 '水印图片的高度 
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("Water.png") 'Water.png即为水印图片 
Photo.save Server.mappath(n) '

输出图片
Set Photo = Nothing
End Function

调用方法：
<% Call AddWater(图片名称)%>
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！