ASP常用函数收藏乱七八糟未整理版(54)

                Depth = 2 ^ (Asc(Left(Depth, 1)))
                gfxSpex = True
            Case 2
                Depth = 2 ^ (Asc(Left(Depth, 1)) * 3)
                gfxSpex = True
            Case 3
                Depth = 2 ^ (Asc(Left(Depth, 1))) '8
                gfxSpex = True
            Case 4
                Depth = 2 ^ (Asc(Left(Depth, 1)) * 2)
                gfxSpex = True
            Case 6
                Depth = 2 ^ (Asc(Left(Depth, 1)) * 4)
                gfxSpex = True
            Case Else
                Depth = -1
        End Select　
    Else
        strBuff = GetBytes(flnm, 0, -1) ' Get all bytes from file
        lngSize = Len(strBuff)
        flgFound = 0
        strTarget = Chr(255) & Chr(216) & Chr(255)
        flgFound = InStr(strBuff, strTarget)
        If flgFound = 0 Then
            Exit Function
        End If
        strImageType = "JPG"
        lngPos = flgFound + 2