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