在網路上找了好久，終於找到一個可以用的！
<%
函數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 = .Text
結束於
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 = sString
base64uncode = Stream_GB2312(.nodeTypedValue)
結束於
xml_dom.documentElement.appendChild 節點
結束於
設定 xml_dom = 無
結束功能
函數 Gb2312_Stream(sString)
昏暗的博士
設定 dr = CreateObject(ADODB.Stream)
與博士
.模式= 3
.類型=2
。
.字符集=gb2312
.WriteText sString
.位置=0
.類型=1
Gb2312_Stream = .Read
。
結束於
設定 dr = Nothing www.vevb.com
結束功能
函數 Stream_GB2312(sStream)
昏暗的博士
設定 dr = CreateObject(ADODB.Stream)
與博士
.模式= 3
.類型=1
。
.寫入流
.位置=0
.類型=2
.字符集=gb2312
Stream_GB2312 = .ReadText
。
結束於
設定 dr = 無
結束功能
%>