进一步求解：

[900126]

我在这里提出的问题已经有答案：
http://community.csdn.net/Expert/topic/3710/3710975.xml?temp=.6922113
通过一个URL能够取得信息并还原成文本。但还原过程是一个字节一个字节来分析计算的，如果内容比较多，速度就太慢，是否可以通过一个函数，把字节数组变成文本呢？
在VB里，可以通过STRCONV函数来转换，而ASP里不支持该函数，有没有SERVER函数能够快速解析实现字节到文本的转换？

[900126]

又是ADODB，又是临时文件，恐怕比循环还要慢吧？

有没有一个函数，把字节转换成字符串呢。

• 打赏
• 举报

回复 赞

[900126]

或者读出文件时，就使用文本的方式。有办法没有？

• 打赏
• 举报

回复 赞

[meizz]

通过这种 stream + temp file 方式比原来的字节处理, 大概快一百倍吧.
你自己要操作字节可以用 AscB() 和 ChrB()

• 打赏
• 举报

回复 赞

[hackate]

不知道呢，帮你顶！

• 打赏
• 举报

回复 赞

[meizz]

'---- 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

• 打赏
• 举报

回复 赞

[900126]

好吧，我试一下

• 打赏
• 举报

回复 赞

[zzy0000]

mark

• 打赏
• 举报

回复 赞