进一步求解:

900126 2005-01-11 11:38:45
我在这里提出的问题已经有答案:
http://community.csdn.net/Expert/topic/3710/3710975.xml?temp=.6922113
通过一个URL能够取得信息并还原成文本。但还原过程是一个字节一个字节来分析计算的,如果内容比较多,速度就太慢,是否可以通过一个函数,把字节数组变成文本呢?
在VB里,可以通过STRCONV函数来转换,而ASP里不支持该函数,有没有SERVER函数能够快速解析实现字节到文本的转换?
...全文
106 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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,又是临时文件,恐怕比循环还要慢吧?

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

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧