'=========================================================='함수 명:BytesToBstr'작 사용:가 져 온 원본 코드 를 중국어'참조'로 변환 합 니 다. 수:Body ------변환 할 변수 수:Cset ------변환 할 유형'================================================================================== 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
