guo.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<%
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
%>