Deux fonctions sur ASP pour empêcher les attaques par injection SQL

'===========================
'过滤提交表单中的SQL
'===========================
fonction ForSqlForm()
dim fqys,errc,i,articles
obscurci rien(18)
nothis(0)="utilisateur net"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

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

nothis(4)="administrateurs de groupes locaux nets"

nothis(5)="select"

nothis(6)="count"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis( 11)=":"

nothis(12)=""""

notthis(13)="insérer"

nothis(14)="supprimer"

nothis(15)="drop"

nothis(16)="tronquer"

nothis(17 )="de"

rien(18)="%"

'nothis(19)="@"

errc=false

pour i= 0 à ubound(nothis)
pour chaque élément de la demande.Formulaire
si instr(request.Form(items),nothis(i))<>0 alors
réponse.write("<div>")
réponse.write("你所填写的信息:" & server.HTMLEncode(request.Form(items)) & "<br>含非法字符:" & nothis(i))
réponse.write("</div>")
réponse.write("对不起,你所填写的信息含非法字符！<a href=""#"" onclick=""history.back()"">返回</a>")
réponse.Fin()
finir si
suivant
suivant
fonction de fin
'===========================
'过滤查询中的SQL
'===========================
fonction ForSqlInjection()
dim fqys,errc,je
obscurci rien(19)
fqys = requête.ServerVariables("QUERY_STRING")
nothis(0)="utilisateur net"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

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

nothis(4)="administrateurs de groupes locaux nets"

nothis(5)="select"

nothis(6)="count"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis( 11)=":"

nothis(12)=""""

notthis(13)="insérer"

nothis(14)="supprimer"

nothis(15)="drop"

nothis(16)="tronquer"

nothis(17 )="de"

rien(18)="%"

nothis(19)="@"

errc=false

pour i= 0 à ubound(nothis)

si instr(FQYs,nothis(i))<>0 alors

errc=true

end if

next

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

fin si

fonction de fin