谁有ASP的BASE64转换文件，网上下了好几个放

谁有ASP的BASE64转换文件，网上下了好几个放

<%
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%>

---