在网上找了很久, 终于找到一个可以用的!
<%
Funktion base64Encode(sString)
Wenn sString = oder IsNull(sString) Dann
base64Encode =
Exit-Funktion
Ende wenn
Dimmen Sie xml_dom, Knoten
Setze xml_dom = CreateObject(Microsoft.XMLDOM)
Mit xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
Setze Node = xml_dom.createElement(MyText)
Mit Node
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .Text
Ende mit
xml_dom.documentElement.appendChild-Knoten
Ende mit
Setze xml_dom = Nichts
Funktion beenden
Funktion base64uncode(sString)
Wenn sString = oder IsNull(sString) Dann
base64uncode =
Exit-Funktion
Ende wenn
Dimmen Sie xml_dom, Knoten
Setze xml_dom = CreateObject(Microsoft.XMLDOM)
Mit xml_dom
.loadXML (<?xml version='1.0' ?> <root/>)
Setze Node = xml_dom.createElement(MyText)
Mit Node
.dataType = bin.base64
.Text = sString
base64uncode = Stream_GB2312(.nodeTypedValue)
Ende mit
xml_dom.documentElement.appendChild-Knoten
Ende mit
Setze xml_dom = Nichts
Funktion beenden
Funktion Gb2312_Stream(sString)
Dim Dr
Setze dr = CreateObject(ADODB.Stream)
Mit Dr
.Modus = 3
.Typ = 2
.offen
.Charset = gb2312
.WriteText sString
.position = 0
.Typ = 1
Gb2312_Stream = .Read
.Schließen
Ende mit
Setze dr = Nothing www.vevb.com
Funktion beenden
Funktion Stream_GB2312(sStream)
Dim Dr
Setze dr = CreateObject(ADODB.Stream)
Mit Dr
.Modus = 3
.Typ = 1
.offen
.sStream schreiben
.position = 0
.Typ = 2
.Charset = gb2312
Stream_GB2312 = .ReadText
.Schließen
Ende mit
Setze dr = Nichts
Funktion beenden
%>