ASPJPEG是Persits出品的共用軟體，試用期為30天，您可以在這裡下載：http://www.persits.com/aspjpeg.exe。
最新版本號碼是1.3
=========================================
<%
sub jpegclass(imgurl,fontsize,family,isbold,top,left,content,Horflip) '調用過程名
Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content,f_Horflip
'建立執行個體
Set Jpeg = Server.CreateObject("Persits.Jpeg")
font_size=10
font_family="宋體"
f_left= 5
f_top=5
if imgurl<>"" then
Jpeg.Open Server.MapPath(imgurl)'圖片路徑並開啟它
else
response.write "未找到圖片路徑"
exit sub
end if
if fontsize<>"" then font_size=fontsize '字型大小
if family<>"" then font_family=family '字型
if top<>"" then f_left=left '浮水印離圖片左邊位置
if left<>"" then f_top=top '浮水印離圖片top位置
if content="" then '浮水印內容
response.write "浮水印什麼內容呢，浮水印不成功！"
exit sub
else
f_content=content
end if
' 添加文字浮水印
Jpeg.Canvas.Font.Color = &hff0000 ' 紅色
Jpeg.Canvas.Font.Family = font_family
jpeg.canvas.font.size= font_size
if isbold=1 then
Jpeg.Canvas.Font.Bold = True
end if
If Horflip = 1 Then
Jpeg.FlipH
'Jpeg.SendBinary
End If
Jpeg.Canvas.Print f_left, f_top, f_content
' 儲存檔案
Jpeg.Save Server.MapPath(imgurl)
' 登出對象
Set Jpeg = Nothing
response.write "浮水印成功，圖片上加了 "&content&""
end sub
