asp获取图片宽度和高度类

asp获取图片宽度和高度类

ID:20929824

大小:27.50 KB

页数:7页

时间:2018-10-18

asp获取图片宽度和高度类_第1页
asp获取图片宽度和高度类_第2页
asp获取图片宽度和高度类_第3页
asp获取图片宽度和高度类_第4页
asp获取图片宽度和高度类_第5页
资源描述:

《asp获取图片宽度和高度类》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、asp获取图片宽度和高度的类<%'获取图片宽度和高度的类,支持JPG,GIF,PNG,BMPClassImgWHInfoDimASOPrivateSubClass_InitializeSetASO=Server.CreateObject("ADODB.Stream")ASO.Mode=3ASO.Type=1ASO.OpenEndSubPrivateSubClass_TerminateErr.ClearSetASO=NothingEndSubPrivateFunctionBin2Str(Bin)DimI,StrForI=1To

2、LenB(Bin)clow=MidB(Bin,I,1)IfASCB(clow)<128ThenStr=Str&Chr(ASCB(clow))ElseI=I+1IfI<=LenB(Bin)ThenStr=Str&Chr(ASCW(MidB(Bin,I,1)&clow))EndIfNextBin2Str=StrEndFunctionPrivateFunctionNum2Str(Num,Base,Lens)DimRetRet=""While(Num>=Base)Ret=(NumModBase)&RetNum=(Num-NumMod

3、Base)/BaseWendNum2Str=Right(String(Lens,"0")&Num&Ret,Lens)EndFunctionPrivateFunctionStr2Num(Str,Base)DimRet,IRet=0ForI=1ToLen(Str)Ret=Ret*base+Cint(Mid(Str,I,1))NextStr2Num=RetEndFunctionPrivateFunctionBinVal(Bin)DimRet,IRet=0ForI=LenB(Bin)To1Step-1Ret=Ret*256+AscB

4、(MidB(Bin,I,1))NextBinVal=RetEndFunctionPrivateFunctionBinVal2(Bin)DimRet,IRet=0ForI=1ToLenB(Bin)Ret=Ret*256+AscB(MidB(Bin,I,1))NextBinVal2=RetEndFunctionPrivateFunctionGetImageSize(filespec)DimbFlagDimRet(3)ASO.LoadFromFile(filespec)bFlag=ASO.Read(3)SelectCaseHex(

5、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

6、(binData),2,8)nBits=Str2Num(left(sConv,5),2)sConv=mid(sConv,6)While(len(sConv)

7、(Abs(Str2Num(Mid(sConv,3*nBits+1,nBits),2)-Str2Num(Mid(sConv,2*nBits+1,nBits),2))/20)Case"FFD8FF":DoDo:p1=binVal(ASO.Read(1)):LoopWhilep1=255AndNotASO.EOSIfp1>191Andp1<196ThenExitDoElseASO.read(binval2(ASO.Read(2))-2)Do:p1=binVal(ASO.Read(1)):LoopWhilep1<255AndNotA

8、SO.EOSLoopWhileTrueASO.Read(3)ret(0)="JPG"ret(2)=binval2(ASO.Read(2))ret(1)=binval2(ASO.Read(2))CaseElse:Ifleft(Bin2Str(bFlag),2)="BM"ThenASO.Rea

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。