自己写的HTMLEncode和HTMLDecode函数

1.HTMLEncode函数：除了server.htmlencode的所有功能以外，还有转化回车和空格的功能，可以将textarea中输入的文本按照原样在html中显示
代码如下：
function   HTMLEncode(fString)
fString   =   replace(fString,   "> ",   "> ")
fString   =   replace(fString,   " < ",   "&lt; ")
fString   =   Replace(fString,   CHR(32),   "&nbsp; ")
fString   =   Replace(fString,   CHR(34),   "&quot; ")
fString   =   Replace(fString,   CHR(39),   "&#39; ")
fString   =   Replace(fString,   CHR(13),   " ")
fString   =   Replace(fString,   CHR(10)   &   CHR(10),   " </P> <P> ")
fString   =   Replace(fString,   CHR(10),   " <BR> ")
HTMLEncode   =   fString
end   function
2.HTMLDecode函数：就是HTMLEncode函数的反函数，将html中的字符按照原样在textarea中显示，在修改信息时很有用
代码如下：
function   HTMLDecode(fString)
fString   =   replace(fString,   "&gt; ",   "> ")
fString   =   replace(fString,   "&lt; ",   " < ")
fString   =   Replace(fString, "&nbsp; ",chr(32))
fString   =   Replace(fString, "&quot; ",chr(34))
fString   =   Replace(fString, "&#39; ",chr(39))
fString   =   Replace(fString,   " ",   CHR(13))
fString   =   Replace(fString,   " </P> <P> ",   CHR(10)   &   CHR(10))
fString   =   Replace(fString,   " <BR> ",   CHR(10))
HTMLDecode   =   fString
end   function

转载于:https://www.cnblogs.com/naniannayue/archive/2010/08/30/1812595.html