Der übergebene Parameter ist der Bildpfad, der verarbeitet werden muss. Sie können die Parameter anpassen oder nach Bedarf weitere Parameter hinzufügen . Kopieren Sie den Code wie folgt:
'Textwasserzeichen
Funktion WordWatermark(ImagePath)
Dunkles Bild
Set Image= Server.CreateObject(Persits.Jpeg) 'Objekt erstellen
Image.Open server.mappath(ImagePath) 'Der Speicherort des Bildes
Image.Canvas.Font.Color = &H000000 'Farbe, hier ist sie eingestellt auf: Schwarz
Image.Canvas.Font.Family = 宋体' Legen Sie die Schriftart fest
Image.Canvas.Font.Bold = False 'Ob es auf Fett gesetzt werden soll
Image.Canvas.Font.Size = 26 'Schriftgröße
Image.Canvas.Font.Quality = 4 ' Textklarheit
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, Wasserzeichentext'Wasserzeichentext
Image.Save server.mappath(ImagePath) 'Datei speichern
Setze Bild = Nichts
Funktion beenden
'Bildwasserzeichen
Funktion ImageWatermark(ImagePath)
Set Image = Server.CreateObject(Persits.Jpeg)
'Bestimmen Sie den Pfad des Bildes, das dem Wasserzeichen hinzugefügt werden soll
PhotoPath = Server.MapPath(ImagePath)
Bild. Öffnen Sie PhotoPath
'Öffnen Sie das Wasserzeichenbild
Set Logo = Server.CreateObject(Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) 'Wasserzeichenbild
Logo.LogoPath öffnen
Logo.Width = 121 'Die Größe des Wasserzeichenbildes
Logo.Höhe = 50
Transition_Color = &h0066cc
„Wasserzeichen in hochgeladenes Bild einfügen.“
Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
„Hier können Sie die Position des Wasserzeichens ändern (photo.width-210, photo.height-40, hier habe ich es in der unteren rechten Ecke des Bildes platziert) und Sie können auch die Transparenz des Wasserzeichens ändern.“
„Speichern Sie das Bild, nachdem Sie ein Wasserzeichen hinzugefügt haben.“
Image.Save Server.MapPath(ImagePath)
Stellen Sie Foto = Nichts ein
Funktion beenden