為圖片加入浮水印功能，為圖片製作縮圖1、為圖片加入浮水印功能
Dim Jpeg
Set Jpeg = Server.CreateObject(Persits.Jpeg) ' 建立物件
Jpeg.Open BlogPath & /upload/ & FileName ' 圖片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 顏色,這裡是設定成:黑
Jpeg.Canvas.Font.Family = 方正隸變簡體' 設定字體
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 ' 儲存文件
Set Jpeg = Nothing
2、為圖片製作縮圖
Dim 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 ' 儲存文件
Set Jpeg = Nothing