<%
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>" ''''//在該頁顯示生成水印后的圖片
%>

<%
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>" ''''//在該頁顯示生成縮略圖
%>

<%
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"
%>

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
開始寫文字
Jpeg.Canvas.Font.Color = &H000000'''' white 顏色
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") 保存
%>

<%
生成安全碼的函數 www.wuyouw.com
function make_randomize(max_len,w_n) max_len 生成長度，w_n：0 可能包含字母，1：只為數字
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位數字的安全碼
session("random_num")=random_num 為什么調用session，沒有session的安全碼是完全沒有意義的。呵呵
Set Jpeg = Server.CreateObject("Persits.Jpeg") 調用組件
Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") 打開準備的圖片
Jpeg.Canvas.Font.Color = &H006699
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") 保存
%>

Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath("images") & "/dodge_viper.jpg"
Photo.Open PhotoPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "/clock.jpg"
Logo.Open LogoPath
Logo.Width = 70
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth
Photo.DrawImage 0, 0, Logo
Photo.SendBinary

<%
set obj=server.CreateObject("wsImage.Resize") ''''''''調用組件
obj.LoadSoucePic server.mappath("25.jpg") ''''''''打開圖片,圖片名字是25.jpg
obj.GetSourceInfo iWidth,iHeight
response.write "圖片寬度:" & iWidth & "<br>" ''''''''獲得圖片寬度
response.write "圖片高度:" & iHeight & "<br>" ''''''''獲得圖片高度
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''''''裝載圖片
obj.Quality=75
obj.TxtMarkFont = "華文彩云" ''''''''設置水印文字字體
obj.TxtMarkBond = false ''''''''設置水印文字的粗細
obj.MarkRotate = 0 ''''''''水印文字的旋轉角度
obj.TxtMarkHeight = 25 ''''''''水印文字的高度
obj.AddTxtMark server.mappath("txtMark.jpg"), "帶你離境", &H00FF00&, 10, 70
strError=obj.errorinfo ''''''''生成圖片名字,文字顏色即水印在圖片的位置
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''''''裝載圖片
obj.LoadImgMarkPic server.mappath("blend.bmp") ''''''''裝載水印圖片
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo ''''''''生成圖片名字,文字顏色即水印在圖片的位置
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.Quality=75
obj.cropImage server.mappath("25_crop.jpg"),100,10,200,200 ''''''''定義裁減大小和生成圖片名字
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''''''加載圖片
obj.Quality=75
obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''''''''定義縮略圖的名字即大小
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>