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

‘================================================== ‘函数名：BytesToBstr ‘作  用：将获取的源码转换为中文 ‘参  数：Body ——要转换的变量 ‘参  数：Cset ——要转换的类型 ‘================================================== Function BytesToBstr(Body,Cset)    Dim Objstream    Set Objstream = Server.CreateObject(“adodb.stream”)    objstream.Type