导读：这是一个简单的安全过滤函数了，把html 转换字符转换成可以显示的文本了Function HTMLDecode(reString)Dim Str:Str=reStringIf Not I...
这是一个简单的安全过滤函数了，把html 转换字符转换成可以显示的文本了
Function HTMLDecode(reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = Replace(Str, " ", "&")
Str = Replace(Str, ">", ">")
Str = Replace(Str, "<", "<")
Str = Replace(Str, " ", CHR(32))
Str = Replace(Str, " ", CHR(9))
Str = Replace(Str, "", CHR(9))
Str = Replace(Str, " ", CHR(34))
Str = Replace(Str, "", CHR(39))
Str = Replace(Str, "", CHR(13))
Str = Replace(Str, "<br>", CHR(10))
HTMLDecode = Str
End If
End Function
