ASP過濾script腳本的正則函數，
function DelJs(str)
Dim objRegExp
Set objRegExp=New RegExp
'設置是否區分字符大小寫，true表示忽略大小寫
objRegExp.IgnoreCase=True
'設置是否全局匹配，True表示全局匹配
objRegExp.Global=True
objRegExp.Pattern="<script.+?</script>"
DelJs=objRegExp.Replace(str,"")
set objRegExp=nothing
end function
