'函数名：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