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, "<", "&lt;")
        str = Replace(str, Chr(9), "&nbsp;")
        str = Replace(str, Chr(39), "'")
        str = Replace(str, Chr(34), "&quot;")
        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, "&gt;", ">")
        str = Replace(str, "&lt;", "<")
        str = Replace(str, "&nbsp;", Chr(9))
        str = Replace(str, "    ", Chr(9))
        str = Replace(str, "'", Chr(39))
        str = Replace(str, "&quot;", Chr(34))
        str = Replace(str, "", Chr(13))
        str = Replace(str, "<br/>", Chr(10))
        decodeHTML = str
End Function