解决asp utf 8 access中文乱码一例

 文件头用了
<%@Language="VBScript" CodePage="65001"%>
文件本身已经是Utf-8的编码了
提交过到Access库中怎么都是 “&#20135;&#21697;&#20171;&#32461 ”这样的编码
一步步分析，不存库直接输出，也是这样的编码。想来跟Access无关了。
相于迷惑，后来重新建一个表单元，提交，输出结果，编码正常
对比之下发现，原来的提交的表单数据都用了Server.HTMLEncode（）这个函数处理过，去掉就不会被编码了。
找到原因，在文件头用<%@Language="VBScript" CodePage="65001"%>定义字符集的时候，Server.HTMLEncode（）会将中文转成对应的10进制代码。
解决方法：不用Server.HTMLEncode（），自己定义一个：
 '' 替换Server.HTMLEncode，避免对utf-8进行编码
'' ＆要换成半角的&
function HTMLEncode(Str)
Str = Replace(Str, """", "＆quot;", 1, -1, 1)
Str = Replace(Str,"<","＆lt;", 1, -1, 1)
Str = Replace(Str,">","＆gt;", 1, -1, 1)
HTMLEncode = Str
end function