[图片][图片]<script language="javascript">[图片]
[图片]var Base64Alphabet = ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q',
[图片]    'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
[图片]    'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '/'];
[图片]
[图片]function EncodeBase64(string)
[图片][图片][图片]{
[图片]    var hexString = string.getGBCode();
[图片]    window.status = hexString; 
[图片]    var base64 = '';
[图片]    var B64A = Base64Alphabet;
[图片]    var padCount = hexString.length%3;
[图片]    var count = parseInt(hexString.length/6);
[图片]    var i = 0; 
[图片]    for ( i=0 ; i < count ; ++i )
[图片][图片]    [图片]{
[图片]         var intA = parseInt(hexString.charAt(i*6+0)+hexString.charAt(i*6+1), 16);
[图片]         var intB = parseInt(hexString.charAt(i*6+2)+hexString.charAt(i*6+3), 16);
[图片]         var intC = parseInt(hexString.charAt(i*6+4)+hexString.charAt(i*6+5), 16); 
[图片]         var part1 = intA >> 2;
[图片]         var part2 = ((intA & 0x03) << 4) | (intB >> 4);
[图片]         var part3 = ((intB & 0x0f) << 2) | (intC >> 6);
[图片]         var part4 = intC & 0x3f;
[图片]         base64 += B64A[part1] + B64A[part2] + B64A[part3] + B64A[part4]; 
[图片]    }
[图片]    if ( padCount == 1 )
[图片][图片]    [图片]{
[图片]         var intA = parseInt(hexString.charAt(i*6+0)+hexString.charAt(i*6+1), 16);
[图片]         var intB = parseInt(hexString.charAt(i*6+2)+hexString.charAt(i*6+3), 16);
[图片]         var part1 = intA >> 2;
[图片]         var part2 = ((intA & 0x03) << 4) | (intB >> 4);
[图片]         var part3 = ((intB & 0x0f) << 2);
[图片]         base64 += B64A[part1] + B64A[part2] + B64A[part3] + '=';
[图片]    }
[图片]    if ( padCount == 2 )
[图片][图片]    [图片]{
[图片]         var intA = parseInt(hexString.charAt(i*6+0)+hexString.charAt(i*6+1), 16);
[图片]         var part1 = intA >> 2;
[图片]         var part2 = ((intA & 0x03) << 4);
[图片]         base64 += B64A[part1] + B64A[part2] + '==';
[图片]    }        
[图片]    return base64;
[图片]}
[图片]</script>
[图片][图片]<script language="vbscript">[图片]
[图片]function vbGetGBCode(str)
[图片]    dim i, length, s
[图片]    length = len(str)
[图片]    for i=1 to length
[图片]        hexCode = hex(asc(str.charAt(i-1)))
[图片]        if (len(hexCode) mod 2) = 0 then
[图片]            s = s & hexCode
[图片]        else
[图片]            s = s & "0" & hexCode
[图片]        end if
[图片]    next
[图片]    vbGetGBCode = s
[图片]end function
[图片]</script>
[图片][图片]<script language="javascript">[图片]
[图片]String.prototype.getGBCode = function()
[图片][图片][图片]{
[图片]    return vbGetGBCode(this);
[图片]}
[图片]</script>