• 维科网络
  • 维科网络
  • 维科网络
    返回列表
    ASP 程序获取图片宽度和高度
    发表日期:2014-03-27 09:18:15      文章来源:维科网络      点击:0次

    <%
    Class ImgWHInfo '获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP
        Dim ASO 
        
        Private Sub Class_Initialize 
            Set ASO=Server.CreateObject("ADODB.Stream") 
            ASO.Mode=3 
            ASO.Type=1 
            ASO.Open 
        End Sub 
        
        Private Sub Class_Terminate 
            Err.Clear 
            Set ASO=Nothing 
        End Sub 
            Private Function Bin2Str(Bin) 
            Dim I, Str 
            For I=1 To LenB(Bin) 
                clow=MidB(Bin,I,1) 
                If ASCB(clow)<128 Then 
                    Str = Str & Chr(ASCB(clow)) 
                Else 
                    I=I+1 
                    If I <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow)) 
                End If 
            Next 
            Bin2Str = Str 
        End Function 
            Private Function Num2Str(Num,Base,Lens) 
            Dim Ret 
            Ret = "" 
            While(Num>=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) 
            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 

    维科咨询电话:18625880076
    返回顶部
    网站首页 | 关于我们 | 网站建设 | 高端网站 | 私人定制 | 经典案例 | 网店服务 | 公司简介
    全国统一服务热线:18625880076 专业服务 每时每刻
    Copyright © 2013-2014 www.vvke.com All Rights Reserved