'================================================== '函数名：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