ASP过滤HTML的通用函数

 

 

'一段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