基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

function Base64Encode(strData) 
    dim objAds,objXd 
    set objAds=createobject("adodb.stream") 
    objAds.Type=2 
    objAds.charset="unicode" 
    objAds.mode=3 
    call objAds.open() 
    objAds.writeText strData 
    objAds.Position=0 
    objAds.Type=1 
    'objAds.Position=2 
    set objXd=createobject("msxml.domdocument") 
    call objXd.loadXml("<root/>") 
    objXd.DocumentElement.DataType="bin.base64" 
    objXd.DocumentElement.NodeTypedValue=objAds.read() 
    Base64Encode=objXd.DocumentElement.text 
end function 
  
function Base64Decode(strData) 
    dim objXd 
    set objXd=createobject("msxml.domdocument") 
    call objXd.loadXml("<root/>") 
    objXd.DocumentElement.DataType="bin.base64" 
    objXd.DocumentElement.text=strData 
    Base64Decode=objXd.DocumentElement.NodeTypedValue 
end function