【www.gdgbn.com--php函数】

 
 "==============================
 "函 数 名：BytesToBstr
 "作    用：转换编码函数
 "参    数：解码字符串Body，编码Cset
 "============================== 
 Private Function BytesToBstr(Body,Cset)
  Set objAdoStream = Server.CreateObject("adod"&"b.stream")
  objAdoStream.Type = 1
  objAdoStream.Mode =3
  objAdoStream.Open
  objAdoStream.Write body
  objAdoStream.Position = 0
  objAdoStream.Type = 2
  objAdoStream.Charset = Cset
  BytesToBstr = objAdoStream.ReadText
  objAdoStream.Close
  Set objAdoStream = Nothing
 End Function
 

本文来源：http://www.gdgbn.com/jiaocheng/20760/