asp无组件生成缩略图
6页1、很多客户咨询说网上有不少生成缩略图的 ASP 组件,若您使用的是虚拟空间不支持注册第三方组件组件,可能会感觉自己的网站失色不少。我们结合网上资源写了个无组件生成缩略图程序,仅供参考。还是先看看基础部分吧。首先,我们知道在页面中显示图片是如下代码:src 是图片路径,border 控制图片边缘宽度,width 是图片的长度,height 是图片的高度。缩略图的生成其实就是在原始尺寸上缩放。但一般为了尽量少失真,我们都会按比例缩放。于是,获取图片的长宽尺寸也就成了生成缩略图的重点。下面便是编写无组件生成缩略图的步骤:1.无组件获取图片大小利用 ADODB.stream 获取图片尺寸的通用类 =base)ret = (num mod base) & retnum = (num - num mod base)/basewendNum2Str = right(string(lens,“0“) & num & ret,lens)End FunctionPrivate Function Str2Num(str,base)GPS (2005-8-11)dim retret = 0for i=1 to
2、len(str)ret = ret *base + cint(mid(str,i,1)nextStr2Num=retEnd FunctionPrivate Function BinVal(bin)GPS (2002-8-11)dim retret = 0for i = lenb(bin) to 1 step -1ret = ret *256 + ascb(midb(bin,i,1)nextBinVal=retEnd FunctionPrivate Function BinVal2(bin)GPS (2002-8-11)dim retret = 0for i = 1 to lenb(bin)ret = ret *256 + ascb(midb(bin,i,1)nextBinVal2=retEnd Function/以下是调用代码/Function getImageSize(filespec) GPS (2002-8-11)dim ret(3)aso.LoadFromFile(filespec)bFlag=aso.read(3)select case hex(binVal(bFlag)ca
《asp无组件生成缩略图》由会员cjc****537分享,可在线阅读,更多相关《asp无组件生成缩略图》请在金锄头文库上搜索。
城乡居民健康 档 案管理
中国近现代史纲要习题册2018.12 - 副本(一)
中 国 共 产 党入党积极分子考察表
华为的成功之路对我国企业的启示
惩罚犯罪与保障人 权的关系
人脸识别99%准确率背后的秘密
孔子思想的对国外的影 响 力
幼儿园 档 案管理
从网络直播和传统行业结合行业发展趋势分析网络主播未来生存发展之路
学生健康 档 案个人基本信息表
关于红 军长征的故事10个完整版
奇迹技术S12服务端经验倍率修改
一个很短的故事 海明威 翻译
《影 响 力从语言开始》作业及考试
我国土壤污染现状与防控策略
提高教师执教能力三 部 曲
《十六年前的回 忆》 重点问题探究
前诉裁判对后诉的影响——《民诉法解释》第93条、第247条解析
从《巴黎圣母院》感悟美与丑的真谛
三国演义常识题
2024-04-03 10页
2024-04-03 6页
2024-04-03 14页
2024-02-24 281页
2024-02-01 1页
2024-02-01 171页
2024-01-23 18页
2023-12-27 62页
2023-12-27 112页
2023-12-27 208页