Function ClearHTML(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
ClearHTML=strHTML
Set objRegExp = Nothing
End Function
'Response.write ClearHTML(rsmm("Content"))
nr=ClearHTML(rsmm("Content"))
Response.write(left(nr,80))


本站ASP从HTML中只取出文字的代码

小胖工作室是成都专业的网站制作团队，致力为企业提供高端网站建设，SEO网站优化，网站推广，IDC服务以及APP开发等服务；我们能让企业品牌更有力量，咨询热线：18280009820