ASPJPEG是Persits出品的共享軟件,試用期為30天,您可以在這里下載:http://www.persits.com/aspjpeg.exe。最新版本號是1.3 ASPJPEG是一款功能相當強大的圖象處理組件,用它可以輕松地做出圖片的縮略圖和為圖片加上水印功能。下面簡單介紹一下使用方法: 您先要執行下載得到的exe文件,安裝該組件 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=http://www.okasp.com/techinfo/"images/clock.jpg"><P> <IMG SRC=http://www.okasp.com/techinfo/"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 %>
|