探索设计与体验的融合
Fusion design exploration and experience
新塘新闻动态
News
好的新塘网络营销公司会给客户提出建设性的意见,善于对客户进行良性引导
您的位置:>> 新塘网站首页 >> 技术文章
新塘番禺网站建设--ASPJPEG组件的常用方法

    提示在安装过程会出现一个框,你输入注册码 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

相关链接>>
您对此文有什么评论?
类型: 意见建议 内容报错
网友对此文的评论:
未有评论!