asp图片加水印的功能代码

1. '文字水印
   
2. Function WordWatermark(ImagePath)
   
3. Dim Image
   
4. Set Image= Server.CreateObject("Persits.Jpeg") ' 建立对象
   
5. Image.Open server.mappath(ImagePath) ' 图片所在位置
   
6. Image.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
   
7. Image.Canvas.Font.Family = "宋体" ' 设置字体
   
8. Image.Canvas.Font.Bold = False '是否设置成粗体
   
9. Image.Canvas.Font.Size = 26 '字体大小
   
10. Image.Canvas.Font.Quality = 4 ' 文字清晰度
    
11. Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, "水印文字" '水印文字
    
12. Image.Save server.mappath(ImagePath) ' 保存文件
    
13. Set Image= Nothing
    
14. End Function
    
15. 
    
16. '图片水印
    
17. Function ImageWatermark(ImagePath)
    
18. Set Image = Server.CreateObject("Persits.Jpeg")
    
19. '确定要加入水印的图片路径
    
20. PhotoPath = Server.MapPath(ImagePath)
    
21. Image.Open PhotoPath
    
22. '打开水印图片
    
23. Set Logo = Server.CreateObject("Persits.Jpeg")
    
24. LogoPath = Server.MapPath("logo.jpg") '水印的图片
    
25. Logo.Open LogoPath
    
26. Logo.Width = 121 '水印图片的大小
    
27. Logo.Height = 50
    
28. Transition_Color = &h0066cc
    
29. '将水印放置于上传图片中
    
30. Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
    
31. '在这里可以更改水印所在的位置（photo.width-210,photo.height-40 这里我是放在了图片的右下角）还可以更改水印的透明度
    
32. '保存增加水印后的图片
    
33. Image.Save Server.MapPath(ImagePath)
    
34. 
    
35. Set Photo = Nothing
    
36. End Function

复制代码