asp提取内容简介,如果提出不带html格式的纯文本呀。<%=left(trim(rs("Content")),80)%>
展开全部
要过滤html格式可以用这个函数:
<%
'这个函数是实现过滤html的功能
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
'调用方法为: <%=RemoveHTML(trim(rs("Content")))%>
%>
<%
'这个函数是实现过滤html的功能
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
'调用方法为: <%=RemoveHTML(trim(rs("Content")))%>
%>
追问
只过滤一次好像
追答
你可以在过滤的字符里添加些自己要过滤的东西啊。。。具体你自己去测试吧
objRegExp.Pattern = "" 在这里面添加更多匹配的字符
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询