91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

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