祁华路300弄汇枫景苑:谁能给我解释一下这个函数，谢谢了

来源：百度文库编辑：中科新闻网时间：2024/04/30 00:13:01

Function BytesToBstr(strBody,CodeBase)
dim objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
set objStream = nothing
End Function
希望能一句一句的说明一下，谢谢了

创建一个流对象，并设置相关属性。
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3

读写文件
bjStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText

关闭释放流对象
objStream.Close
set objStream = nothing

去你的!!!!!!!!!!!!

谁能给我解释一下这个函数，谢谢了谁能给我解释一下这个程序?? 谁能给我解释一下这个外号函数是什么谁能给解释一下谁帮我解释一下这个函数？请给我解释一下这个笑话，谢谢了能帮我解释一下这个函数意思吗请问谁认识这个字？能给我解释一下吗？谁能给解释一下我这个的路由表谁能给我解释一下这个体检报告？