鱼常游而忘飞

Function BinaryToString(binData, CharSet)
Dim objStream
Dim strTmp
Const adTypeBinary = 1
Const adTypeText = 2
Const adModeReadWrite = 3
‘ init stream
Set objStream = Server.CreateObject(“ADODB.Stream”)
If CharSet<>”" Then
objStream.CharSet = CharSet
Else
Err.Raise vbObjectError + 1, “IllegalArgument”, “Charset is required”
End If
objStream.Mode = adModeReadWrite
objStream.Type = adTypeBinary
objStream.Open
‘ write bytes into stream
objStream.Write binData
objStream.Flush
‘ rewind stream and read text
objStream.Position = 0
objStream.Type = adTypeText
strTmp = objStream.ReadText
‘ close up and return
objStream.Close
BinaryToString [...]