《asp获取图片宽度和高度的类》由会员分享，可在线阅读，更多相关《asp获取图片宽度和高度的类（5页珍藏版）》请在金锄头文库上搜索。
1、=Base) Ret = (Num Mod Base) & Ret Num = (Num - Num Mod Base)/Base Wend Num2Str = Right(String(Lens,0) & Num & Ret,Lens) End Function Private Function Str2Num(Str,Base) Dim Ret,I Ret = 0 For I=1 To Len(Str) Ret = Ret *base + Cint(Mid(Str,I,1) Next Str2Num=Ret End Function Private Function BinVal(Bin)
2、 Dim Ret,I Ret = 0 For I = LenB(Bin) To 1 Step -1 Ret = Ret *256 + AscB(MidB(Bin,I,1) Next BinVal=Ret End Function Private Function BinVal2(Bin) Dim Ret,I Ret = 0 For I = 1 To LenB(Bin) Ret = Ret *256 + AscB(MidB(Bin,I,1) Next BinVal2=Ret End Function Private Function GetImageSize(filespec) Dim bFla
3、g 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)191 And p10 and H10 thenif W1350 thenW=350H=H1*350/W1elseW=W1H=H1end ifend ifSet pp = Nothing response.write 宽：&Wresponse.write response.write 高：&H%
