O parâmetro passado é o caminho da imagem que precisa ser processado. Você pode ajustar os parâmetros ou adicionar outros parâmetros conforme necessário .
'Marca d’água de texto
Função WordWatermark(ImagePath)
Imagem escura
Set Image= Server.CreateObject(Persits.Jpeg) 'Criar objeto
Image.Open server.mappath(ImagePath) 'A localização da imagem
Image.Canvas.Font.Color = &H000000 'Cor, aqui está definido como: preto
Image.Canvas.Font.Family = 宋体' Definir a fonte
Image.Canvas.Font.Bold = False 'Se deve ser definido como negrito
Image.Canvas.Font.Size = 26 'Tamanho da fonte
Image.Canvas.Font.Quality = 4 ' Clareza do texto
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, Texto de marca d'água'Texto de marca d'água
Image.Save server.mappath(ImagePath) 'Salvar arquivo
Definir imagem = nada
Função final
'Marca d'água da imagem
Função ImageWatermark(ImagePath)
Definir imagem = Server.CreateObject (Persits.Jpeg)
'Determina o caminho da imagem a ser adicionada à marca d'água
PhotoPath = Server.MapPath(ImagePath)
Imagem.Open PhotoPath
'Abre a imagem da marca d'água
Definir logotipo = Server.CreateObject (Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) 'Imagem da marca d'água
Logo.Open LogoPath
Logo.Width = 121 'O tamanho da imagem da marca d'água
Logotipo.Altura = 50
Cor_de_transição = &h0066cc
'Coloque marca d'água na imagem enviada
Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
'Aqui você pode alterar a localização da marca d'água (photo.width-210, photo.height-40 aqui coloquei no canto inferior direito da imagem) e também pode alterar a transparência da marca d'água
'Salve a imagem após adicionar marca d'água
Imagem.Save Server.MapPath(ImagePath)
Definir foto = nada
Função final