在网上找了很久，终于找到一个可以用的!
<%
Fungsi base64Encode(sString)
Jika sString = atau IsNull(sString) Lalu
base64Enkode =
Fungsi Keluar
Akhiri Jika
Redupkan xml_dom, Node.js
Setel xml_dom = CreateObject(Microsoft.XMLDOM)
Dengan xml_dom
.loadXML (<?xml versi='1.0' ?> <root/>)
Setel Node = xml_dom.createElement(Teks Saya)
Dengan Node
.dataType = bin.base64
.nodeTypedValue = Gb2312_Stream(sString)
base64Encode = .Teks
Akhiri Dengan
xml_dom.documentElement.appendChild Node
Akhiri Dengan
Setel xml_dom = Tidak Ada
Fungsi Akhir
Fungsi base64uncode(sString)
Jika sString = atau IsNull(sString) Lalu
base64uncode =
Fungsi Keluar
Akhiri Jika
Redupkan xml_dom, Node.js
Setel xml_dom = CreateObject(Microsoft.XMLDOM)
Dengan xml_dom
.loadXML (<?xml versi='1.0' ?> <root/>)
Setel Node = xml_dom.createElement(Teks Saya)
Dengan Node
.dataType = bin.base64
.Teks = sString
base64uncode = Stream_GB2312(.nodeTypedValue)
Akhiri Dengan
xml_dom.documentElement.appendChild Node
Akhiri Dengan
Setel xml_dom = Tidak Ada
Fungsi Akhir
Fungsi Gb2312_Stream(sString)
Redupkan dr
Setel dr = CreateObject(ADODB.Stream)
Dengan dr
.Modus = 3
.Jenis = 2
.membuka
.Charset = gb2312
.WriteText sString
.posisi = 0
.Jenis = 1
Gb2312_Stream = .Baca
.Menutup
Akhiri Dengan
Setel dr = Tidak ada www.vevb.com
Fungsi Akhir
Fungsi Stream_GB2312(sStream)
Redupkan dr
Setel dr = CreateObject(ADODB.Stream)
Dengan dr
.Modus = 3
.Jenis = 1
.membuka
.Tulis sStream
.posisi = 0
.Jenis = 2
.Charset = gb2312
Stream_GB2312 = .BacaTeks
.Menutup
Akhiri Dengan
Setel dr = Tidak ada
Fungsi Akhir
%>