ϴͼƬԶˮӡFOR PJblog2.5  by acheson hhtp://www.771314.com ףʹ!

˵:

1.޸PJblog2.5(֧2.4)

2.ͼƬϴԶˮӡͼƬˮӡ.

3.ŵ:ѡˮӡ,ͼƬˮӡѡˮӡ.
  
  ȱ:ˮӡĲԼֶ޸.

ʹ˵:

һ. ʹô˹ǰ,ȷķ,ռ֧aspjpeg(ѹԴASP̽)

. ѹؽѹ,޸µط
    
    1.޸imagesimglogo.gifΪlogoˮӡ.

    2.޸attachmentjpegfont.aspֵ.
       
      Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("attachments/"&D_Name&"/"&F_Name&"")
Jpeg.Canvas.Font.Color = &HFF0000
Jpeg.Canvas.Font.Family = ""
Jpeg.Canvas.Font.Bold = True 
Jpeg.Canvas.Font.Size= 14
Jpeg.Canvas.Font.ShadowXOffset = 1 
Jpeg.Canvas.Font.ShadowYOffset = 1 
Jpeg.Canvas.Pen.Color=&HFFFFFF 
Jpeg.Canvas.Pen.Width=3 
Jpeg.Canvas.Brush.Solid=False 
Jpeg.Canvas.Print 10, 10, "ͼƬϴhttp://www.771314.com"
Jpeg.Save Server.MapPath("attachments/"&D_Name&"/"&F_Name&"")
Set Jpeg = Nothing

    3.޸attachmentjpegimg.aspֵ

dim photo,logo,photopath,logopath
Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath("attachments/"&D_Name&"/"&F_Name&"")
Photo.Open PhotoPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images/imglogo.gif")
Logo.Open LogoPath 
Logo.Width = 168
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
Photo.Canvas.Pen.Color  = &H000000  
Photo.Canvas.Pen.Width  = 1    
Photo.Canvas.Brush.Solid = False  
Photo.DrawImage photo.width-168, photo.height-16, Logo,1.0
',&HFFFFFF
photo.Save Server.MapPath("attachments/"&D_Name&"/"&F_Name&"")
Set logo = Nothing 
Set photo = Nothing 

. ļPJblogĿ¼.