Code '一段ASP过滤HTML的ASP函数 public Function RemoveHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp     objRegExp.IgnoreCase = True     objRegExp.Global = True     objRegExp.Pattern = "<.+?>"     strOutput = objRegExp.Replace(strHTML, "")     strOutput = Replace(strOutput, "<", "〈")     strOutput = Replace(strOutput, ">", "〉")     RemoveHTML = strOutput   Set objRegExp = Nothing End Function