在网上找了好久，终于找到一个可以用的！
<%
函数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 = 无
结束功能
%>