asp中HTML编码和解码，用来替换输入内容中的HTML代码

----------------------------------------------------------------'

'
encodeHTML

' HTML 编码，替换输入内容中的 HTML 代码

' 参数：

' str
需要被编码的字符串

' 返回值：字符串
(被编码过的字符串)

'----------------------------------------------------------------'

Function
encodeHTML(ByVal str)

If IsNull(str) Then

encodeHTML =
""

Exit Function

End If str = Replace(str,
">", ">")

str = Replace(str, "<", "<")

str = Replace(str, Chr(9), " ")

str = Replace(str, Chr(39),
"'")

str = Replace(str, Chr(34), """)

str =
Replace(str, Chr(13), "")

str = Replace(str, Chr(10),
"<br/>")

encodeHTML = str

End
Function

'----------------------------------------------------------------'

'
decodeHTML

' HTML 解码，将编码过的字符串反向解码，恢复 HTML 代码

' 参数：

' str
需要被解码的字符串

' 返回值：字符串
(解码后的字符串)

'----------------------------------------------------------------'

Function
decodeHTML(ByVal str)

If IsNull(str) Then

decodeHTML =
""

Exit Function

End If

str =
Replace(str, ">", ">")

str = Replace(str, "<",
"<")

str = Replace(str, " ", Chr(9))

str =
Replace(str, " ", Chr(9))

str = Replace(str, "'",
Chr(39))

str = Replace(str, """, Chr(34))

str =
Replace(str, "", Chr(13))

str = Replace(str, "<br/>",
Chr(10))

decodeHTML = str

End Function