guo.asp

来自「这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链」· ASP 代码 · 共 28 行

<%
Function Filter_SQL(strData)

  Dim strFilter
  Dim blnFlag
  Dim i

  strFilter="',;,//,--,@,_,exec,declare,select,=,and,>"     '需要过滤的字符，可以自己添加，","是分隔符
  blnFlag=Flase      '过滤标志，如果产生过滤，那么就是真
  
  Dim arrayFilter
  arrayFilter=Split(strFilter,",")
  For i=0 To UBound(arrayFilter)
     If Instr(strData,arrayFilter(i))>0 Then
        blnFlag=True
        Exit For
     End If
  Next

  If blnFlag Then
     Response.Redirect "wrong.asp"
     '当发现有过滤操作时，导向一个预定页面。反正正常访问用不到的连接请求，总不是好事情。
  Else
     Filter_SQL=strData
  End If

End Function
%>