asp二进制转字符串

答案：
' BIN2STR(xBinary,Charset)
' 二进制转字符串
'
' #####################################################
'
' xBinary 为二进制数据流
' Charset 为转换编码
'
' #####################################################
'
' a = BIN2STR(BinaryDate,"GB2312")
' a = BIN2STR(BinaryDate,"UTF-8")
Function BIN2STR(xBinary,Charset)
    Dim RS, LBinary,Binary
    Binary = xBinary
    Const adLongVarChar = 201
    Set RS = CreateObject("ADODB.Stream")
    RS.Type = 1
    RS.Mode =3
    LBinary = LenB(Binary)
    
    if LBinary>0 then
        RS.Open
        RS.Write Binary
        RS.Position = 0
        RS.Type = 2
        RS.Charset = Charset
        BIN2STR = RS.ReadText 
    Else
        BIN2STR = ""
    End If
End Function

上一个：获取当前页面文件名
下一个：asp比较数字大小