ASP实现摘要功能
Response.write left(Removehtml(rs("content")),100)
Function RemoveHTML(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
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
评论内容:发表评论不能请不要超过250字;发表评论请自觉遵守互联网相关政策法规。