asp过滤javascript脚本
作者:admin 日期:2007-11-07
Function CheckScript(Content)
Dim oregExp,oMatch,spamCount
Set oregExp = New Regexp
oRegExp.IgnoreCase = True
oRegExp.Global = True
oRegExp.pattern ="<script.+?/script>"
Content=oRegExp.replace(Content,"")
Set oregExp=Nothing
End Function
Dim oregExp,oMatch,spamCount
Set oregExp = New Regexp
oRegExp.IgnoreCase = True
oRegExp.Global = True
oRegExp.pattern ="<script.+?/script>"
Content=oRegExp.replace(Content,"")
Set oregExp=Nothing
End Function
评论: 0 | 引用: 0 | 查看次数: 2600
发表评论
广告位