在网上找了很久,终于找到一个可以用的！
<%
Função base64Encode(sString)
Se sString = ou IsNull(sString) Então
base64Encode=
Função de saída
Terminar se
Dim xml_dom, Nó
Definir xml_dom = CreateObject(Microsoft.XMLDOM)
Com xml_dom
.loadXML (<?xml versão='1.0' ?> <root/>)
Definir nó = xml_dom.createElement(MyText)
Com nó
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode=.Texto
Terminar com
Nó xml_dom.documentElement.appendChild
Terminar com
Definir xml_dom = Nada
Função final
Função base64uncode(sString)
Se sString = ou IsNull(sString) Então
base64uncode =
Função de saída
Terminar se
Dim xml_dom, Nó
Definir xml_dom = CreateObject(Microsoft.XMLDOM)
Com xml_dom
.loadXML (<?xml versão='1.0' ?> <root/>)
Definir nó = xml_dom.createElement(MyText)
Com nó
.dataType = bin.base64
.Text = string
base64uncode=Stream_GB2312(.nodeTypedValue)
Terminar com
Nó xml_dom.documentElement.appendChild
Terminar com
Definir xml_dom = Nada
Função final
Função Gb2312_Stream(sString)
Dim Dr.
Definir dr = CreateObject (ADODB.Stream)
Com o dr.
.Modo = 3
.Tipo = 2
.abrir
.Conjunto de caracteres = gb2312
.WriteText sString
.posição = 0
.Tipo = 1
Gb2312_Stream = .Ler
.Fechar
Terminar com
Definir dr = Nada www.vevb.com
Função final
Função Stream_GB2312(sStream)
Dim Dr.
Definir dr = CreateObject (ADODB.Stream)
Com o dr.
.Modo = 3
.Tipo = 1
.abrir
.Escrever fluxo
.posição = 0
.Tipo = 2
.Conjunto de caracteres = gb2312
Stream_GB2312 = .ReadText
.Fechar
Terminar com
Definir dr = Nada
Função final
%>