ASP版UTF-8轉(zhuǎn)GB2312的函數(shù)，在同一個頁面內(nèi)完美實(shí)現(xiàn)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