13527777031
提示在安装过程会出现一个框，你输入注册码 17361-38566-42221 即可
将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。
<%
set jpeg=server.createobject("persits.jpeg")
response.write jpeg.expires
’检测aspjpeg的注册状态
’注册成功则到期时间为：9999-9-9
’否则为：安装日期加1个月期限
%>
ASPJPEG组件的常用方法：
图片缩略
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") ’调用组件
Pathimg = Server.MapPath("\dd.jpg") ’待处理图片路径
Jpeg.Open Pathimg ’打开图片
Jpeg.Width = Jpeg.OriginalWidth/2’高与宽为原图片的1/2
Jpeg.Height = Jpeg.OriginalHeight/2
’Jpeg.SendBinary ’输出流
Jpeg.Save Server.MapPath("\xx.jpg")’保存图片
%>
文字水印
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
’开始写文字
Jpeg.Canvas.Font.Color = &000000 ’red 颜色
Jpeg.Canvas.Font.Family = "Courier New" ’字体
Jpeg.Canvas.Font.Bold = True ’是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) AZfly.cn"
’打印坐标标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") ’保存
%>
图片水印
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
JpegPath = Server.MapPath("/dd.jpg")’原图路径
Jpeg.Open JpegPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("/xx.jpg")’LOGO路径
Logo.Open LogoPath
Logo.Width = 100 ’LOGO的宽
Logo.Height = 50 ’LOGO的宽
Jpeg.DrawImage 5, 5, Logo’ logo图片的X Y值 从左上角算起（单位：px）
’Jpeg.SendBinary ’输出图像流(可选输出方式一)
jpeg.save Server.mappath("tt.jpg")’保存图像(可选输出方式二)
%>
<img src="/tt.jpg">
将以上代码单独放到一个ASP页面上测试效果，注意使用(可选输出方式一)时页面上不要有其它代码
安全码
<%
’生成安全码的函数
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
Set Jpeg = Server.CreateObject("Persits.Jpeg")’ 调用组件
Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif")’打开准备的图片
Jpeg.Canvas.Font.Color =
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")’保存
%>
预览图片：<img src="/infos/random_pic/random_index.bmp" border="0" align="absmiddle">
更多方法介绍
画一条直线 Canvas.Line(Left, Top, Right, Bottom)
画出一个椭圆 Canvas.Ellipse(Left, Top, Right, Bottom)
画出一个圆 Canvas.Circle(X, Y, Radius)
画出一个长方形 Canvas.Bar(Left, Top, Right, Bottom)
文字阴影颜色 Canvas.Font.ShadowColor
阴影X坐标设定 Canvas.Font.ShadowXOffset=0
Y坐标设定 Canvas.Font.ShadowYOffset=0
文字背景 Canvas.Font.BkMode
