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(그림 이름)%>

좋은 웹페이지 즐겨찾기