一聚教程网:一个值得你收藏的教程网站

热门教程

asp 去除所有html标签正则表达式

时间:2022-07-02 23:08:50 编辑:袖梨 来源:一聚教程网


Function RemoveSpan(byval strContent)
 Dim objReg ,strTmp
 If strContent="" OR ISNull(strContent) Then Exit Function
  
 Set objReg=new RegExp
 objReg.IgnoreCase =True
 objReg.Global=True
 objReg.Pattern="]*)>|"
 strTmp=objReg.Replace(strContent, "")
 Set objReg=Nothing
 RemoveSpan=strTmp
 strTmp=""
End Function

Function RemoveHtml(byval strContent)
 Dim objReg ,strTmp
 If strContent="" OR ISNull(strContent) Then Exit Function
  
 Set objReg=new RegExp
 objReg.IgnoreCase =True
 objReg.Global=True
 objReg.Pattern="<(.[^>]*)>"
 strTmp=objReg.Replace(strContent, "|")
 Set objReg=Nothing
 RemoveHtml=strTmp
 strTmp=""
End Function

热门栏目