ウェブ上で很久を達成し、使えるものを見つけました!
<%
関数base64Encode(sString)
sString = または IsNull(sString) の場合
Base64エンコード =
終了関数
終了する場合
Dim 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 = .Text
で終わる
xml_dom.documentElement.appendChild ノード
で終わる
xml_dom = なしを設定します
終了機能
関数base64uncode(sString)
sString = または IsNull(sString) の場合
Base64uncode =
終了関数
終了する場合
Dim xml_dom、ノード
xml_dom = CreateObject(Microsoft.XMLDOM) を設定します。
xml_domを使用する場合
.loadXML (<?xml version='1.0' ?> <root/>)
ノード = xml_dom.createElement(MyText) を設定します。
ノードあり
.dataType = bin.base64
.Text = sString
base64uncode = Stream_GB2312(.nodeTypedValue)
で終わる
xml_dom.documentElement.appendChild ノード
で終わる
xml_dom = なしを設定します
終了機能
関数 Gb2312_Stream(sString)
ディム・ドクター
dr = CreateObject(ADODB.Stream) を設定します。
博士と
.モード = 3
.Type = 2
。開ける
.Charset = gb2312
.WriteText sString
.position = 0
.Type = 1
Gb2312_Stream = .Read
。近い
で終わる
dr = 何も設定しない www.vevb.com
終了機能
関数 Stream_GB2312(sStream)
ディム・ドクター
dr = CreateObject(ADODB.Stream) を設定します。
博士と
.モード = 3
.Type = 1
。開ける
.SStream の書き込み
.position = 0
.Type = 2
.Charset = gb2312
Stream_GB2312 = .ReadText
。近い
で終わる
dr = 何も設定しない
終了機能
%>