ASPJPEG是一款功能相當強大的圖象處理組件，用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。
1、為圖片制作縮略圖
<% ' 建立實例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 圖片所在位置
Path = Server.MapPath("images") & "\clock.jpg"
' 打開
Jpeg.Open Path
' 設置縮略圖大?。ㄟ@里比例設定為50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 保存縮略圖到指定文件夾下
Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
' 注銷實例
Set Jpeg = Nothing
%>
<IMG SRC="images/clock.jpg"><P>
<IMG SRC="images/clock_small.jpg">
2、為圖片加入水印功能
<%
Dim Jpeg
' 建立實例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打開目標圖片
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000' 紅色
Jpeg.Canvas.Font.Family = "宋體"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"
' 保存文件
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")
' 注銷對象
Set Jpeg = Nothing
%>
' Aspjpeg 功能設置
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 獲取源圖片路徑
Path = Server.MapPath("uploadimages/")&"/"&FileName
' 打開源圖片
Jpeg.Open Path
' 設定生成縮略圖細節(jié) 這里有很多種設定方法 下面的方法是先判斷寬高比 然后按比例縮放
If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then
Jpeg.Width = 98
Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)
elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then
Jpeg.Width = 98
Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height)
end if
' 設定銳化效果
Jpeg.Sharpen 1, 130
' 向指定路徑生成縮略圖
Jpeg.Save Server.MapPath("uploadimages/")&"/small"&FileName
ASPJPEG文字水印對圖片描邊：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 創(chuàng)建組件
Jpeg.Open Server.MapPath("images.jpg")
' 打開圖片
'也可以用OpenBinary讀取二進制數(shù)據(jù)
' 以下是寫入水印文字
Jpeg.Canvas.Font.Color = &H000000 ' 顏色,這里是設置成:黑
Jpeg.Canvas.Font.Family = "宋體" 'family設置字體
Jpeg.Canvas.Font.Bold = True '是否設置成粗體
Jpeg.Canvas.Font.Size = 12 '字體大小
Jpeg.Canvas.Print 100, 100, "www.863171.com" '在相應的位置打印文字，如果靠右可以用Jpeg.Canvas.Print Jpeg.width-160, Jpeg.height-30, "863171.COM"
Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,輸入保存!
%>
二、ASPJPEG對圖片描邊
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 創(chuàng)建組件
Jpeg.Open Server.MapPath("images.jpg")
' 打開圖片
'也可以用OpenBinary讀取二進制數(shù)據(jù)
'下面是對圖片進行描邊處理
Jpeg.Canvas.Pen.Color = &H000000 ' 顏色
Jpeg.Canvas.Pen.Width = 2 '描邊像素:單位pix
Jpeg.Canvas.Brush.Solid = False ' 如果要描邊,這里不能設成"真",否則整個區(qū)域會被填充為上面的顏色
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height '描邊的位置及對應寬度
Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,輸入保存!
%>
三、ASPJPEG改變圖片大小，即縮略圖功能：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images") & "\clock.jpg"
Jpeg.Open Path
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'改變成原來的50%,Jpeg.Width,Jpeg.Height也可以給他準確的數(shù)值，比如Jpeg.Width=120
Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
%>
然后在ASP代碼里增加一點點代碼即可，增加的位置可以放在上傳圖片完成后，取得圖片地址，進行修改。對于Z-Blog的使用者，直接將下面代碼復制到c_system_lib.asp文件的TUpLoadFile類中的Upload函數(shù)的結(jié)尾即可實現(xiàn)水印功能。
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%），也可以給他準確的數(shù)值，比如Jpeg.Width=120
Jpeg.Save BlogPath & "/upload/" & FileName ' 保存文件
Set Jpeg = Nothing
5、如何創(chuàng)建一個AspJpeg實例？
Set Jpeg = Server.CreateObject("Persits.Jpeg")
6、如何查看到期時間（是否注冊成功）？
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Response.Write Jpeg.Expires
注冊成功則到期時間為：9999-9-9
否則為：安裝日期加1個月期限
7、如何用AspJpeg組件生成圖片縮略圖？
以下是引用片段：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '創(chuàng)建實例
Path = Server.MapPath("../images/apple.jpg") '處理圖片路徑
Jpeg.Open Path '打開圖片
'調(diào)整寬度和高度為原來的50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("apple_small.jpg") '保存圖片到磁盤
Jpeg.Close:Set Jpeg = Nothing
%>
8、如何用AspJpeg組件生成圖片水?。?br>以下是引用片段：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
開始寫文字
Jpeg.Canvas.Font.Color = &000000'' red 顏色
Jpeg.Canvas.Font.Family = "Courier New" 字體
Jpeg.Canvas.Font.Bold = True 是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."
打印坐標x 打印坐標y 需要打印的字符
以下是對圖片進行邊框處理
Jpeg.Canvas.Pen.Color = &H000000'' black 顏色
Jpeg.Canvas.Pen.Width = 2 畫筆寬度
Jpeg.Canvas.Brush.Solid = False 是否加粗處理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
起始X坐標起始Y坐標輸入長度輸入高度
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存
%>
9、如何用AspJpeg組件進行圖片合并？
AspJpeg 1.3+ enables you to place images on top of each other via the method DrawImage. To use this method, you must
create two instances of the AspJpeg objects and populate both of them with images via calls to Open (or OpenBinary).
When calling Canvas.DrawImage, the 2nd instance of AspJpeg is passed as an argument to this method, along with the X
and Y offsets (in pixels):
使用該方法，您必需創(chuàng)建兩個AspJpeg實例對象
以下是引用片段：
<%
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("t.jpg")
Jpeg2.Open Server.MapPath("t1.jpg")
Jpeg1.Canvas.DrawImage 10, 10, Jpeg2 ' optional arguments omitted
jpeg1.save Server.mappath("tt.jpg")
%>
10、如何用AspJpeg組件進行圖片切割？
AspJpeg 1.1+ is also capable of cutting off edges from, or cropping, the resultant thumbnails via the method Crop(x0, y0, x1, y1). The size of the cropped image is specified by the coordinates of the upper-left and lower-right corners within the resultant thumbnail, not the original large image.
以下是引用片段：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("t.jpg")
jpeg.Crop 20, 30, jpeg.Width - 20, jpeg.Height - 10
jpeg.save Server.mappath("tt.jpg")
Response.write("<img src=tt.jpg>")
%>
11、如何用AspJpeg組件創(chuàng)建安全碼？
創(chuàng)建安全碼原理上和創(chuàng)建水印差不多。
以下是引用片段：
<%
function make_randomize(max_len,w_n) 'max_len 生成長度，w_n：0 可能包含字母，1：只為數(shù)字
randomize
for intcounter=1 to max_len
whatnext=int((1-0+1)*rnd+w_n)
if whatnext=0 then
upper=122
lower=97
else
upper=57
lower=48
end if
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function
'生成安全碼的圖片。
random_num=make_randomize(4,1) ''生成4位數(shù)字的安全碼
session("random_num")=random_num '為么調(diào)用session，沒有session的安全碼是完全沒有意義的。呵呵.
Set Jpeg = Server.CreateObject("Persits.Jpeg") '調(diào)用組件
Jpeg.Open Server.MapPath("t.jpg") '打開準備的圖片
Jpeg.Canvas.Font.Color = &HFFFFFF
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("tt.jpg") '保存
%>
<img src="tt.jpg" border="0" align="absmiddle">
12、如何讓AspJpeg組件支援數(shù)據(jù)庫？
圖片存進數(shù)據(jù)庫只能以二進制數(shù)據(jù)保存，這里即利用AspJpeg的Binary方法，下面以兩個AspJpeg用戶手冊上的代碼為例，具體請參考AspJpeg用戶手冊：
Opening Images from Memory
以下是引用片段：
<% ' Using ADO, open database with an image blob
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "select image_blob from images2 where id = " & Request("id")
rs.Open SQL, strConnect, 1, 3
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open image directly from recordset
Jpeg.OpenBinary rs("image_blob").Value
' Resize
jpeg.Width = Request("Width")
' Set new height, preserve original aspect ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.SendBinary
rs.Close
%>
Output to Memory
以下是引用片段：
<%
...
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs.Update
...
%>
