进一步求解:

900126 2005-01-11 11:38:45
我在这里提出的问题已经有答案:
http://community.csdn.net/Expert/topic/3710/3710975.xml?temp=.6922113
通过一个URL能够取得信息并还原成文本。但还原过程是一个字节一个字节来分析计算的,如果内容比较多,速度就太慢,是否可以通过一个函数,把字节数组变成文本呢?
在VB里,可以通过STRCONV函数来转换,而ASP里不支持该函数,有没有SERVER函数能够快速解析实现字节到文本的转换?
...全文
65 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zzy0000 2005-01-14
mark
  • 打赏
  • 举报
回复
900126 2005-01-14
好吧,我试一下
  • 打赏
  • 举报
回复
meizz 2005-01-11
'---- StreamTypeEnum Values ----
'Const adTypeBinary = 1
'Const adTypeText = 2

'---- SaveOptionsEnum Values ----
'Const adSaveCreateNotExist = 1
'Const adSaveCreateOverWrite = 2

Function Bytes2bStr(vin)
Dim BytesStream,TempFile,StringReturn

TempFile = Server.MapPath("tempNews.asp") '定义一个临时文件

Set BytesStream = Server.CreateObject("ADODB.Stream") '建立一个流对象
With BytesStream
.Type = adTypeBinary '设置流对象的类型为字节流
.Open '打开流对象
.Write vin '把vin写入流对象中
.SaveToFile TempFile,adSaveCreateOverWrite '把流对象的内容写入临时文件,如文件存在就覆盖
.Close '关闭流对象

.Type = adTypeText '设置流对象的类型为字符流
.Charset = "GB2312" '设置流对象的编码方式为GB2312
.Open '打开流对象
.LoadFromFile TempFile '按指定的编码方式从刚才的临时文件中读取内容到流对象
StringReturn = .ReadText '把流对象的内容保存在StringReturn变量中
.close '关闭流对象
End With
Set BytesStream = Nothing '销毁流对象

Bytes2bStr = StringReturn
End Function
  • 打赏
  • 举报
回复
hackate 2005-01-11
不知道呢,帮你顶!
  • 打赏
  • 举报
回复
meizz 2005-01-11
通过这种 stream + temp file 方式比原来的字节处理, 大概快一百倍吧.
你自己要操作字节可以用 AscB() 和 ChrB()
  • 打赏
  • 举报
回复
900126 2005-01-11
或者读出文件时,就使用文本的方式。有办法没有?
  • 打赏
  • 举报
回复
900126 2005-01-11
又是ADODB,又是临时文件,恐怕比循环还要慢吧?

有没有一个函数,把字节转换成字符串呢。
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2005-01-11 11:38
社区公告
暂无公告