去除iframe以及js标签...

'去除iframe标签 Function RemoveIframe(sInputStr) RemoveIframe = RemoveByRegExp("< *iframe(.|\r|\n)+?/iframe *>", sInputStr) End Function '去除js标签 Function RemoveJSCode(sInputStr) RemoveJSCode = RemoveByRegExp("< *script(.|\r|\n)+?/ *script *>", sInputStr) End Function '正则表达式 Function RemoveByRegExp(RegExpPattern, sInputStr) Dim objRegExp Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = RegExpPattern sInputStr = objRegExp.Replace(sInputStr, "") Set objRegExp = Nothing RemoveByRegExp = sInputStr End Function

转载：http://www.pccode.net/info/2010/01/28/20100128-1274.html