用ASPJPEG組件制作圖片的縮略圖與加水印
發(fā)表時(shí)間:2024-06-08 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號(hào)是1.3 ASPJPEG是一款功能相當(dāng)強(qiáng)大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡(jiǎn)單介紹一下使用方法: ...
ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號(hào)是1.3
ASPJPEG是一款功能相當(dāng)強(qiáng)大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡(jiǎn)單介紹一下使用方法:
您先要執(zhí)行下載得到的exe文件,安裝該組件
1、為圖片制作縮略圖
<% ' 建立實(shí)例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 圖片所在位置
Path = Server.MapPath("images") & "\clock.jpg"
' 打開
Jpeg.Open Path
' 設(shè)置縮略圖大小(這里比例設(shè)定為50%)
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 保存縮略圖到指定文件夾下
Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
' 注銷實(shí)例
Set Jpeg = Nothing
%>
<IMG SRC=http://www.okasp.com/techinfo/"images/clock.jpg"><P>
<IMG SRC=http://www.okasp.com/techinfo/"images/clock_small.jpg">
2、為圖片加入水印功能
<%
Dim Jpeg
' 建立實(shí)例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 打開目標(biāo)圖片
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")
' 注銷對(duì)象
Set Jpeg = Nothing
%>