现在黑客经常测试网站，一些网站经常被各种注入，为程序员的成长提供了比较紧迫的环境，所以大家在写程序的时候一定要注意网站安全问题
代码如下:
<%
‘==============================================================检查提交数据合法性
Function CheckInput()
‘——–定义部份——————
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
‘自定义需要过滤的字串,用 “|” 分隔
Fy_In = “‘|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare”
Fy_Inf = split(Fy_In,”|”)
‘——–POST部份——————
If Request.Form “” Then
For Each Fy_Post In Request.F
‘==============================================================检查提交数据合法性
Function CheckInput()
‘——–定义部份——————
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql
‘自定义需要过滤的字串,用 “|” 分隔
Fy_In = “‘|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare”
Fy_Inf = split(Fy_In,”|”)
‘——–POST部份——————
If Request.Form “” Then
For Each Fy_Post In Request.F
来源gao!daima.com搞$代!码网
orm
For Fy_Xh = 0 To Ubound(Fy_Inf)
If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh)) 0 Then
Echo “”
Response.End
End If
Next
Next
End If
‘———————————-
‘——–GET部份——————-
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
Echo “”
Response.End
End If
Next
Next
End If
End Function
%>
以上就是ASP 非法字符过滤函数的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：ASP 非法字符过滤函数
转载请注明原文链接：ASP 非法字符过滤函数
