![[商易网络]成都专业网站建设服务公司！致力于最顶尖的企业品牌网站设计|成都企业网站建设|成都电子商务网站制作|成都政府网站建设|成都私人做网站|成都建站工作室|免费建网站！](/templets/sunnyi/images/logo.jpg){kind=logo}
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网站优化，网站推广，网站策划以及外贸网站建设与网络营销免费咨询等服务；我们能让企业品牌更有力量，咨询热线：400-888-5594