Der Schlüssel zum Erfolg ist hier: Das Wasserzeichenbild muss im PNG-Format vorliegen und der Effekt ist derselbe, wenn der Hintergrund entfernt wird. Operationsimplementierungsfunktion:
Kopieren Sie den Codecode wie folgt:
Funktion AddWater(n)
Set Photo = Server.CreateObject(Persits.Jpeg)
PhotoPath = Server.MapPath(n)
Foto. Öffnen Sie PhotoPath
Photo.Interpolation=1
Foto.Qualität=100
iWidth=Photo.OriginalWidth
iHeight=Photo.OriginalHeight
iiwidth=214 'Breite des Wasserzeichenbildes
iiheight=51 'Höhe des Wasserzeichenbildes
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath(Water.png) 'Water.png ist das Wasserzeichenbild
Photo.save Server.mappath(n) 'Bilder ausgeben
Stellen Sie Foto = Nichts ein
Funktion beenden
Aufrufmethode:
<% Call AddWater(Bildname)%>