拍拍尘土

'* ************************************** *
'* 模块名称：modBase64.bas
'* 模块功能：BASE64编码和解码函数
'* 作者：lyserver
'* ************************************** *

Option Explicit

'- ------------------------------------------- -
' 函数说明：BASE64编码
'- ------------------------------------------- -
Public Function Base64Encode(varIn As Variant) As String
         Dim adoStream As Object
         Dim xmlDoc As Object

'* ************************************** *
'* 模块名称：modCharset.bas
'* 模块功能：GB2312与UTF8相互转换函数
'* 作者：lyserver
'* ************************************** *

Option Explicit

'- ------------------------------------------- -
' 函数说明：GB2312转换为UTF8
'- ------------------------------------------- -
Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant