您现在的位置: 万盛学电脑网 >> 程序编程 >> 网络编程 >> asp编程 >> 正文

asp html转换字符程序

作者:佚名    责任编辑:admin    更新时间:2022-06-22

这是一个简单的安全过滤函数了,把html 转换字符转换成可以显示的文本了

Function HTMLDecode(reString)
 Dim Str:Str=reString
 If Not IsNull(Str) Then
  Str = Replace(Str, "&", "&")
  Str = Replace(Str, ">", ">")
  Str = Replace(Str, "&lt;", "<")
  Str = Replace(Str, "&nbsp;", CHR(32))
     Str = Replace(Str, "&nbsp;", CHR(9))
  Str = Replace(Str, "&#160;&#160;&#160;&#160;", CHR(9))
  Str = Replace(Str, "&quot;", CHR(34))
  Str = Replace(Str, "&#39;", CHR(39))
  Str = Replace(Str, "", CHR(13))
  Str = Replace(Str, "<br>", CHR(10))
  HTMLDecode = Str
 End If
End Function