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