在网上找了很久,终于找到一个可以用的!
<%
Функция base64Encode(sString)
Если sString = или IsNull(sString) Тогда
base64Код =
Выход из функции
Конец, если
Уменьшить xml_dom, Узел
Установите xml_dom = CreateObject(Microsoft.XMLDOM)
С xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
Установить узел = xml_dom.createElement(MyText)
С узлом
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .Текст
Конец с
Узел xml_dom.documentElement.appendChild
Конец с
Установить xml_dom = Ничего
Конечная функция
Функция base64uncode(sString)
Если sString = или IsNull(sString) Тогда
base64uncode =
Выход из функции
Конец, если
Уменьшить xml_dom, Узел
Установите xml_dom = CreateObject(Microsoft.XMLDOM)
С xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
Установить узел = xml_dom.createElement(MyText)
С узлом
.dataType = bin.base64
.Text = строка
base64uncode = Stream_GB2312(.nodeTypedValue)
Конец с
Узел xml_dom.documentElement.appendChild
Конец с
Установить xml_dom = Ничего
Конечная функция
Функция Gb2312_Stream(sString)
Дим Др.
Установите dr = CreateObject(ADODB.Stream)
С доктором
.Режим = 3
.Тип = 2
.открыть
.Кодировка = gb2312
.WriteText строка
.позиция = 0
.Тип = 1
Gb2312_Stream = .Читать
.Закрывать
Конец с
Установите dr = Ничего www.vevb.com
Конечная функция
Функция Stream_GB2312(sStream)
Дим Др.
Установите dr = CreateObject(ADODB.Stream)
С доктором
.Режим = 3
.Тип = 1
.открыть
.Написать sStream
.позиция = 0
.Тип = 2
.Кодировка = gb2312
Stream_GB2312 = .ReadText
.Закрывать
Конец с
Установить др = Ничего
Конечная функция
%>