Introduction to the sample code for adding watermarks to Images Using Asp

The input parameter is the image path to be processed. You can adjust the parameter as needed or add other parameters.

Text watermark instance code

1. Function WordWatermark (ImagePath)
2. Dim Image
3. Set Image = Server. CreateObject ("Persits. Jpeg") create an object
4. Image. Open server. mappath (ImagePath) Image Location
5. Image. Canvas. Font. Color = & H000000 Color, which is set to: Black
6. Image. Canvas. Font. Family = "" set the Font
7. Whether to set Image. Canvas. Font. Bold = False to Bold
8. Image. Canvas. Font. Size = 26 Font Size
9. Image. Canvas. Font. Quality = 4 text definition
10. Image. Canvas. Print Image. OriginalWidth/2-170, Image. OriginalHeight-30, "watermark text" watermark text
11. Image. Save server. mappath (ImagePath) Save the file
12. Set Image = Nothing
13. End Function
15. Image Watermark
16. Function ImageWatermark (ImagePath)
17. Set Image = Server. CreateObject ("Persits. Jpeg ")
18. Determine the image path to add a watermark
19. PhotoPath = Server. MapPath (ImagePath)
20. Image. Open PhotoPath
21. Enable watermark image
22. Set Logo = Server. CreateObject ("Persits. Jpeg ")
23. LogoPath = Server. MapPath ("logo.jpg") watermark image
24. Logo. Open LogoPath
25. Logo. Width = 121 watermark image size
26. Logo. Height = 50
27. Transition_Color = & h0066cc
28. Place the watermark in the uploaded Image
29. Image. DrawImage Image. width-150, Image. height-59, Logo, 1, Transition_Color, 90
30. Here, you can change the watermark position (photo. width-210, photo. height-40 here I am in the bottom right corner of the image) and the watermark transparency.
31. Save the added watermark image
32. Image. Save Server. MapPath (ImagePath)
34. Set Photo = Nothing
35. End Function