VBScript中的Base64编码字符串

在VBScript中，可以使用Base64Encode函数来进行Base64编码。下面是一个简单的示例代码：

Dim Base64String Base64String = Base64Encode("Hello, World!") WScript.Echo Base64String Function Base64Encode(str) Dim objXML, objNode ' 创建XML对象 Set objXML = CreateObject("MSXML2.DOMDocument") ' 创建节点并设置节点值 Set objNode = objXML.CreateElement("b64") objNode.DataType = "bin.base64" objNode.Text = StreamStringToBase64(str) ' 将节点内容转换为Base64字符串并返回 Base64Encode = objNode.Text Set objNode = Nothing Set objXML = Nothing End Function ' 将字符串转换为Base64编码的字节数组 Function StreamStringToBase64(str) Dim objStream ' 创建二进制数据流对象 Set objStream = CreateObject("ADODB.Stream") objStream.Type = 2 ' adTypeText objStream.Charset = "UTF-8" objStream.Open objStream.WriteText str objStream.Position = 0 objStream.Type = 1 ' adTypeBinary StreamStringToBase64 = objStream.ReadText(-1) Set objStream = Nothing End Function 

在上述代码中，Base64Encode函数接受一个字符串参数，并返回该字符串的Base64编码。StreamStringToBase64函数将字符串转换为Base64编码的字节数组。通过创建XML对象和节点，然后将字节数组赋值给节点的Text属性，最终通过节点的Text属性获取Base64编码字符串。