当前位置:首页 » 网站技术 » ASP

Persits.Jpeg(ASPJpeg)生成图片缩略图

...

Persits.Jpeg(ASPJpeg)是一种图片组件,可以方便地生成图片缩略图,添加水印等,是ASP很常用的一个组件,因为很多ASP网站都需要生成缩略图,ASPJpeg使用非常方便和简单。

代码一

   ' 生成缩略图
 Dim Jpeg,Path
 Set Jpeg = Server.CreateObject("Persits.Jpeg")
 Jpeg.RegKey="52973-63493-14424"
 ' 图片所在位置
 Path = Server.MapPath(strGalleryPath &  "ProImgaes/" & strFileName)
 ' 打开
 Jpeg.Open Path
 ' 设置缩略图大小(这里比例设定为50%)
 Jpeg.Width = Jpeg.OriginalWidth / 10
 Jpeg.Height = Jpeg.OriginalHeight / 10
 ' 保存缩略图到指定文件夹下
 Jpeg.Save Server.MapPath(strGalleryPath & "Thumbnails/" & strFileName )
 ' 注销实例
 Set Jpeg = Nothing

代码二

<%
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>thumbnail</title>
</head>

<body>
<% ' 建立实例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 图片所在位置
Path = Server.MapPath("big.jpg")

' 打开
Jpeg.Open Path

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

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

response.write Jpeg.OriginalHeight

' 添加文字水印
Jpeg.Canvas.Font.Color = &HFFFFFF' 白色
Jpeg.Canvas.Font.Family = "arial"
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.Print 10, 10, "Copyright ? Cnmaya.org"

' 保存文件
Jpeg.Save Server.MapPath("smallwater.jpg")

Set Jpeg = Nothing
%>

<IMG SRC="big.jpg"><P>
<IMG SRC="small.jpg">
<%
tmEnd = timer()
%>
页面执行时间:<font color=blue> <%=CStr(FormatNumber((tmEnd - tmStart),3)*1000)%> </font> 毫秒

</body>
</html>

继续阅读
ASP.NET进度条
没有数据时显示GridView表格
ASP.NET中的换行问题解决方案
ASP.NET跳转页面方法比较
ASP.NET内置功能抵御Web攻击
ASP.NET写文件实例
ASP禁用页面缓存的五种方法
ASP.NET页面间值传递方法实例
使用ASP.NET备份和还原SQL Server及Access数据库
发表评论

昵称:
最新评论
暂时没有评论!