ASPフィルタスクリプトの正規関数


サイトの安全を向上させるためには、SQL注入とスクリプト攻撃に注意が必要です。
この関数の方法は正則を使ってが現れるラベルグループを全部クリアすることで、ラベル内のコードも機能しなくなります。
 
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 Funtion