Le paramètre transmis est le chemin de l'image qui doit être traité. Vous pouvez ajuster les paramètres ou ajouter d'autres paramètres si nécessaire . Copiez le code comme suit :
'Texte en filigrane
Fonction WordWatermark (ImagePath)
Image sombre
Set Image= Server.CreateObject(Persits.Jpeg) 'Créer un objet
Image.Open server.mappath(ImagePath) 'L'emplacement de l'image
Image.Canvas.Font.Color = &H000000 'Couleur, ici elle est définie sur : noir
Image.Canvas.Font.Family = 宋体' Définir la police
Image.Canvas.Font.Bold = False 'S'il faut le mettre en gras
Image.Canvas.Font.Size = 26 'Taille de la police
Image.Canvas.Font.Quality = 4 ' Clarté du texte
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, Texte du filigrane'Texte du filigrane
Image.Save server.mappath(ImagePath) 'Enregistrer le fichier
Définir l'image = Rien
Fonction de fin
'Filigrane d'image
Fonction ImageWatermark (ImagePath)
Définir l'image = Server.CreateObject (Persits.Jpeg)
'Déterminer le chemin de l'image à ajouter au filigrane
PhotoPath = Serveur.MapPath(ImagePath)
Image.Ouvrir PhotoPath
'Ouvrez l'image en filigrane
Définir le logo = Server.CreateObject (Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) 'Image en filigrane
Logo.Ouvrir LogoPath
Logo.Width = 121 'La taille de l'image en filigrane
Logo.Hauteur = 50
Couleur_Transition = &h0066cc
'Placer un filigrane dans l'image téléchargée
Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
'Ici, vous pouvez modifier l'emplacement du filigrane (photo.width-210, photo.height-40 ici je l'ai placé dans le coin inférieur droit de l'image) et vous pouvez également modifier la transparence du filigrane
'Enregistrer l'image après avoir ajouté un filigrane
Image.Save Server.MapPath(ImagePath)
Définir la photo = Rien
Fonction de fin