Persits.Jpeg (ASPJpeg) 组件的使用说明$

最新推荐文章于 2020-12-24 16:19:35 发布
最新推荐文章于 2020-12-24 16:19:35 发布
阅读量1.3k 收藏 1
点赞数
分类专栏： ASP

空间经控针测试支持Persits.Jpeg (ASPJpeg) 版本 1.4.0.1
下面就这个组件的功能说明一下：
一、图片缩略

<%
Dim tmStart, tmEnd, demo
tmStart = timer()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JSP家测试Persits.Jpeg组件</title>
</head>

<body>
<%
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images/sogou.gif")
Jpeg.Open Path

' 设置缩略图大小（这里比例设定为50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

' 保存缩略图到指定文件夹下
Jpeg.Save Server.MapPath("images/sogou_small.jpg")

Set Jpeg = Nothing
%>

<IMG SRC="images/sogou.gif">
<br>缩略前的图片<br>
<IMG SRC="images/sogou_small.jpg">
<br>
缩略后的图片
<%
tmEnd = timer()
%>
页面执行时间：<font color=blue> <%=CStr(FormatNumber((tmEnd - tmStart),3)*1000)%> </font> 毫秒

</body>
</html>

 

二、图片水印

<%
Dim tmStart, tmEnd, demo
tmStart = timer()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图片水印</title>
</head>

<body>
<%
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images/google.jpg")
Jpeg.Open Path

' 添加文字水印
Jpeg.Canvas.Font.Color = &HFF0000 '颜色
Jpeg.Canvas.Font.Family = "arial" '字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright ? JspJia.Com" '打印坐标x,打印坐标y,需要打印的字符

'图片片框处理
Jpeg.Canvas.Pen.Color = &H000000 '颜色 
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/googlewater.jpg")

Set Jpeg = Nothing
%>

<IMG SRC="images/google.jpg"><br>水印前<br>
<IMG SRC="images/googlewater.jpg"><br>水印后<br>
<%
tmEnd = timer()
%>
页面执行时间：<font color=blue> <%=CStr(FormatNumber((tmEnd - tmStart),3)*1000)%> </font> 毫

秒

</body>
</html>


三、安全码

安全玛的道理和加水印差不多

<% 
生成安全码的函数 
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") 保存 
%> <img src="/infos/random_pic/random_index.bmp" border="0" align="absmiddle">


四、图片切割

一直以来，对aspjpeg不了解的人以为是无法用它来进行切割的。
其实有这样的一个方法的
crop x1,y1,x2,y2
切割长方型左上角x坐标，y坐标 右下角x坐标 y坐标
下面我就做一个演示哈
Set Jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.open server.MapPath("/pic/1.gif")
jpeg.width=70
Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉
jpeg.save server.MapPath("/temp_pic/small_1.gif") 保存

五、图片合并

我们这里是要把logo图片加到dodge_viper.jpg图片上去
其实，图片合并的方法也可以用来动态打水印哦
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 这里用了sendBinary的输出方法。当然，你也可以先保存更改后的dodge_viper.jpg，再输入也可以。我个人不大喜欢用sendBinary方法，在网速慢的时候容易出错。在速度方面也不怎样。

六、更多方法介绍

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
文字阴影颜色
Canvas.Font.ShadowXOffset As Long
阴影X坐标设定
Canvas.Font.ShadowYOffset As Long
Y坐标设定
Canvas.Font.BkMode As String
文字背景

 

sontin
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Persits.Jpeg (ASPJpeg) 组件的使用说明
zx581129的专栏
10-20 3829
空间经控针测试支持Persits.Jpeg (ASPJpeg) 版本 1.4.0.1 下面就这个组件的功能说明一下：一、图片缩略Dim tmStart, tmEnd, demotmStart = timer()%>JSP家测试Persits.Jpeg组件Dim Jpeg,PathSet Jpeg = Server.CreateObject("Persits.Jpeg")Path = Ser
Persits.Jpeg(AspJpeg图片处理组件）
05-11
Persits.Jpeg(AspJpeg图片处理组件），只可用于个人研究不可用于商业。
persits.jpeg组件(破解版)
01-02
persits.jpeg组件(破解版)下载 官方下载的persits.jpeg 都需要注册，不然就有时间限制。 非常捧的水印组件，玩服务器的人都知道，不再重复介绍了。不知道的请自行查找相关介绍。 官方网站http://www.aspjpeg.com 最新版本v1.801 官方下载http://www.persits.com/aspjpeg.exe 在线拍照程序：http://www.shsing.com/blog/article.asp?id=282 提示在安装过程会出现一个框，你输入注册码17361-38566-42221即可 aspx1专用系列号 sn：17361-38566-42221 检测是否注册成功的方法： 将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。 <% set jpeg=server.createobject("persits.jpeg") response.write jpeg.expires '检测aspjpeg的注册状态 '注册成功则到期时间为：9999-9-9 '否则为：安装日期加1个月期限 %> Set jpg = Server.CreateObject("Persits.Jpeg") jpg.RegKey = "48958-77556-02411" 没安装之前会显示错误： 错误类型： Server 对象, ASP 0177 (0x800401F3) 无效的类别字符串
Persits.Jpeg 组件（AspJpeg）
10-09
aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故，这里发布的是带注册码的原版。 其技术主要包括： 图片缩略 图片水印 安全码技术 　　 图片切割 　　 图片合并 　　 数据库支持
Persits.Jpeg组件使用说明
weixin_33877092的博客
04-21 382
aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。 这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括： 图片缩略 图片水印 安全码技术 图片切割 图片合并 数据库支持 更多不常用的方法介绍 以及相关的一些实用技术 一...
persits.jpeg 水印组件
weixin_30856965的博客
09-11 104
官方下载的persits.jpeg 都需要注册，不然就有时间限制。可今天需要个persits.jpeg 破解版安装到服务器上，可百度了半天也没找到，最后还是找到了。非常捧的水印组件，玩服务器的人都知道，不再重复介绍了。不知道的请自行查找相关介绍。官方网站http://www.aspjpeg.com/最新版本v1.801官方下载http://www.persits.com/aspjpeg.exe提示...
persits.jpeg组件(破解版)下载
01-13
set jpeg=server.createobject("persits.jpeg") response.write jpeg.expires '检测aspjpeg的注册状态 '注册成功则到期时间为：9999-9-9 '否则为：安装日期加1个月期限 %> Set jpg = Server.CreateObject("Persits....
aspjpeg 图像压缩组件
03-05
Persits.Jpeg 组件注册码 name:www.chinaz.com sn:48958-77556-02411 name:chinaz sn:71316-48529-38722
Persits.Jpeg CMYK-to-RGB
weixin_30457465的博客
06-17 98
这几天发现有几个用户上传的图片显示一个“红叉叉”，用迅雷下载一看，原来图片的“模式”是CMYK，这样的模式是不能在IE中正常显示的。 我想起能不能用程序自动转换呢？ 在网上看到利用Persits.Jpeg可以完成： (注意，如果使用toRGB方法，会占用很多的CPU，所以我还是决定不使用这个方法了。） ' 快速的Jpeg.Width = Jpeg.OriginalWidth / 2Jpeg...
Persits.Jpeg破解版（2013年1月V2.6）
01-15
一些ASP网站常用的上传组件，在维护ASP网站的时候可能用到，以前网上搜了下资源并不多，现把官方最新的及破解版分享下。经测试 在win2003 IIS6下可正常使用。
ASPJPEG组件,ASPJPEG
10-15
安装ASPJPEG组件 下载官方网站：www.aspjpeg.com 下载完成之后按正常的软件安装顺序安装 注意：序号为：48958-77556-02411 在提示是否重启IIS时选择“否”，可以安装在任意盘符下面 安装完毕后： 从aspjpeg1.5的安装目录复制aspjpeg.dll到系统文件加的system32目录 运行regsvr32 c:/windows/system32/aspjpeg.dll （根据你的系统改你的目录） 检测是否注册成功的方法： 将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。 <% set jpeg=server.createobject("persits.jpeg") response.write jpeg.expires '检测aspjpeg的注册状态 '注册成功则到期时间为：9999-9-9 '否则为：安装日期加1个月期限 %> ================================== 适用windows服务器的破解版) 提示在安装过程会出现一个框，你输入注册码17361-38566-42221即可 系列号sn：17361-38566-42221 检测是否注册成功的方法： 将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。 Set jpg = Server.CreateObject("Persits.Jpeg") jpg.RegKey = "48958-77556-02411"
aspjpeg2.0注册码 aspjpeg破解版 安装aspjpeg2.0组件
04-25
aspjpeg组件 下载完成之后按正常的软件安装顺序安装 aspjpeg 2.0 注册码sn:48958-77556-02411 注意：序号为：48958-77556-02411 在提示是否重启IIS时选择“否”，可以安装在任意盘符下面 安装完毕后： 从aspjpeg2.0 的安装目录的BIN[默认：C:\Program Files\Persits Software\AspJpeg\Bin]复制aspjpeg.dll到系统文件加的system32目录 运行regsvr32 c:/windows/system32/aspjpeg.dll （根据你的系统改你的目录） 检测是否注册成功的方法： 将以下代码保存为asp，拷贝在服务器上，用浏览器打开，看返回结果。 <% set jpeg=server.createobject("persits.jpeg") response.write jpeg.expires '检测aspjpeg的注册状态 '注册成功则到期时间为：9999-9-9 '否则为：安装日期加1个月期限 %>
Persits AspJpeg 2.0 使用说明
不知所谓
05-23 1601
AspJpeg最新版本下载、更多例子及详细的在线对象参考手册:http://www.aspjpeg.com/1、什么是AspJpeg？　　AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。　　AspJpeg可以使用很少的代码在您的ASP/ASP.N
asp上传组件Persits.Jpeg.1 错误 '800a0004'
andyjiang博客
05-12 1965
windows2003 64位下的asp上传组件，能用的！ Persits.Jpeg.1 错误 '800a003f' Registration key has expired or not yet valid. 解决方法： 1、IIS应用程序池 ，高级设置 ，启用32为程序，选择TRue就可以了 2、把系统换成32位的系统就能够解决
aspjpeg已过期_Persits.Jpeg.1错误’800a0004’ AspJpeg组件过期解决方法
weixin_36301296的博客
12-24 291
最近一直很郁闷，原来正常使用的论坛签名显示博客最新文章的小插件最近一直显示红X，也找不出原因，也就没有再纠结了。今天在做东西的时候，需要给上传的商品图片加水印，检测发现AspJpeg 1.5组件安装正常，但就不能加上水印，原以为是组件版本问题，但在安装了1.9版本之后仍然无效，分析一下可能是组件权限问题，因为我对服务器的各个网站分别加了各自的用户，于是添加修改权限弄了半天也没见反应，郁闷之极！于是...
用Persits.Jpeg水印效果实现不了，怎么解决？
aim73056的博客
05-31 186
PublicFunctionAddPersitsPic(Path,pic)'************加图片水印**********************DimJpeg,Jpeg1'建立实例SetJpeg=Server.CreateObject("Persits.Jpeg")SetJpeg1=Server.CreateObject(...
aspjpeg组件安装
Wind_Lam的专栏
05-23 907
安装提示输入序列号，没有则保留空，我暂时随便输入12345-67890-12345，先看一下他的dll能不能像aspjpeg1.3那样直接使用。安装提示重起iis服务，选否，注册组件一般不需要重起如果以前装过其他版本的aspjpeg，需要先停止iis(net stop iisadmin /y)，
asp无组件上传带进度条
最新发布
09-06
在ASP中，实现无组件上传并带有进度条的方法有多种。以下是一种实现方式的详细说明： 1. 在ASP页面中的HTML表单中添加一个文件上传输入框和一个提交按钮： ```html <form action="upload.asp" method="post" enctype="multipart/form-data"> <input type="file" name="fileToUpload" id="fileToUpload"> <input type="submit" value="上传文件"> <progress id="progressBar" max="100" value="0"></progress> <span id="status"></span> </form> ``` 2. 在upload.asp页面中编写ASP代码来处理文件上传： ```asp <% Dim fileUpload, fileName, uploadPath Set fileUpload = Server.CreateObject("Persits.Upload") ' 设置上传文件的路径 uploadPath = "上传文件的保存路径" ' 获取上传的文件名 fileName = fileUpload.Files("fileToUpload").FileName ' 保存上传的文件 fileUpload.Files("fileToUpload").SaveAs Server.MapPath(uploadPath) & "\" & fileName ' 释放对象 Set fileUpload = Nothing ' 返回上传成功消息 Response.Write "文件上传成功!" %> ``` 3. JavaScript代码来实现文件上传进度条的功能。在页面底部添加以下代码： ```html <script> // 获取上传表单元素 var form = document.querySelector('form'); // 获取进度条元素 var progressBar = document.querySelector('#progressBar'); // 获取上传状态元素 var status = document.querySelector('#status'); // 设置上传进度监听器 form.addEventListener('submit', function(event) { event.preventDefault(); // 创建FormData对象 var formData = new FormData(form); // 创建XHR对象 var xhr = new XMLHttpRequest(); // 上传进度事件 xhr.upload.addEventListener("progress", function(e) { if (e.lengthComputable) { // 计算上传进度 var percentComplete = (e.loaded / e.total) * 100; // 更新进度条值 progressBar.value = percentComplete; // 更新上传状态 status.innerHTML = percentComplete + "% 已上传"; } }, false); // 文件上传成功事件 xhr.addEventListener("load", function() { // 上传完成时，重置进度条 progressBar.value = 0; // 显示上传成功消息 status.innerHTML = "文件上传成功!"; }, false); // 发送上传请求 xhr.open("POST", "upload.asp", true); xhr.send(formData); }); </script> ``` 以上就是实现ASP无组件上传带进度条的一个简单方法。通过接收表单数据和对进度进行监听，可以实现文件上传过程中的进度显示和上传成功提示。自行根据需求来修改相关代码。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值