ASP过滤script脚本的正则函数
function DelJs(str)
Dim objRegExp
Set objRegExp=New RegExp
设置是否区分字符大小写true表示忽略大小写
objRegExpIgnoreCase=True
设置是否全局匹配True表示全局匹配
objRegExpGlobal=True
objRegExpPattern="<script+?</script>"
DelJs=objRegExpReplace(str"")
set objRegExp=nothing
end function
