利用正则表达式过滤注入- -

 利用正则表达式过滤注入- -                                     

Function CheckExp(GetString)
Dim reg,max
set reg=new RegExp
reg.pattern="^script|insert|update|delete|select|\;|net user|xp_cmdshell|add|count|Asc|char|mid|drop|truncate|net localgroup"
reg.ignorecase=true
reg.global=true
max=reg.test(GetString)
if max=true then
 Response.write("您输入的数据含非法字符")
 Response.Write(BackForward)
 Response.End()
else
CheckExp=GetString
end if
end Function

调用方法 CheckExp("fsdf131")