bin.base64和bin.hex编码与解码

Function EncodeBase64(bytesData)
Dim objXd
Set objXd=Server.CreateObject("msxml.domdocument")
Call objXd.loadXml("<root/>")
objXd.DocumentElement.DataType="bin.base64"
objXd.DocumentElement.NodeTypedValue=bytesData
EncodeBase64=objXd.DocumentElement.text
End Function
Function Base64Decode(strData)
Dim objXd
Set objXd=Server.CreateObject("msxml.domdocument")
Call objXd.loadXml("<root/>")
objXd.DocumentElement.DataType="bin.base64"
objXd.DocumentElement.text=strData
Base64Decode=objXd.DocumentElement.NodeTypedValue
End Function

Function Save2Local(imgs,tofile)
Set objStream=Server.CreateObject("Adodb.Stream")
objStream.Mode=3
objStream.Type=1
objStream.Open
objStream.Write imgs
objStream.SaveToFile tofile,2
objStream.Close
Set objStream=Nothing
End Function