base64编码与解码(双字节,asp)

<%
function bin2dec(binStr)
    towPow=1
    numLen=len(binStr)
    bin2Dec=0
    decPos=numLen
    do while decPos>0
        cChar=mid(binStr,decPos,1)
        nChar=Cint(cChar)
        bin2Dec=bin2Dec+nChar*towPow
        towPow=towPow*2
        decPos=decPos-1
    Loop
end function

function dec2bin(octNumber)
    vara=octNumber
    do
        dec2bin=cstr(vara mod 2) & dec2bin
        vara=vara / 2
    loop until vara=0
end function

Bstr_base64="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="

function enCode_base64(strBin)
    bins=""
    for i=1 to lenB(strBin)
        varTm=AscB(midB(strBin,i,1))
        bins=bins & right("00000000" & d