有时候大家享用base64 加解密，下面是具体的实现代码，需要的朋友可以参考下。

之前脚本之家小编已经为大家分享了了几个asp BASE64加解密函数代码，不过实际用的过程中都有这样或那样的问题，现在重新整理一个

核心代码： <% ' OPTION EXPLICIT const BASE_64_MAP_INIT = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/ dim newline dim Base64EncMap(63) dim Base64DecMap(127) '初始化函数 PUBLIC SUB initCodecs() ' 初始化变量 newli

代码如下:<% sBASE_64_CHARACTERS = “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/” sBASE_64_CHARACTERS = strUnicode2Ansi(sBASE_64_CHARACTERS) Function strUnicodeLen(asContents) ‘计算unicode字符串的Ansi编码的长度 asContents1=”a”&asContents len1=