asp自定义函数:替换文本中的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
这两个函数也是一对逆向操作。很多人都问到自己提交的文章怎么没有换行了，上面的 encodeHTML 就能帮上忙。一般大家都写作 HTMLEncode，这里是为了统一命名(并且区别一 Server 方法)，所以写作 encodeHTML。另外，有一个，Server.HTMLEncode，功能相似，只是一般自己编写的函数更加灵活。
本文主题asp自定义函数:替换文本中的html标记
