asp乱码问题如何解决

在做实施过程中出现，如下情况：A系统保存了B系统（asp系统）的登录账号及密码信息，通过A系统实现单点登录B系统，但出现的为问题是：当账号信息为英文及数字时，无问题可正常登录；但当用户账号为中文时，无法登录，经测试中文变成了乱码。查阅相关资料说的在B系统（asp系统）进行编码转换，找了个转码函数如下：可实现奇数汉字的登录，偶数还是不行。望高手能帮忙解决一下不胜感激。
<%Function utf2gb(Body)
 Dim Objstream
 Set Objstream = Server.CreateObject("adodb.stream")
 objstream.Charset = "gb2312"
 objstream.Type = 2
 objstream.Mode =3
 objstream.Open
 objstream.WriteText body
 objstream.Position = 0
 objstream.Charset = "utf-8"
 objstream.Type = 2
 utf2gb = objstream.ReadText
 objstream.Close
 set objstream = nothing
End Function
%>