aspJpeg 이미지 워터프린트 잡다한 해결 방법

631 단어
작업 구현 함수:
 
  
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

호출 방법:

좋은 웹페이지 즐겨찾기