ASP過濾script腳本的正則函數

　　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

From:http://tw.wingwit.com/Article/program/net/201311/14045.html