高分请教：如何替换内容里面的除了空格和标点符号以外的所有html代码？

[kkkuuu]

如何替换内容里面的除了空格和标点符号以外的所有html代码，包括table，<br>等？

[猫已经找不回了]

具体点吧？innerhtml替换？

[hookee]

<%

Function stripHTML(strHTML)
  Dim objRegExp, strOutput
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|\n)+?>"
  strOutput = objRegExp.Replace(strHTML, "")
  strOutput = Replace(strOutput, "<", "<")
  strOutput = Replace(strOutput, ">", ">")
  stripHTML = strOutput
  Set objRegExp = Nothing
End Function

%>

[一把编程的菜刀]

Function stripHTML(strHTML)

  Dim objRegExp, strOutput
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<\/?[^<>]+>"
  strOutput = objRegExp.Replace(strHTML, "")
  stripHTML = strOutput
  Set objRegExp = Nothing
End Function