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>
- 暂时没有评论！