在网上找了很久，终于找到一个可以用的！
<%
Fonction base64Encode(sString)
Si sString = ou IsNull(sString) Alors
base64Encode =
Fonction de sortie
Fin si
Dim xml_dom, nœud
Définir xml_dom = CreateObject (Microsoft.XMLDOM)
Avec xml_dom
.loadXML (<?xml version='1.0' ?> <racine/>)
Définir Node = xml_dom.createElement (MonTexte)
Avec nœud
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .Texte
Terminer par
Nœud xml_dom.documentElement.appendChild
Terminer par
Définir xml_dom = Rien
Fonction de fin
Fonction base64uncode(sString)
Si sString = ou IsNull(sString) Alors
base64uncode =
Fonction de sortie
Fin si
Dim xml_dom, nœud
Définir xml_dom = CreateObject (Microsoft.XMLDOM)
Avec xml_dom
.loadXML (<?xml version='1.0' ?> <racine/>)
Définir Node = xml_dom.createElement (MonTexte)
Avec nœud
.dataType = bin.base64
.Texte = sChaîne
base64uncode = Stream_GB2312 (.nodeTypedValue)
Terminer par
Nœud xml_dom.documentElement.appendChild
Terminer par
Définir xml_dom = Rien
Fonction de fin
Fonction Gb2312_Stream(sString)
Dim Dr
Définir dr = CreateObject (ADODB.Stream)
Avec le Dr
.Mode = 3
.Type = 2
.ouvrir
.Charset = gb2312
.WriteText sString
.position = 0
.Type = 1
Gb2312_Stream = .Lire
.Fermer
Terminer par
Définir dr = Rien www.vevb.com
Fonction de fin
Fonction Stream_GB2312(sStream)
Dim Dr
Définir dr = CreateObject (ADODB.Stream)
Avec le Dr
.Mode = 3
.Type = 1
.ouvrir
.Écrire sStream
.position = 0
.Type = 2
.Charset = gb2312
Stream_GB2312 = .ReadText
.Fermer
Terminer par
Définir dr = Rien
Fonction de fin
%>