'==================================================

'函数名：BytesToBstr

'作用：将获取的源码转换为中文

'参数：Body------要转换的变量

'参数：Cset------要转换的类型

'==================================================

FunctionBytesToBstr(Body,Cset)

DimObjstream

SetObjstream=Server.CreateObject("adodb.stream")

objstream.Type=1

objstream.Mode=3

objstream.Open

objstream.Writebody

objstream.Position=0

objstream.Type=2

objstream.Charset=Cset

BytesToBstr=objstream.ReadText

objstream.Close

setobjstream=nothing

EndFunction