fso获取图片宽度和高度的类,支持JPG，GIF，PNG，BMP

最新推荐文章于 2021-06-07 17:51:18 发布

dengzhongwen

最新推荐文章于 2021-06-07 17:51:18 发布

阅读量477

点赞数

本文链接：https://blog.csdn.net/dengzhongwen/article/details/4669133

版权

这个 VBScript 类可以读取 JPG、GIF、PNG 和 BMP 图片的宽度和高度。通过使用 ADODB.Stream 对象，它能识别图片文件头并解析出相应的尺寸信息。

摘要由CSDN通过智能技术生成

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