下面是一个去掉超链接的例子,改变一下,可以去掉其他的,如script、div、span等html代码
<p><a href='1.html'>11111</a></p><p>2222</p> <p> <a href='2.html'>3333</a></p><p>44444</p> 想得到的结果是: <p>11111</p><p>2222</p><p>3333</p><p>4444</p> |
| <% Function regExReplace(sSource,patrn, replStr) Dim regEx, str1 str1 = sSource Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True regExReplace = regEx.Replace(str1, replStr) End Function
dim c1,c2 c1="<p><a href='1.html'>11111</a></p><p>2222</p> <p> <a href='2.html'>3333</a></p><p>44444</p> " c2=regExReplace(c1,"<a.*?>|</a>","") response.Write(c2) %> |