zoukankan
html css js c++ java
防止SQL注入ASP代码
<%
'
--------定义部份------------------
Dim
Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
'
自定义需要过滤的字串,用 "枫" 分隔
Fy_In
=
"
'枫;枫and枫exec枫insert枫select枫delete枫update枫count枫*枫%枫chr枫mid枫master枫truncate枫char枫declare
"
Fy_Inf
=
split
(Fy_In,
"
枫
"
)
If
Request.Form
<>
""
Then
For
Each
Fy_Post In Request.Form
For
Fy_Xh
=
0
To
Ubound
(Fy_Inf)
If
Instr
(
LCase
(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))
<>
0
Then
Response.Write
"
<Script Language=JavaScript>alert('提示:您想通过SQL注入↓\n\n请您马上停止这种非法行为,您的IP已被我们的系统记录,查明以后我们将移交公安机关严肃处理!');</Script>
"
Response.Write
"
非法操作!系统做了如下记录↓<br>
"
Response.Write
"
操作IP:
"
&
Request.ServerVariables(
"
REMOTE_ADDR
"
)
&
"
<br>
"
Response.Write
"
操作时间:
"
&
Now
&
"
<br>
"
Response.Write
"
操作页面:
"
&
Request.ServerVariables(
"
URL
"
)
&
"
<br>
"
Response.Write
"
提交方式:POST<br>
"
Response.Write
"
提交参数:
"
&
Fy_Post
&
"
<br>
"
Response.Write
"
提交数据:
"
&
Request.Form(Fy_Post)
Response.End
End
If
Next
Next
End
If
If
Request.QueryString
<>
""
Then
For
Each
Fy_Get In Request.QueryString
For
Fy_Xh
=
0
To
Ubound
(Fy_Inf)
If
Instr
(
LCase
(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))
<>
0
Then
Response.Write
"
<Script Language=JavaScript>alert('提示:您想通过SQL注入↓\n\n请您马上停止这种非法行为,您的IP已被我们的系统记录,查明以后我们将移交公安机关严肃处理!');</Script>
"
Response.Write
"
非法操作!我们已经给你做了如下记录↓<br>
"
Response.Write
"
操作IP:
"
&
Request.ServerVariables(
"
REMOTE_ADDR
"
)
&
"
<br>
"
Response.Write
"
操作时间:
"
&
Now
&
"
<br>
"
Response.Write
"
操作页面:
"
&
Request.ServerVariables(
"
URL
"
)
&
"
<br>
"
Response.Write
"
提交方式:GET<br>
"
Response.Write
"
提交参数:
"
&
Fy_Get
&
"
<br>
"
Response.Write
"
提交数据:
"
&
Request.QueryString(Fy_Get)
Response.End
End
If
Next
Next
End
If
%>
查看全文
相关阅读:
基础技术
Luogu1438 无聊的数列(线段树)
树状数组从入门到入土
左偏树
PA2014-Final Zarowki(堆)
BZOJ1455罗马游戏
【小米oj】 海盗分赃
【小米oj】 最少交换次数
【小米oj】 大胃王的烦恼
【小米oj】 不一样的排序
原文地址:https://www.cnblogs.com/ryb/p/357804.html
最新文章
ROSservice 通信方式
ROStopic 通信方式
美团CodeM资格赛第二题
求最值背景下动态删除线段树节点
微软大楼设计方案(中等) 推公式+RMQ问题
训练指南某一题的比例缩放
计蒜客第五场 UCloud 的安全秘钥(中等) (尺取游标法
计蒜客 第四场 C 商汤科技的行人检测(中等)平面几何好题
51nod1459 带权最短路
51nod 1073约瑟夫环 递归公式法
热门文章
04:数组逆序重放
1312:【例3.4】昆虫繁殖
1186:出现次数超过一半的数
1185:单词排序
归并排序挖坑法
快速排序
桶排序
冒泡排序
选择排序
归并排序
Copyright © 2011-2022 走看看