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) '