asp中HTML编码和解码，用来替换输入内容中的HTML代码_asp 能替换html的源代码-优快云博客

本文链接：https://blog.youkuaiyun.com/jinwei_zhiyuan/article/details/6035833

本文介绍了HTML编码和解码的基本方法，通过简单的VBScript函数实现字符串的安全转换，确保文本在网页中正确显示，避免了潜在的XSS攻击风险。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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