BytesToBstr获取的源码转换为中文的代码

【编者按】网学网ASP频道为大家收集整理了“BytesToBstr获取的源码转换为中文的代码“提供大家参考，希望对大家有所帮助!

''==================================================
''函数名：BytesToBstr
''作 用：将获取的源码转换为中文
''参 数：Body ------要转换的变量
''参 数：Cset ------要转换的类型
''==================================================
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function