亲宝软件园·资讯

展开

asp下的风讯用的SQL通用防注入模块提供了

人气:0
想了解asp下的风讯用的SQL通用防注入模块提供了的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:asp下的风讯用的SQL通用防注入模块提供了,下面大家一起来学习吧。
复制代码 代码如下:

<%
Dim FS_NoSqlHack_AllStr,FS_NoSqlHack_Str,FS_NoSqlHack_ComeUrlGet,FS_NoSqlHack_ComeUrlPost,FS_NoSqlHack_Get,FS_NoSqlHack_Post,FS_NoSqlHack_i
'On Error Resume Next
FS_NoSqlHack_AllStr="'|;| and |chr(|exec |insert |select |delete from|update |mid(|master."
FS_NoSqlHack_ComeUrlGet   = Request.QueryString
FS_NoSqlHack_ComeUrlPost  = Request.Form
FS_NoSqlHack_Str = Split(FS_NoSqlHack_AllStr,"|")
'Post
If FS_NoSqlHack_ComeUrlPost<>"" then
 For Each FS_NoSqlHack_Post In Request.Form
  For FS_NoSqlHack_i = 0 To Ubound(FS_NoSqlHack_Str)
   If Instr(LCase(Request.Form(FS_NoSqlHack_Post)),FS_NoSqlHack_Str(FS_NoSqlHack_i))<>0 Then
    Response.Write("Error!!")
    Response.End
   End if
  Next
 Next
End if
'Get
If FS_NoSqlHack_ComeUrlGet<>"" then 
 For Each FS_NoSqlHack_Get In Request.QueryString
  For FS_NoSqlHack_i = 0 To Ubound(FS_NoSqlHack_Str)
   If Instr(LCase(Request.QueryString(FS_NoSqlHack_Get)),FS_NoSqlHack_Str(FS_NoSqlHack_i))<>0 Then
    Response.Write("Error!!")
    Response.End
   End if
  Next
 Next
End if
%>

加载全部内容

相关教程
猜你喜欢
用户评论