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