过滤HTML脚本

'函数名：FilterJS
'作  用：过滤HTML脚本
'参  数：strHTML ---- 被检测的HTML字串
'返回值：返回过滤后的HTML
'**************************************************
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