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

来源：互联网发布：网络普通发票系统下载编辑：程序博客网时间：2024/06/06 09:44

----------------------------------------------------------------'
'    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