Quick Watermark

The Code: watermark.aspx

	
<%@ Page Explicit="True" Language="VB" Debug="True" %> 
<%@ Import Namespace="system.drawing" %>
<%@ Import Namespace="system.drawing.imaging" %>
<%@ Import Namespace="system.drawing.drawing2d" %>
<%@ Import Namespace="system.io" %>
<script runat="server">
  
  dim Filename as String
  dim Width, Height, shadowSize as Integer
  dim Bitmap as system.drawing.bitmap
  dim ImgFormat as ImageFormat
  dim Img as System.Drawing.Image
  Dim baseMap as Bitmap 
	dim top, left as Integer  
sub CreateGraphic()
	Dim letterBrush as SolidBrush = new SolidBrush(Color.FromArgb(50, 255, 255, 255))
	Dim shadowBrush as SolidBrush = new SolidBrush(Color.FromArgb(50, 0, 0, 0))
	Dim fontTitle as Font = new Font("tahoma", 20, FontStyle.Bold)
	Filename = Request.QueryString("filename")
	Filename = server.mappath(Filename)
	ImgFormat = ImageFormat.jpeg : response.contenttype="image/jpeg"  ' Default=jpeg '
	Img = system.drawing.image.FromFile(Filename)    
	Width  = Img.Width
	Height = Img.Height
  	baseMap = new Bitmap(Width,Height)
  	Dim myGraphic as Graphics = Graphics.FromImage(baseMap)
  	with myGraphic
		.DrawImage(Img, 0,0, Width,Height)
		.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
		.DrawString("LABS.INSERT-TITLE.COM", fontTitle, shadowBrush, 5, 60)
		.DrawString("LABS.INSERT-TITLE.COM", fontTitle, letterBrush, 7, 62)
	end with
	Img.dispose()

end sub
</script>
<%
CreateGraphic
baseMap.Save(Response.OutputStream, ImageFormat.JPEG)
baseMap.dispose()
Img = Nothing   
response.end
%>
</script>

Usage

	
<img src="watermark.aspx?filename=FILENAME.JPG" />

Example

Comments

Chris Mc 2/21/2005 3:39:12 AM Fantastic script, just what i was after!

Gabe Taylor 5/27/2005 1:33:48 PM Why do I get the following error? Am I missing some ASP component?

Thanks.

-------------

Active Server Pages error `ASP 0221`

Invalid @ Command directive

/onlocation/test.asp, line 1

The specified `Page Explicit="True" Language="VB" Debug="True" ` option is unknown or invalid.

-------------

Gabe Taylor
5/27/2005 1:34:32 PM Please email reply to gabe@cascadecomputing.com

Joe Maddalone
5/27/2005 1:55:50 PM Save the first chunk of code as "watermark.aspx"

Then in your ASP page make the src of the image:

<img src="watermark.aspx?filename=FILENAME.JPG" />

Gabe Taylor 5/27/2005 7:44:48 PM Hmm... I receive the following:

Microsoft VBScript runtime error `800a01a8`

Object required: ``

/onlocation/images.html, line 4

Line 4 being the one that has <img src="watermark.aspx?filename=FILENAME.JPG" />

Is there a component that I need for this to work that would not be part of ASP 3.0?

Thanks.

Joe Maddalone 8/13/2005 10:57:38 AM This is ASP.NET you need at least the .Net Framework 1.0 or 1.1, which you can download for free form Microsoft. Just check Google for ".Net Framework download".

FILENAME.JPG... replace that with the actualy filename of an actual image, on your actual server.

Antonio 11/12/2005 1:49:51 AM Great Code, And Thanks for share it. I got some questions: Why this piece of code is used twice? <% CreateGraphic baseMap.Save(Response.OutputStream, ImageFormat.JPEG) baseMap.dispose() Img = Nothing response.end %>

And A further question? After Run it the process aspnet_wp.exe Start. Even If I move to another page the process is running. How Stop this proccess?

Thanks in advance

Joe Maddalone 11/14/2005 7:24:26 AM THe doubling up on the <% CreateGraphic baseMap... line is a typo - I`ll fix that today.

Your other question is something I will look into for you.

Paco 5/22/2007 5:32:10 AM if possible include a logo in the watermark

rogotenin 7/5/2007 11:26:33 PM Hi I am Lucy, I have found your website while searching for some info at Google. Your site has helped me in a big way. G`night

Have Fun 7/18/2007 5:38:46 PM on your vacation wyvern

Joe Maddalone 7/23/2007 1:33:19 PM Will Do

porty 6/2/2008 8:49:36 AM gracias! las ñ y los acentos no los reconoce en el filename

LATEST POSTS

PostBackUrl Equals Change the Friggin' Form Action . Curse you DBNull and/or Is Nothing! . Career Developers are Shitbags they are. Consolas Makes Me Geek-ier MS Consolas Font Abuse Things I Read Today and You Should Too Whilst searching for solutions I happened upon...

MOST POPULAR

Multiple IEs in Windows Date Image Thing Firefox Vs. The World Who Is Xperya? ActionScript Form Fields Quick Watermark IE 7 beta 2 standalone