aspjpeg 添加水印教程及生成缩略图教程

为图片增加水印与制作缩略图的功能指南

在现代的网络环境中，保护图片版权以及提供便捷的预览方式变得尤为重要。为此，我们可以利用简单的编程手段为图片添加水印并制作缩略图。以下是具体的操作步骤，帮助您轻松实现这些功能。

一、为图片加入水印

1. 创建JPEG处理对象。通过以下代码建立处理图片的JPEG对象：

```vbscript

Dim Jpeg

Set Jpeg = Server.CreateObject("Persits.Jpeg")

```

2. 指定图片位置。使用以下代码打开您想要添加水印的图片：

```vbscript

Jpeg.Open BlogPath & "/upload/" & FileName

```

3. 设置水印属性。您可以自定义水印的颜色、字体、大小及清晰度：

颜色：选择黑色，代码为`&H000000`。

字体：选择“方正隶变简体”，代码为`Jpeg.Canvas.Font.Family = "方正隶变简体"`。

字体粗细：选择非粗体，代码为`Jpeg.Canvas.Font.Bold = False`。

字体大小：设置为26，代码为`Jpeg.Canvas.Font.Size = 26`。

文字清晰度：设置为高质量，代码为`Jpeg.Canvas.Font.Quality = 4`。

4. 添加水印文字。在图片上打印水印文字，位置可以根据需要调整：

```vbscript

Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170, Jpeg.OriginalHeight-30, "WWW.WILLIAMLONG.INFO"

```

5. 保存图片。完成水印添加后，将图片保存到原位置或新位置：

```vbscript

Jpeg.Save BlogPath & "/upload/" & FileName

```

6. 释放对象。别忘了释放JPEG对象：

```vbscript

Set Jpeg = Nothing

```

二、为图片制作缩略图

制作缩略图的步骤与添加水印类似。首先建立JPEG对象并打开图片。然后，设置缩略图的大小。这里我们将其设定为原图大小的50%，您也可以根据需要设定具体数值。保存缩略图并释放对象。

通过以上步骤，您可以轻松地为图片添加水印并制作缩略图，既保护了图片版权，又为用户提供了便捷的预览方式。