自己写的HTMLEncode和HTMLDecode函数
1.HTMLEncode函数：除了server.htmlencode的所有功能以外，还有转化回车和空格的功能，可以将textarea中输入的文本按照原样在html中显示
代码如下：
function HTMLEncode(fString)
fString = replace(fString, "> ", "> ")
fString = replace(fString, " < ", "< ")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(34), "" ")
fString = Replace(fString, CHR(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, "> ", "> ")
fString = replace(fString, "< ", " < ")
fString = Replace(fString, " ",chr(32))
fString = Replace(fString, "" ",chr(34))
fString = Replace(fString, "' ",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
