ASP用什么语句,可以读纯文本内容

来源:百度知道 编辑:UC知道 时间:2024/09/21 06:30:24
我是用web编辑器把文章内容编辑了,存在数据库中,这里面是有html代码的,如字号,换行,我想问一下,我怎么能把这些HTML代码去掉,读文字,我想作一个小的内容提取!

过滤HTML代码
<%Function htmlDecode(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
htmlDecode=strHTML
Set objRegExp = Nothing
End Function
%>

调用函数