asp中除去html代码的函数(用正则表达式)

function clearHTMLCode(Code) Dim objRegExp set objRegExp = new RegExp objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global=True '全字段有效,否则只是替换第一个符合的字符串 objRegExp.Pattern="<[^<>]+>" '以"<"开始">"结束的中间不包含"<",">"字符,+号表示贪婪匹配,尽可能多的[^<>]字符. If objRegExp.test(Code) Then Code = objRegExp.Replace(Code,"") End If set objRegExp = nothing Code = Replace(Code, " ", "") clearHTMLCode= Code end function 这个是关键 objRegExp.Pattern="<[^<>]+>"