Sætte vandmærke på billede

<%
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="pics"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& FileName
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 5,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if

Image.FontColor = vbBlack
  Image.Italic = False
  Image.Bold = true
  Image.FontName = "Arial"
  Image.FontSize = 13
  Image.PadSize = 0

Image.TextOut "Dit vandmærke", Image.maxX-185, Image.maxY - 20, false

Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Sådan her måske... forstår at det du vil have er at du kan skrive et eller andet i hjørnet af billedet måske? Altså fx. "(c) ditWebsite.dk" eller tilsvarende... det burde kunne klares med det kode jeg har sat ind. så skal du bare rette til hvor det skal stå henne på billedet... ved ikke om du kan bruge Image.maxX eller om du skal bruge din newWidth og det samme for y... men prøv det, det burde funge...

Det er super.. Det virker lige som det skal ;)

Jeg har nu ændret det til hvid tekst.. Kan man sætte et sort stroke på teksten??

Smid et svar..

Jeg er ikke den store haj i ASP-image, men du kan læse lidt om de forskellige features her: http://xsupport.xhost.co.uk/v2comcgi/aspimage/default.cfm

Og her er et svar :-)

Glas for det kunne bruges..