ASP中利用ADODB.Stream对象将字节流转换为字符流

作者:Madpolice 时间:2008-06-07 08:56:00 

 二进制转字符串

入口参数:字节流

函数返回:字符串

Code By:Madpolice

利用 ADODB.Stream 对象,速度比原来的字符替换法快了n倍,n≈30!!)

下面的常量是函数用到的,因为我在函数外面已经定义过了,因此不在这里重复定义

'---- StreamTypeEnum Values ----
'Const adTypeBinary = 1
'Const adTypeText = 2
Function Bytes2bStr(vin)
 Dim BytesStream,StringReturn
 Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象
 With BytesStream
  .Type = adTypeText        '设置流对象的类型为字符流
  .Open                     '打开流对象
  .WriteText vin            '把vin写入流对象中
  .Position = 0             '设置流对象的起始位置是0,也就是开头
                            '这个操作必须做,为什么我也不知道,失败了n次得出的结论
          '如果不进行这个操作,下面设置Charset属性就出错
  .Charset = "GB2312"       '设置流对象的编码方式为GB2312
  .Position = 2             '设置流对象的起始位置是2(过滤掉开始的一个控制字符
          '这个控制字符是WriteText方法按默认属性Charset="Unicode"
          '读入数据的时候自动加到数据开头的,字符的值是FF3F
                            '这个控制字符占2字节,所以Position设置为2
          '表示略过2个字节,下面的ReadText方法从Position开始读数据
  StringReturn = .ReadText  '把流对象的内容保存在StringReturn变量中
  .close                    '关闭流对象
 End With
 Set BytesStream = Nothing     '销毁流对象
 Bytes2bStr = StringReturn
End Function
标签:ADODB.Stream,对象,字符,字节
0
投稿

猜你喜欢

  • 情感的容器 被寄托了的QQ2010视觉设计

    2010-02-03 14:51:00
  • 建立合理的索引提高SQL Server的性能

    2009-01-23 14:44:00
  • JS通过FSO将unicode字符写入文本

    2009-06-01 12:26:00
  • sqlserver数据库迁移后,孤立账号解决办法

    2011-10-24 20:01:40
  • sqlserver中重复数据值只取一条的sql语句

    2012-06-06 19:46:31
  • Dreamweaver技巧50问

    2008-10-16 14:00:00
  • 如何用SA-FileUp上传一个单纯的HTML文件?

    2010-05-18 18:29:00
  • js表单检测数字

    2007-10-12 13:52:00
  • 几个ASP字符串处理函数

    2008-04-23 12:55:00
  • HTML5硝烟弥漫

    2009-07-06 14:44:00
  • ASP压缩ACCESS数据库实例

    2009-01-19 11:47:00
  • 垂直栅格与渐进式行距(下)

    2009-07-09 16:52:00
  • css命名及书写规范大全

    2008-05-24 08:52:00
  • Linux环境MySQL服务器级优化讲解

    2008-12-04 17:21:00
  • XMLHTTPRequest的属性和方法简介

    2007-12-18 18:42:00
  • 自适应内容高度的收缩与展开

    2007-09-24 14:38:00
  • 最简洁的SQL多重查询的解决方案

    2005-09-12 16:31:00
  • js游戏 俄罗斯方块 源代码

    2008-01-24 13:14:00
  • 使用SqlBulkCopy时应注意Sqlserver表中使用缺省值的列

    2012-07-11 15:34:35
  • CSS关于Border你可能会不注意的东西

    2007-10-20 13:50:00
  • asp之家 网络编程 m.aspxhome.com