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, " ", chr(32))
fstring = replace(fstring, " ", chr(9))
fstring = replace(fstring, "&quot;", chr(34))   ' 双引号过滤
fstring = replace(fstring, chr(39), "&#39;")
fstring = replace(fstring, "&amp;", "&")
fstring = replace(fstring,"<br>", CHR(13))
htmldecode = fstring
end function