Asp常用通用函数之过滤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