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

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