Fatal编程技术网
  • encoding/
  • Encoding 如何停止Server.HtmlEncode对UTF8字符进行编码？

Encoding 如何停止Server.HtmlEncode对UTF8字符进行编码？

encoding utf-8 asp-classic

Encoding 如何停止Server.HtmlEncode对UTF8字符进行编码？,encoding,utf-8,asp-classic,html-encode,Encoding,Utf 8,Asp Classic,Html Encode,如何停止Server.HtmlEncode对UTF8字符进行编码？我将代码页设置为UTF8，但没有帮助 以下是我的测试用例： <%@CODEPAGE=65001%> <% Response.CodePage = 65001 Response.CharSet = "utf-8" %> <%=Server.HtmlEncode("русский stuff <b>bold stuff</b>")%> 但结果是： &#1088;&a

如何停止Server.HtmlEncode对UTF8字符进行编码？我将代码页设置为UTF8，但没有帮助

以下是我的测试用例：

<%@CODEPAGE=65001%>
<%
Response.CodePage = 65001
Response.CharSet = "utf-8"
%>
<%=Server.HtmlEncode("русский stuff <b>bold stuff</b>")%>
但结果是：

&#1088;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; stuff &lt;b&gt;bold stuff&lt;/b&gt;
方法转义>， 
&#1088;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081; stuff &lt;b&gt;bold stuff&lt;/b&gt;

Private Function cb_Escape(ByVal a, ByVal b, ByVal c, ByVal d)
    cb_Escape = Server.HTMLEncode(b)
End Function

Private Function HTMLEncode2(ByVal sHTML)
    Dim oReg
    Set oReg = New RegExp
        oReg.Global = True
        oReg.Pattern = "([<>""&]+)"
        HTMLEncode2 = oReg.Replace(sHTML, GetRef("cb_Escape"))
    Set oReg = Nothing
End Function

Response.Write HTMLEncode2("русский stuff <b>bold stuff</b>")