ASP上两个防止SQL注入式攻击Function

'==========================
'过滤提交表单中的SQL
'==========================
函数 ForSqlForm()
暗淡的 FQYS，错误，我，项目
昏暗无此(18)
nothis(0)="网络用户"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

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

nothis(4)="网络本地组管理员"

nothis(5)="选择"

nothis(6)="计数"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis( 11)=":"

nothis(12)=""""

nothis(13)="插入"

nothis(14)="删除"

nothis(15)="删除"

nothis(16)="截断"

nothis(17) )="来自"

nothis(18)="%"

'nothis(19)="@"

errc=false

对于 i= 0 到 ubound(nothis)
对于 request.Form 中的每个项目
if instr(request.Form(items),nothis(i))<>0 then
响应.write("<div>")
response.write("你所填写的信息:" & server.HTMLEncode(request.Form(items)) & "<br>含非法字符:" & nothis(i))
响应.write("</div>")
response.write("抱歉，您所填写的信息含非法字符！<a href=""#"" onclick=""history.back()"">返回</a>")
响应.End()
结束如果
下一个
下一个
结束函数
'==========================
'过滤查询中的SQL
'==========================
函数 ForSqlInjection()
昏暗的 fqys,errc,i
昏暗无此(19)
fqys = request.ServerVariables("QUERY_STRING")
nothis(0)="网络用户"

nothis(1)="xp_cmdshell"

nothis(2)="/add"

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

nothis(4)="网络本地组管理员"

nothis(5)="选择"

nothis(6)="计数"

nothis(7)="asc"

nothis(8)="char"

nothis(9)="mid"

nothis(10)="'"

nothis( 11)=":"

nothis(12)=""""

nothis(13)="插入"

nothis(14)="删除"

nothis(15)="删除"

nothis(16)="截断"

nothis(17) )="来自"

nothis(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>"
response.end

结束 if

结束函数