<%
function Base64Encode(s) 'Base64编码
with createobject("adodb.stream")
.Type=2
.charset="unicode"
.mode=3
.open
.writeText s
.Position=0
.Type=1
b=.read
end with
With CreateObject("Microsoft.XMLDOM").createElement("TXT")
.DataType="bin.base64"
.NodeTypedValue=b
Base64Encode=.text
end with
end function
function Base64Decode(b) 'Base64解码
With CreateObject("Microsoft.XMLDOM").createElement("TXT")
.DataType="bin.base64"
.text=b
Base64Decode=.NodeTypedValue
end with
end function
s="1234567890呵呵哈哈嘿嘿嘻嘻abcdefghijkl"
b=Base64Encode(s)
d=Base64Decode(b)
%>
编码前的文字：
<%=s%>
编码后的文字：
<%=b%>
解码后的文字：
<%=d%>
