zoukankan      html  css  js  c++  java
  • 利用ADODB.Stream实现 Bytes到String的指定编码的转换

    ''' Byte流到Char流的转换函数
    Function Bytes2BSTR(vin)
        Bytes2BSTR 
    = Bytes2Str(vin,"utf-8")
    End Function

        
    Function Bytes2Str(vin,charset)
            
    Dim ms,strRet
            
    Set ms = Server.CreateObject("ADODB.Stream")    '建立流对象
            ms.Type = 1             ' Binary
            ms.Open                    
            ms.Write vin            
    '把vin写入流对象中
            
            ms.Position 
    = 0         '设置流对象的起始位置是0 以设置Charset属性
            ms.Type = 2              'Text
            ms.Charset = charset    '设置流对象的编码方式为 charset

            strRet 
    = ms.ReadText    '取字符流
            ms.close                '关闭流对象
            Set ms = nothing
            Bytes2Str 
    = strRet
        
    End Function
        
    Function Str2Bytes(str,charset)
            
    Dim ms,strRet
            
    Set ms = CreateObject("ADODB.Stream")    '建立流对象
            ms.Type = 2             ' Text
            ms.Charset = charset    '设置流对象的编码方式为 charset
            ms.Open                    
            ms.WriteText str            
    '把str写入流对象中
            
            ms.Position 
    = 0         '设置流对象的起始位置是0 以设置Charset属性
            ms.Type = 1              'Binary

            vout 
    = ms.Read(ms.Size)    '取字符流
            ms.close                '关闭流对象
            Set ms = nothing
            Str2Bytes 
    = vout
        
    End Function
    QQ:273352165 evlon#126.com 转载请注明出处。
  • 相关阅读:
    我常用的find命令
    Linux压缩和解压汇总
    windows下bat批处理实现守护进程
    windows2003批量添加和导出所有ip
    bat批量去除文件首行和合并到文件
    windows下批量删除文件
    windows添加和删除服务
    【转】自动实时监控Windows2003服务器终端登录并发邮件和发短信通知
    设置windows网络连接别名和linux网络连接别名
    我常用的crontab命令
  • 原文地址:https://www.cnblogs.com/evlon/p/381481.html
Copyright © 2011-2022 走看看