aspjpeg生成清晰缩略的问题

yoyoyuye 2009-11-12 03:59:36
利用aspjpeg生成清晰的缩略图的问题,


if imgWidth>=imgHeight and imgWidth>152 then
Jpeg.Width=152
Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/152)
end if
if imgHeight>imgWidth and imgHeight>113 then
Jpeg.Height=113
Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/113)
end if
'输出质量
Jpeg.Canvas.Font.Quality=4
Jpeg.Quality=100
'设定锐化效果
Jpeg.Sharpen 1, 130
Jpeg.Save (FilePath & "small_" & filenamet)


加入了质量和锐化效果,为什么生成的图质量还是很差?原图是720*540.生成的缩略图是152*114
...全文
100 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
paladinzhu 2009-11-15
  • 打赏
  • 举报
回复
楼主,上面的代码是朱朱相册中的吧,。建议你百度一下"朱朱相册"
yoyoyuye 2009-11-12
  • 打赏
  • 举报
回复
脑子没转过来。
qqzeng-ip 2009-11-12
  • 打赏
  • 举报
回复
原理都一样 变变就行了
yoyoyuye 2009-11-12
  • 打赏
  • 举报
回复

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open (FilePath & filenamet)

'开始变更所有文件扩展名为jpg
filenamelen=len(filenamet)
filenamelen=filenamelen-4
filenamet1=filenamet
filenamet=left(filenamet,filenamelen)
filenamet=filenamet&".jpg"
'结束文件名变更

'开始判断哪边为长边,以长边进行缩放
imgWidth=Jpeg.OriginalWidth
imgHeight=Jpeg.OriginalHeight

if imgWidth>=imgHeight and imgWidth>152 then
Jpeg.Width=152
Jpeg.Height=Jpeg.OriginalHeight/(Jpeg.OriginalWidth/152)
end if
if imgHeight>imgWidth and imgHeight>113 then
Jpeg.Height=113
Jpeg.Width=Jpeg.OriginalWidth/(Jpeg.OriginalHeight/113)
end if
'输出质量
Jpeg.Canvas.Font.Quality=4
Jpeg.Quality=100
'设定锐化效果
'Jpeg.Sharpen 1, 130
'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, "www.chinateeyoo.com" ''''//水印文字,两个数字10为水印的xy座标

Jpeg.Save (FilePath & "small_" & filenamet)
'写入数据库

yoyoyuye 2009-11-12
  • 打赏
  • 举报
回复
问题已经解决了。是尺寸的问题。哪个路过的兄弟,帮我再看看

'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, "www.chinateeyoo.com" ''''//水印文字,两个数字10为水印的xy座标




怎么样才能给大图加上水印。现在这个是给生成的缩略图加水印的
1.安装环境 嵩嵩图片管理系统v8.0 UTF-8 安装时不需要作任何修改即可正常运行 智能识别目录,可以放在任意目录下访问 请在iis环境下使用本系统。 需要AspJpeg水印组件支持 2.常见问题 1.后台路径 admin/ 帐号密码 admin admin 2.后台登陆为什么没有反应?答:iis环境配置,程序所在目录没有修改写入权限 3.上传图片上传不了?答:iis 环境示配置AspJpeg组件 4.访问时出现乱码或错误或空白.答:本系统采用UTF-8国际编码,不允许在netbox类似这些简易测试工具下运行,请在iis环境下运行本系统。 3.主要功能 Div+CSS+JS+AJAX 智能瀑布流展示图片,自适应屏幕宽度 多功能无限级分类 支持10M以上的大图片上传,自动生成缩略图,加快显示速度 批量上传图片,一键上传文件夹内所有选择的图片 图片自动按年月生成文件夹保存,让图片管理更有条理 缩略图后台可以设置尺寸,系统智能识别,生成小图,中图,原始图 原始图片保存路径智能加密 支持原始图片下载功能 图片可以添加图片详细说明,后台带有编辑器编辑 图片水印功能,图片上传时可以生成清晰的图片水印,水印位置智能设置 文字水印功能,后台智能设置文字水印大小,字体,颜色,阴影等属性,水印位置智能设置 图片水印与文字水印可以同时使用,智能识别位置,不会重叠 图片评论功能,评论支持与反对功能,评论砌楼式回复功能 管理员后台回复留言评论功能 支持键盘访方向键查看上一张,下一张 支持设置会员,后台添加会员帐号,只允许会员访问图片系统 三种管理员状态 A.超级管理员,B.图片发布员,C.审核员 超级管理员 拥有后台所有权限 发布员只能发布图片 审核员登陆后,只能审核图片显示状态 支持数据库备份与恢复 支持访问ip封锁管理 , 可设置 只允许指定ip段的用户访问,或者禁止指定ip段的用户访问

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧