网络编程
位置:首页>> 网络编程>> Asp编程>> asp利用aspjpeg给图片生成PNG透明水印

asp利用aspjpeg给图片生成PNG透明水印

 来源:asp之家 发布时间:2009-03-20 14:01:00 

标签:aspjpeg,png,透明,水印

aspjpeg版本:v1.801  

将pic.jpg打上logo.png,可根据图片大小对水印图做适当调整   

filename="pic.jpg"                           '原始图片  
  
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")  
Jpeg1.Open Server.MapPath(filename)          
iWidth=Jpeg1.OriginalWidth             '图片的宽度  
  
iHeight=Jpeg1.OriginalHeight           '图片的高度  
  
iiwidth=204                                      '水印图片的宽度  
  
iiheight=32                                       '水印图片的高度  
  
'水印图居左上  
  
jpeg1.Canvas.DrawPNG 5, 5,Server.MapPath("logo.png")   
'水印图居右上  
  
'jpeg1.Canvas.DrawPNG iWidth-iiWidth-5, 5, Server.MapPath("logo.png")    
  
'水印图居左下                         
  
'jpeg1.Canvas.DrawPNG 5, iHeight-iiHeight-5, Server.MapPath("logo.png")   
  
'水印图居右下  
  
'jpeg1.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath("logo.png")  
  
'水印图居中  
  
'jpeg1.Canvas.DrawPNG iWidth/2-iiWidth/2, iHeight/2-iiHeight/2, Server.MapPath("logo.png")  
  
jpeg1.save Server.mappath(filename)        '保存打上水印的图片将覆盖原图,亦可另存  
  
Set Jpeg1 = Nothing  

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com