28,391
社区成员
发帖
与我相关
我的任务
分享
Function DecodeBase64(str)
With CreateObject("Microsoft.XMLDOM").createElement("TXT")
.dataType = "bin.base64"
.text = str
DecodeBase64 = .nodeTypedValue
End With
End Function
Function EncodeBase64(dt)
With CreateObject("Microsoft.XMLDOM").createElement("TXT")
.dataType = "bin.base64"
.nodeTypedValue = dt
EncodeBase64 = .text
End With
End Function
<%
s = "R0lGODlhCgAKAIAAAEqxNQAAACH5BAAAAAAALAAAAAAKAAoAAAIIhI+py+0PYysAOw=="
Set obj = CreateObject("Base64Lib.Base64Codec")
Response.BinaryWrite obj.Decode(s,0)
Set obj = Nothing
%>