Переданный параметр — это путь к изображению, которое необходимо обработать. Вы можете настроить параметры или добавить другие параметры по мере необходимости . Скопируйте код следующим образом:
'Текстовый водяной знак
Функция WordWatermark(ImagePath)
Тусклое изображение
Set Image= Server.CreateObject(Persits.Jpeg) 'Создать объект
Image.Open server.mappath(ImagePath) 'Местоположение изображения
Image.Canvas.Font.Color = &H000000 'Цвет, здесь установлено значение: черный
Image.Canvas.Font.Family = 宋体' Установить шрифт
Image.Canvas.Font.Bold = False 'Выделить ли его полужирным шрифтом
Image.Canvas.Font.Size = 26 'Размер шрифта
Image.Canvas.Font.Quality = 4 ' Четкость текста
Image.Canvas.Print Image.OriginalWidth/2-170,Image.OriginalHeight-30, Текст водяного знака'Текст водяного знака
Image.Save server.mappath(ImagePath) 'Сохранить файл
Установить изображение = Ничего
Конечная функция
'Водяной знак изображения
Функция ImageWatermark(ImagePath)
Установить изображение = Server.CreateObject(Persits.Jpeg)
'Определить путь изображения, которое будет добавлено к водяному знаку
PhotoPath = Server.MapPath(ImagePath)
Изображение.Открыть PhotoPath
'Открываем изображение водяного знака
Установить логотип = Server.CreateObject(Persits.Jpeg)
LogoPath = Server.MapPath(logo.jpg) 'Изображение водяного знака
Логотип.Открыть путь к логотипу
Logo.Width = 121 'Размер изображения водяного знака
Логотип.Высота = 50
Цвет_перехода = &h0066cc
'Помещаем водяной знак в загруженное изображение
Image.DrawImage Image.width-150, Image.height-59, Logo,1,Transition_Color,90
'Здесь вы можете изменить расположение водяного знака (photo.width-210, photo.height-40, здесь я разместил его в правом нижнем углу изображения), а также вы можете изменить прозрачность водяного знака.
'Сохраняем изображение после добавления водяного знака
Изображение.Сохранить сервер.MapPath(ImagePath)
Установить фото = Ничего
Конечная функция