ASP 转换HTML特殊字符

最新推荐文章于 2021-05-18 14:30:54 发布

weixin_33904756

最新推荐文章于 2021-05-18 14:30:54 发布

阅读量176

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/bit5566/p/5687599.html

本文介绍了一种用于将HTML实体转换回其对应的字符的方法。该方法涵盖了常见的HTML实体，如换行、空格、引号等，并包括特殊数学符号及版权标记等。

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

 1     Function HtmlDecode(ByVal s)
 2         If Has(s) Then
 3             s = regReplace(s, "<br\s*/?\s*>", vbCrLf)
 4             s = Replace(s, "&nbsp;&nbsp; &nbsp;", Chr(9))
 5             s = Replace(s, "&quot;", Chr(34))
 6             s = Replace(s, "&nbsp;", Chr(32))
 7             s = Replace(s, "&#39;", Chr(39))
 8             s = Replace(s, "&apos;", Chr(39))
 9             s = Replace(s, "&gt;", ">")
10             s = Replace(s, "&lt;", "<")
11             s = Replace(s, "&amp;", Chr(38))
12             s = Replace(s, "&#38;", Chr(38))
13             s = Replace(s, "&times;", "×")
14             s = Replace(s, "&divide;", "÷")
15             s = Replace(s, "&frac14;", "¼")
16             s = Replace(s, "&frac12;", "½")
17             s = Replace(s, "&frac34;", "¾")
18             s = Replace(s, "&plusmn;", "±")
19             s = Replace(s, "&laquo;", "«")
20             s = Replace(s, "&raquo;", "»")
21             s = Replace(s, "&copy;", "©")
22             s = Replace(s, "&reg;", "®")
23             s = Replace(s, "&deg;", "°")
24         End If
25         HtmlDecode = s
26     End Function