Duas funções no ASP para evitar ataques de injeção de SQL

'==========================
'过滤提交表单中的SQL
'==========================
função ForSqlForm()
dim fqys,errc,i,itens
não escureça isso (18)
nothis(0)="net user"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

nothis(3)="exec%20master.dbo.xp_cmdshell"

nothis(4)="administradores de grupo local da rede"

nothis(5)="select"

nothis(6)="count"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis( 11)=":"

nothis(12)=""""

nothis(13)="inserir"

nothis(14)="delete"

nothis(15)="drop"

nothis(16)="truncar"

nothis(17 )="de"

notthis(18)="%"

'nothis(19)="@"

errc=false

para i= 0 para ubound(nothis)
para cada item na solicitação.Formulário
se instr(request.Form(itens),nothis(i))<>0 então
resposta.write("<div>")
response.write("你所填写的信息:" & server.HTMLEncode(request.Form(items)) & "<br>含非法字符:" & nothis(i))
resposta.write("</div>")
response.write("对不起,你所填写的信息含非法字符！<a href=""#"" onclick=""history.back()"">返回</a>")
resposta.End()
terminar se
próximo
próximo
função final
'==========================
'过滤查询中的SQL
'==========================
função ForSqlInjection()
dim fqys, err, eu
não escureça isso (19)
fqys = request.ServerVariables("QUERY_STRING")
nothis(0)="net user"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

nothis(3)="exec%20master.dbo.xp_cmdshell"

nothis(4)="administradores de grupo local da rede"

nothis(5)="select"

nothis(6)="count"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis( 11)=":"

nothis(12)=""""

nothis(13)="inserir"

nothis(14)="delete"

nothis(15)="drop"

nothis(16)="truncar"

nothis(17 )="de"

notthis(18)="%"

nothis(19)="@"

errc=false

for i= 0 to ubound(nothis)

if instr(FQYs,nothis(i))<>0 then

errc=true

end if

next

if errc then
response.write "查询信息含非法字符！<a href=""#"" onclick=""history.back()"">返回</a>"
resposta.end

fim se

função final