过滤js脚本,防止恶意广告

 '------------------------------------------------
'FilterJS(strHTML)
'过滤js脚本,防止恶意广告
'------------------------------------------------
Function FilterJS(byval strHTML)
 Dim objReg,strContent  
 If IsNull(strHTML) OR strHTML="" Then Exit Function  
 Set objReg=New RegExp
 objReg.IgnoreCase =True
 objReg.Global=True
 objReg.Pattern="(&#)"
 strContent=objReg.Replace(strHTML,"")
 objReg.Pattern="(function|meta|value|window/.|script|js:|about:|file:|Document/.|vbs:|frame|cookie)"
 strContent=objReg.Replace(strContent,"")
 objReg.Pattern="(on(finish|mouse|Exit=|error|click|key|load|focus|Blur))"
 strContent=objReg.Replace(strContent,"")
 FilterJS=strContent
 strContent=""
 Set objReg=Nothing  
End Function