")
%>
11、如何用AspJpeg组件创建安全码？
创建安全码原理上和创建水印差不多。
<%
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("t.jpg") '打开准备的图片
Jpeg.Canvas.Font.Color = &HFFFFFF
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("tt.jpg") '保存
%>
28,390
社区成员
发帖
与我相关
我的任务
分享急！！！ Persits.Jpeg生成缩略图问题
奇怪，使用Persits.Jpe组件生成缩略图，结果没有出现任何错误提示，但也没有找到缩略图文件。请高手帮忙解决，谢了！！
'''生成缩略图
Dim Jpeg
' 建立实例
err.Clear
Set Jpeg = Server.CreateObject("Persits.Jpeg")
response.Write "1"
' 打开目标图片
Jpeg.Open Server.MapPath(filename)
response.Write "2" ----------没有显示
Jpeg.Width = 120
Jpeg.Height = cint(cdbl(PHeight) * 120/cdbl(PWidth))
response.Write "3"
Jpeg.Save Server.MapPath(fname1)
'''生成缩略图
Dim Jpeg
' 建立实例
err.Clear
Set Jpeg = Server.CreateObject("Persits.Jpeg")
response.Write "1"
' 打开目标图片
Jpeg.Open Server.MapPath(filename)
response.Write "2" ----------没有显示
Jpeg.Width = 120
Jpeg.Height = cint(cdbl(PHeight) * 120/cdbl(PWidth))
response.Write "3"
Jpeg.Save Server.MapPath(fname1)
...全文
请发表友善的回复…
发表回复
ASP组件AspJpeg(加水印)使用方法大全ASPJPEG是Persits出品的共享软件，它是一款功能相当强大的asp图象处理组件，用它可以轻松地做出图片的缩略图和为图片加上水印功能。
水印组件AspJpeg2.4.0.1
下面简单介绍一下使用方法：
您先要执行下载得到的exe文件，安装该组件.
检测是否注册成功的方法：
将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。
一、为图片添加水印 <%
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 "" ''''//在该页显示生成水印后的图片
%>
二、生成缩略图
<%
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 "" ''''//在该页显示生成缩略图
%>
aspjpeg组件高级使用方法介绍
aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。
这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：
图片缩略
图片水印
安全码技术
图片切割
图片合并
数据库支持
更多不常用的方法介绍
以及相关的一些实用技术
aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。另外，本人比较懒，所以有些代码仍然引用于原文档，不懂的地方偶会加以解释！
学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。
一、图片缩略
1、为图片加入水印功能 Dim Jpeg Set Jpeg = Server.CreateObject(“Persits.Jpeg”) ‘ 建立对象 Jpeg.Open BlogPath & “/upload/” & FileName ‘ 图片所在位置 Jpeg.Canvas.Font.Color = &H000000 ‘ 颜色,这里是设置成:黑 Jpeg.Canvas.Font.Family = “方正隶变简体” ‘ 设置字体 Jpeg.Canvas.Font.Bold = False ‘是否设置成粗体 Jpeg.Canvas.Font.Size = 26 ‘字体大小 Jpeg.Canvas
