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 
  
 
 

호출 방법: