ASP版UTF-8转GB2312的函数，在同一个页面内完美实现UTF-8、GB2312中文显示。

 

function utf2gb(fileContent)
 dim stm
 set stm=Server.CreateObject("adodb.stream")
 stm.Type=2
 stm.Mode=3
 stm.Charset="GB2312"
 stm.Open
 stm.WriteText fileContent
 stm.Position=0
 stm.Charset="UTF-8"
 utf2gb = stm.ReadText
 stm.Close
 set stm=nothing
End function