asp base64加密的函数 测试可用，秒杀全网

 可能asp真的老了，最近要找一个asp版的base64加密方式，竟然全网搜到的代码测试都没用，其实也不是说没用，就是虽然用网上的这些asp版的函数进行base64编码了，但是在前端无法解密。最后在google上才找到答案，以下是我做了些小修改，然后测试通过了的。直接调用函数Base64Encode即可。

<%
Function Base64Encode(sText)
    Dim oXML, oNode
    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.createElement("base64")
    oNode.dataType = "bin.base64"
    oNode.nodeTypedValue = Stream_StringToBinary(sText)
    Base64Encode = Replace(Replace(oNode.Text, Chr(10), ""), Chr(13), "")
    Set oNode = Nothing
    Set oXML = Nothing
End Function
Private Function Stream_StringToBinary(Text)
    Const adTypeText = 2
    Const adTypeBinary = 1
    Dim BinaryStream 'As New Stream
    Set BinaryStream = CreateObject("ADODB.Stream")
    BinaryStream.Type = adTypeText
    BinaryStream.Charset = "UTF-8"
    BinaryStream.Open
    BinaryStream.WriteText Text
    BinaryStream.position = 0
    BinaryStream.Type = adTypeBinary
    BinaryStream.position = 0
    Stream_StringToBinary = BinaryStream.Read
    Set BinaryStream = Nothing
End Function
%>

 为什么要搞这个？是因为有个老古董网站是GBK的，而json传输中文总是会乱码，因此不得已用base64转码来规避这个问题。前端js解码简单，找到特征字符串然后解密替换即可。主要代码如下：
 

    //对msg中的base64编码进行解密
    let reg = /77u\/([^\s]+)/g;
    let result = "";   
    while(result = reg.exec(msg)) {   
        msg=msg.replace("77u/" + result[1], Base64.decode(result[1]));
    }

以上是假设返回的结果是msg，大家可以根据自己需要进行修改。