La clave del éxito aquí es: la imagen de la marca de agua debe estar en formato png y el efecto será el mismo cuando se elimine el fondo. Función de implementación de operación:
Copie el código de código de la siguiente manera:
Función AgregarAgua(n)
Establecer foto = Server.CreateObject(Persits.Jpeg)
PhotoPath = Servidor.MapPath(n)
Foto.Abrir PhotoPath
Foto.Interpolación=1
Foto.Calidad=100
iWidth=Foto.AnchoOriginal
iHeight=Foto.OriginalHeight
iiwidth=214 'Ancho de la imagen de marca de agua
iiheight=51 'Altura de la imagen de la marca de agua
Photo.Canvas.DrawPNG iWidth-iiWidth-5, iHeight-iiHeight-5,Server.MapPath(Water.png) 'Water.png es la imagen de marca de agua
Photo.save Server.mappath(n) 'Imágenes de salida
Establecer foto = Nada
Función final
Método de llamada:
<% Llamar a AddWater(nombre de la imagen)%>