VBScript中的Base64編碼字符串

在VBScript中，可以使用Base64Encode函數(shù)來進行Base64編碼。下面是一個簡單的示例代碼：

Dim Base64String
Base64String = Base64Encode("Hello, World!")
WScript.Echo Base64String
Function Base64Encode(str)
Dim objXML, objNode
' 創(chuàng)建XML對象
Set objXML = CreateObject("MSXML2.DOMDocument")
' 創(chuàng)建節(jié)點并設(shè)置節(jié)點值
Set objNode = objXML.CreateElement("b64")
objNode.DataType = "bin.base64"
objNode.Text = StreamStringToBase64(str)
' 將節(jié)點內(nèi)容轉(zhuǎn)換為Base64字符串并返回
Base64Encode = objNode.Text
Set objNode = Nothing
Set objXML = Nothing
End Function
' 將字符串轉(zhuǎn)換為Base64編碼的字節(jié)數(shù)組
Function StreamStringToBase64(str)
Dim objStream
' 創(chuàng)建二進制數(shù)據(jù)流對象
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函數(shù)接受一個字符串參數(shù)，并返回該字符串的Base64編碼。StreamStringToBase64函數(shù)將字符串轉(zhuǎn)換為Base64編碼的字節(jié)數(shù)組。通過創(chuàng)建XML對象和節(jié)點，然后將字節(jié)數(shù)組賦值給節(jié)點的Text屬性，最終通過節(jié)點的Text屬性獲取Base64編碼字符串。