asp,Function RemoveHtmlTags(strInput), Dim regEx, Match, Matches, Set regEx = New RegExp, regEx.IgnoreCase = True, regEx.Global = True, regEx.Pattern = "]*>([\s\S]*?)|]*>([\s\S]*?)|]*>", Set Matches = regEx.Execute(strInput), For Each Match in Matches, strInput = Replace(strInput, Match.Value, ""), Next, RemoveHtmlTags = strInput,End Function,
`,,这个函数会移除输入字符串中的所有
,
和
`标签及其内容。