苗启源的部落格

Const BASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Private sBASE_64_CHARACTERS

Function Base64encode(ByVal asContents)
asContents = strUnicode2Ansi(asContents)
Dim lnPosition,lsResult,Char1,Char2,Char3,Char4,Byte1,Byte2,Byte3,SaveBits1,SaveBits2,lsGroupBinary,lsGroup64,M4, len1, len2
len1 = LenB(asContents)
If len1 < 1 Then
Base64encode = ""
Exit Function
[...]

JS有Base64.js，PHP内建Base64支持，ASP处理Base64数据就没有那么幸运了，既没有Base64.asp，也没有内建的函数，这可怎么办？
ASP一般用到Base64的时候，都是处理二进制文件。简单的文本，就没有必要编码咯。ASP处理二进制又是一个弱项，有没有好的方法呢？xml中的bin.base64也许可以拿来用用。

‘调用xml的编码，用于参照
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 [...]