여기서 성공의 열쇠는 워터마크 이미지가 png 형식이어야 하며 배경을 제거해도 효과가 동일하다는 것입니다. 작업 구현 기능:
다음과 같이 코드 코드를 복사합니다.
함수 AddWater(n)
사진 설정 = Server.CreateObject(Persits.Jpeg)
PhotoPath = Server.MapPath(n)
Photo.PhotoPath 열기
사진.보간=1
사진.품질=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) '그림 출력
사진 설정 = 없음
기능 종료
호출 방법:
<% AddWater(사진 이름)에 전화%>