以文本方式查看主题 - 康柏仕电脑学院 (http://combss.com/bbs/index.asp) -- Dreamweaver网站设计交流区 (http://combss.com/bbs/list.asp?boardid=48) ---- ASP上传图片自动生成缩略图解决方案 (http://combss.com/bbs/dispbbs.asp?boardid=48&id=343) |
-- 作者:superpch -- 发布时间:2007/2/9 18:17:41 -- ASP上传图片自动生成缩略图解决方案 说明:本功能基于Dreamweaver MX实现 需要:IIS服务器 、上传插件Pure Asp file Upload 2.09 、 第三方组件AspJpeg 特别:相关文件打包提供 软件包名:asp_image_generate / aspjpeg.exe 第三方组件 / pure_asp_upload.mxp 上传插件 / pau_汉化包 pure_asp_upload.mxp 的汉化包 / readme.txt 说明文件 / lesson.mht 教程文件 操作步骤:
5. 打开DwMX 定义ASP/VBScript 新站点,定义数据库连接,这里使用系统DSN 6. 新建asp页面,如:myupload0.asp 如下图插入form 并作相应调整 7. 在同一asp页面新建一个记录集,取的记录就是表mypubuploadb的数据
高级选项设置 确定 完成后的站点文件夹 11. 在同一asp页面插入insert 服务器行为
★. 进阶讨论 ★★★★★★★★★★★★★★ 分析相关代码 ' Aspjpeg 功能设置 Set Jpeg = Server.CreateObject("Persits.Jpeg") ' 获取源图片路径 Path = Server.MapPath("uploadimages/")&"/"&FileName ' 打开源图片 Jpeg.Open Path ' 设定生成缩略图细节 这里有很多种设定方法 下面的方法是先判断宽高比 然后按比例缩放 If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then Jpeg.Width = 98 Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight) elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then Jpeg.Width = 98 Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height) end if ' 设定锐化效果 Jpeg.Sharpen 1, 130 ' 向指定路径生成缩略图 如果你想进一步定制 请参考 Aspjpeg 的帮助文档 教程至此结束 感谢你阅读
[此帖子已被 superpch 在 2007-2-9 18:20:45 编辑过] |