http://pixy.cn/utf8.asp
無論網頁是G2312還是其他編碼將漢字轉換后都可以正常顯示
例子：“漢字”轉換后為： 汉字
寫入庫為汉字這種碼需要保存頁為：
CODEPAGE="65001"
Session.CodePage=65001
Response.CharSet="UTF-8"
還要使用：server.HTMLEncode 如：
content=server.HTMLEncode(request.form("content"))
server.HTMLEncode把特殊字符也做了轉換所以要：
'=====反轉換HTML代碼=====
Function HTMLDecode(ByVal reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, "<", "<")
Str = Replace(Str, "&", "&")
Str = Replace(Str, " ", CHR(9))
Str = Replace(Str, "'", CHR(39))
Str = Replace(Str, """, CHR(34))
Str = Replace(Str, "", CHR(13))
'Str = Replace(Str, "<br />", CHR(10))
HTMLDecode = Str
End If
End Function