<%@ CODEPAGE=65001 %> <% Option Explicit Response.CodePage=65001 Response.Charset="UTF-8" Dim htmlData htmlData = Request.Form("content1") Function htmlspecialchars(str) str = Replace(str, "&", "&") str = Replace(str, "<", "<") str = Replace(str, ">", ">") str = Replace(str, """", """) htmlspecialchars = str End Function %> <%=htmlData%>

<%=htmlspecialchars(htmlData)%>
(提交快捷键: Ctrl + Enter)