字符转换与反转换函数

今天在逛论坛时发现很多人都在问有关在textarea中输入的回车在html中不能显示的问题，可能这些朋友还不知道在文本中和html中显示回车的方式是不同的，因此我找了以下两个函数供大家参考：

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