Asp 页面 utf-8转gb2312编码

用下面的函数转换即可

Function StreamToStr(sStream)
 dim dr
 Set dr=Server.CreateObject("Adodb.Stream")
 dr.Mode=3
 dr.Type=2
 dr.Open
 dr.Charset="GB2312"
 dr.WriteText sStream
 dr.Position=0
 dr.Charset="UTF-8"
 StreamToStr=dr.ReadText
 dr.Close
 Set dr=Nothing
End Function