![]() |
当前位置: 电脑软硬件应用网 > 设计学院 > 网络编程 > ASP教程 > 正文 |
|
|||
Asp无组件生成缩略图 | |||
2011-4-2 13:10:04 文/佚名 出处:电脑软硬件应用网 | |||
'///以下是调用代码/// Function getImageSize(filespec) 'GPS (2002-8-11) dim ret(3) aso.LoadFromFile(filespec) bFlag=aso.read(3) select case hex(binVal(bFlag)) case "4E5089": aso.read(15) ret(0)="PNG" ret(1)=BinVal2(aso.read(2)) aso.read(2) ret(2)=BinVal2(aso.read(2)) case "464947": aso.read(3) ret(0)="GIF" ret(1)=BinVal(aso.read(2)) ret(2)=BinVal(aso.read(2)) case "535746": aso.read(5) binData=aso.Read(1) sConv=Num2Str(ascb(binData),2 ,8) nBits=Str2Num(left(sConv,5),2) sConv=mid(sConv,6) while(len(sConv)<nBits*4) binData=aso.Read(1) sConv=sConv&Num2Str(ascb(binData),2 ,8) wend ret(0)="SWF" ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20) ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20) case "FFD8FF": do do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2) do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS loop while true aso.Read(3) ret(0)="JPG" ret(2)=binval2(aso.Read(2)) ret(1)=binval2(aso.Read(2)) case else: if left(Bin2Str(bFlag),2)="BM" then aso.Read(15) ret(0)="BMP" ret(1)=binval(aso.Read(4)) ret(2)=binval(aso.Read(4)) else ret(0)="" end if end select ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &"""" getimagesize=ret End Function End Class %> 将以上代码复制生成GPS.asp文件,这样无组件获取图片尺寸的通用类就OK了。 2.获取图片路径 '/////图片相对路径(存于数据库中) '/////因为ShowImg.asp与images在同一目录,所以我们用instrrev获取images的路径///// '/////建立GPS类实体///// '/////获取图片类型///// '/////调用GPS通用类中的GetImageSize函数获取图片尺寸///// |
|||
最新热点 | 最新推荐 | 相关文章 | ||
ASP采集水印,缩略图 实现,参考代码 ASP编程中几个非常有用的例子 ACCESS数据库在ASP中的应用 三种中文分词算法优劣比较 ASP教程:删除记录和链接数据库程序解… ASP生成html或者txt文件实例 分享常用7款天气预报代码iframe嵌入… ASP错误信息解决:IIS启用父路径的设… 禁止网页缓存的方法及代码 推荐如何抓取显示防盗链图片的方法 |
关于45IT | About 45IT | 联系方式 | 版权声明 | 网站导航 | |
Copyright © 2003-2011 45IT. All Rights Reserved 浙ICP备09049068号 |