asp，Function RemoveHTMLTags(strInput)， Dim objRegExp, strOutput， Set objRegExp = New RegExp， With objRegExp， .Pattern = "]+>"， .IgnoreCase = True， .Global = True， End With， strOutput = objRegExp.Replace(strInput, "")， RemoveHTMLTags = strOutput， Set objRegExp = Nothing，End Function，`，，这个函数 RemoveHTMLTags 接受一个字符串参数 strInput`，并返回去除所有 HTML 标签后的纯文本字符串。