aspjpeg 添加水印教程及生成縮略圖教程
更新時間：2008年12月30日 00:11:24 作者：
為圖片加入水印功能，為圖片制作縮略圖
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
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
您可能感興趣的文章:
- ASP組件AspJpeg(加水印)生成縮略圖等使用方法
- aspJpeg圖片水印有雜點的完美解決方法
- win2003 AspJpeg安裝圖文教程
- 基于ASPJPEG 制作了一個夢寐已久的批量水印工具步驟
- aspjpeg組件通用加水印函數(shù)代碼
- 動網論壇驗證碼改進 加法驗證碼(ASPJpeg版)
- 使用ASPJPEG出現(xiàn)0177 800401F3 錯誤的解決辦法
- asp水印組件之AspJpeg的結合代碼實例
- ASPJPEG綜合操作的CLASS類
- 結合FSO操作和Aspjpeg組件寫的Class
- 水印組件AspJpeg1.801最新官方原版下載+注冊碼
- 利用ASPUPLOAD，ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印
- ASPJPEG學習手記
- 圖片自動保存到本地并利用aspjpeg為圖片加水印
- Aspjpeg添加水印完整方法
- AspJpeg?V1.5.0?破解版使用方法
- aspjpeg組件使用方法
相關文章
這樣的代碼多用于我們沒有實現(xiàn)設計生成靜態(tài)的功能，但又想臨時將一些動態(tài)頁面生成靜態(tài)的，直接獲取動態(tài)內容并保存為靜態(tài)的2013-08-08
pjblog實現(xiàn)類似CMS的首頁調用...2007-02-02
ASP中使用FileSystemObject時提高性能的方法
在封裝自己的FileSystemObject庫的時候，測試的時候發(fā)現(xiàn)在文件夾或文件很多的時候，效率很低，顯示一個文件夾需要2秒甚至更多，這讓我很是奇怪，因為顯示文件夾及文件信息的時候直接都是使用Folder及File對象的屬性，這應該不會引起性能上的問題，但是事實卻說明我的想法過于簡單了。2008-05-05
ASP下實現(xiàn)自動采集程序及入庫的代碼...2007-03-03
asp做網站經常遇到日期格式處理問題，介紹一個有用的vbscript函數(shù)formatdatetime()2009-06-06
asp又一個分頁的代碼例子...2007-11-11
asp下使用數(shù)組存放數(shù)據(jù)的代碼...2007-11-11
kesion科訊V4.0管理員Key工具...2007-08-08
ASP 獲取文件擴展名函數(shù)getFileExt()
利用了asp的instrrev獲取最后.的位置，然后進行截取，大家可以自己測試，其實編程過程也是大量的測試，慢慢就會發(fā)現(xiàn)更多的好東西。2009-08-08
我們經常會遇到多重查詢問題，而長長的SQL語句往往讓人丈二和尚摸不著頭腦。特別是客戶端部分填入查詢條件時，如用普通方法將更是難上加難。 以下巧妙地利用"where 1=1"的恒等式（事實上很多，讓它值為TRUE即可）解決此問題。2008-09-09