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

2024-05-04 11:01:52

字体：大中小

来源：转载

供稿：网友

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

上一篇：实例讲解实现抓取网上房产信息的ASP程序

下一篇：ASP中怎么实现SQL数据库备份、恢复！