Добавьте функцию водяных знаков к изображениям и создайте миниатюры для изображений 1. Добавьте функцию водяных знаков к изображениям.
Тусклый JPEG
Set Jpeg = Server.CreateObject(Persits.Jpeg) ' Создать объект
Jpeg.Open BlogPath & /upload/ & FileName ' Местоположение изображения.
Jpeg.Canvas.Font.Color = &H000000 'Цвет, здесь установлено значение: черный
Jpeg.Canvas.Font.Family = Founder становится упрощенным. Установить шрифт
Jpeg.Canvas.Font.Bold = False 'Выделить ли его полужирным шрифтом
Jpeg.Canvas.Font.Size = 26 'Размер шрифта
Jpeg.Canvas.Font.Quality = 4 'Четкость текста
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, WWW.WILLIAMLONG.INFO 'Текст водяного знака
Jpeg.Save BlogPath & /upload/ & FileName ' Сохранить файл
Установить Jpeg = Ничего
2. Создайте миниатюры для изображений.
Тусклый JPEG
Set Jpeg = Server.CreateObject(Persits.Jpeg) ' Создать объект
Jpeg.Open BlogPath & /upload/ & FileName ' Местоположение изображения.
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight/2
'Установите размер миниатюры (здесь соотношение установлено на 50%), вы также можете указать точное значение, например Jpeg.Width=120
Jpeg.Save BlogPath & /upload/ & FileName ' Сохранить файл
Установить Jpeg = Ничего