ASP組件AspJpeg(加水印)生成縮略圖等使用方法
2024-05-04 10:59:42
供稿：網友
一、為圖片添加水印
復制代碼 代碼如下:
<%
Dim Jpeg ''''//聲明變量
Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//調用組件
Jpeg.Open Server.MapPath("aaa.JPG") ''''//源圖片位置
Jpeg.Canvas.Font.Color = &H000000 ''''//水印字體顏色
Jpeg.Canvas.Font.Family = "宋體" ''''//水印字體
Jpeg.Canvas.Font.Size = 14 ''''//水印字體大小
Jpeg.Canvas.Font.Bold = False ''''//是否粗體，粗體用：True
Jpeg.Canvas.Font.BkMode = &HFFFFFF ''''//字體背景顏色
Jpeg.Canvas.Print 10, 10, "不敗頑童工作室" ''''//水印文字，兩個數字10為水印的xy座標
Jpeg.Save Server.MapPath("aaa_05.jpg") ''''//生成有水印的新圖片及保存位置
Set Jpeg = Nothing ''''//注銷組件，釋放資源
Response.Write "<img src=aaa_05.jpg>" ''''//在該頁顯示生成水印后的圖片
%>
ASP圖片水印AspJpeg v1.8 特別版
二、生成縮略圖
復制代碼 代碼如下:
<%
Dim Jpeg ''''//聲明變量
Set Jpeg = Server.CreateObject("Persits.Jpeg") ''''//調用組件
Jpeg.Open Server.MapPath("aaa.JPG") ''''//原圖位置
Jpeg.Width = Jpeg.OriginalWidth/4 ''''//設圖片寬度為原圖的四分之一
Jpeg.Height = Jpeg.OriginalHeight/4 ''''//設圖片高度為原圖的四分之一
Jpeg.Sharpen 1, 130 ''''//設定銳化效果
Jpeg.Save Server.MapPath("aaa_small.jpg") ''''//生成縮略圖位置及名稱
Set Jpeg = Nothing ''''//注銷組件，釋放資源
Response.Write "<img src=aaa_small.jpg>" ''''//在該頁顯示生成縮略圖
%>
aspjpeg組件高級使用方法介紹
aspjpeg是一款非常強大的圖片處理組件，純英文版本。不過早已經有免費版和破解版，但是對其進行詳細與深入介紹的文章卻是不多，即使有也只牽涉到圖片縮略和圖片水印?？赡苁且驗榧冇⑽牡木壒?。
這里我就是針對這些問題談談aspjpeg的高級用法。這里的技術主要包括：
圖片縮略
圖片水印
安全碼技術
圖片切割
圖片合并
數據庫支持
更多不常用的方法介紹
以及相關的一些實用技術
aspjpeg唯一點不足的就是輸出方式比較單一。在這里，我們主要談將圖片處理保存后再調用的這種輸出方法。另外，本人比較懶，所以有些代碼仍然引用于原文檔，不懂的地方偶會加以解釋！
學過vb或者.net的同志肯定一看就明白了。刷子來著。呵呵。
一、圖片縮略
復制代碼 代碼如下:
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") 調用組件
Path = Server.MapPath("images") & "/clock.jpg" 待處理圖片路徑
Jpeg.Open Path 打開圖片
高與寬為原圖片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
保存圖片
Jpeg.Save Server.MapPath("images") & "/clock_small.jpg"
%>
<IMG SRC="images/clock_small.jpg"> 查看處理的圖片
