Asp HTML编码，Asp转义字符：

<%
Function EncodeHTML(str)
str = Replace(str, ">", "&gt;")
str = Replace(str, "<", "&lt;")
str = Replace(str, Chr(34), "&quot;")
EncodeHTML = str
End Function
%>

Asp HTML解码，Asp转义字符：

<%
Function DecodeHTML(str)
str = Replace(str, "&gt;", ">")
str = Replace(str, "&lt;", "<")
str = Replace(str, "&quot;", Chr(34))
DecodeHTML = str
End Function
%>