在网上找了很久,终于找到一个可以用的！
<%
Función base64Encode(sString)
Si sString = o IsNull(sString) Entonces
código base64 =
Función de salida
Terminar si
Dim xml_dom, nodo
Establecer xml_dom = CreateObject(Microsoft.XMLDOM)
Con xml_dom
.loadXML (<?xml versión='1.0' ?> <raíz/>)
Establecer nodo = xml_dom.createElement(MiTexto)
Con nodo
.tipo de datos = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .Texto
Terminar con
xml_dom.documentElement.appendNodo secundario
Terminar con
Establecer xml_dom = Nada
Función final
Función base64uncode(sString)
Si sString = o IsNull(sString) Entonces
código base64 =
Función de salida
Terminar si
Dim xml_dom, nodo
Establecer xml_dom = CreateObject(Microsoft.XMLDOM)
Con xml_dom
.loadXML (<?xml versión='1.0' ?> <raíz/>)
Establecer nodo = xml_dom.createElement(MiTexto)
Con nodo
.tipo de datos = bin.base64
.Texto = sCadena
base64uncode = Stream_GB2312(.nodeTypedValue)
Terminar con
xml_dom.documentElement.appendNodo secundario
Terminar con
Establecer xml_dom = Nada
Función final
Función Gb2312_Stream(sString)
Dr. oscuro
Establecer dr = CreateObject(ADODB.Stream)
con el dr.
.Modo = 3
.Tipo = 2
.abierto
.Juego de caracteres = gb2312
.WriteText cadena
.posición = 0
.Tipo = 1
Gb2312_Stream = .Leer
.Cerca
Terminar con
Establecer dr = Nada www.vevb.com
Función final
Función Stream_GB2312(sStream)
Dr. oscuro
Establecer dr = CreateObject(ADODB.Stream)
con el dr.
.Modo = 3
.Tipo = 1
.abierto
.Escribir flujo
.posición = 0
.Tipo = 2
.Juego de caracteres = gb2312
Stream_GB2312 = .LeerTexto
.Cerca
Terminar con
Establecer dr = Nada
Función final
%>