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

internet explorer slow launchsmart card reader macamerican express corporate card benefitspalm travel micro usb cableinstall sims 2 cdbest buy hd receiverhack visa gift cardwireless mini pci cardintel next gen wireless n mini pci cardqma connectordvi to vga y cablecustom usb keysacer power supplybelkin bluetooth driversis pci ide controller windows xpairborne express caseheavy duty outdoor extension cordeee pc neweggwindows xp sd cardrepair fiber optic cablevisio computer softwarepelican wireless adaptor xbox 360wiki nbchow much is a sim card for tmobileat&t data transferwireless internet adapters for laptopscable road runnercisco wireless carddownload high quality videosverizon wireless internet card for laptopstoshiba satellite pci modem driverpc repair software5 port ethernet hubnintendo wii hdmi anschlussrogers hd box promotionpearl price guidemimo 7 usb displaylaptop computers ratingsdiagnostic policy service vistatelecommunications middle eastrca cable diagramrf frequency chartpin to 6 pin firewirewiring 13 amp socketmanual para sony ericsson w580ivga femalelaptop battery life compareftdi usb serial converter drivermediacom internet helpsatellite p200 driver Replica lv Hangbags Replica Hangbags Hangbags replica handbags replica handbags replica handbags replica handbags usb cable usb cable usb cable usb cable