【Asp】ASP 十六进制转换为二进制

ASP 十六进制转换为二进制：

Function HEX_to_BIN(Hex)
Dim i , B
    Hex = UCase(Hex)
    For i = 1 To Len(Hex)
        Select Case Mid(Hex, i, 1)
            Case "0": B = B & "0000"
            Case "1": B = B & "0001"
            Case "2": B = B & "0010"
            Case "3": B = B & "0011"
            Case "4": B = B & "0100"
            Case "5": B = B & "0101"
            Case "6": B = B & "0110"
            Case "7": B = B & "0111"
            Case "8": B = B & "1000"
            Case "9": B = B & "1001"
            Case "A": B = B & "1010"
            Case "B": B = B & "1011"
            Case "C": B = B & "1100"
            Case "D": B = B & "1101"
            Case "E": B = B & "1110"
            Case "F": B = B & "1111"
        End Select
    Next

    While Left(B, 1) = "0"
        B = Right(B, Len(B) - 1)
    Wend

    HEX_to_BIN = B
End Function

response.write HEX_to_BIN(line)