ASP中获得图片宽度和高度的类

ASP中取得图片宽度和高度的类（无组件）

<%

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 

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!