正则表达式过滤
Function filtscript(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
strOutput=strHTML
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]*>"
strOutput = objRegExp.Replace(strOutput, "")
objRegExp.Pattern = "<\/[^>]*>"
strOutput = objRegExp.Replace(strOutput, "")
strOutput = replace(strOutput, "javascript:", "javascript :")
filtscript = strOutput
Set objRegExp = Nothing
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024