asp教程：正则过滤所有html内容但保留换行符

今天在工作的过程中需要这样一个功能：要过滤所有html内容但保留换行符<
br>
。看到这个需求，第一个想法就是使用正则来实现。经过在网上搜索一下，终于找到了，现在放到这里来分享。

<
%s="a<
b>
sp<
/b>
编程网<
br />
测试<
hr/>
数据<
BR>
效果<
a href='http://www.K88.NET'>
http://www.K88.NET<
/a>
<
br />
代码"response.write "替换前："&
sset rx=new RegExprx.IgnoreCase=truerx.Global=truerx.Pattern="<
br[^>
]*>
"'先替换换行为其他特殊的内容，最后再反替换回来s=rx.Replace(s,"___br___")rx.Pattern="<
[^>
]+>
"'替换所有标签s=rx.Replace(s,"")set rx=nothing'反替换换行s=replace(s,"___br___","<
br/>
")response.write "<
br>
<
br>
替换后："&
s%>

大家把这段asp保存一下，运行就能看到效果了。实际的应用中，大家可以将它保存为一个函数，放到一个公用文件中来使用。