BytesToBstr获取的源码转换为中文的代码
摘要：'=================================================='函数名：BytesToBstr'作用...
'==================================================
'函数名：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
【BytesToBstr获取的源码转换为中文的代码】相关文章：