ASP过滤script脚本的正则函数_ASP教程_编程技术

2013-12-19 13:00:13 [小大] 已经帮助：人解决问题

'ASP过滤script脚本的正则函数，webjx.com整理
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