El parámetro pasado es la ruta de la imagen que debe procesarse. Puede ajustar los parámetros o agregar otros parámetros según sea necesario . Copie el código de la siguiente manera:
'Marca de agua de texto
Función WordWatermark(ImagePath)
Imagen tenue
Establecer imagen = Server.CreateObject (Persits.Jpeg) 'Crear objeto
Image.Open server.mappath(ImagePath) 'La ubicación de la imagen
Image.Canvas.Font.Color = &H000000 'Color, aquí está configurado en: negro
Image.Canvas.Font.Family = 宋体' Establecer la fuente
Image.Canvas.Font.Bold = False 'Si se debe poner en negrita
Image.Canvas.Font.Size = 26 'Tamaño de fuente
Image.Canvas.Font.Quality = 4 ' Claridad del texto
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, Texto de marca de agua'Texto de marca de agua
Image.Save server.mappath(ImagePath) 'Guardar archivo
Establecer imagen = Nada
Función final
'Marca de agua de imagen
Función ImageWatermark(ImagePath)
Establecer imagen = Server.CreateObject(Persits.Jpeg)
'Determinar la ruta de la imagen que se agregará a la marca de agua
PhotoPath = Servidor.MapPath(ImagePath)
Imagen.Abrir PhotoPath
'Abre la imagen de la marca de agua
Establecer logotipo = Server.CreateObject(Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) 'Imagen de marca de agua
Logo.Abrir LogoPath
Logo.Width = 121 'El tamaño de la imagen de la marca de agua
Logotipo.Altura = 50
Color_de_transición = &h0066cc
'Colocar marca de agua en la imagen cargada
Imagen.DrawImage Imagen.ancho-150, Imagen.alto-59, Logotipo,1,Transition_Color,90
'Aquí puedes cambiar la ubicación de la marca de agua (foto.ancho-210, foto.alto-40 aquí la coloqué en la esquina inferior derecha de la imagen) y también puedes cambiar la transparencia de la marca de agua.
'Guarda la imagen después de agregar la marca de agua.
Imagen.Guardar servidor.MapPath(ImagePath)
Establecer foto = Nada
Función final