ASP防SQL注入示例：最新防御代码

<%
　　'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　'ASP通用防注入代码
　　'您可以把该代码COPY到头文件中.也可以单独作
　　'为一个文件存在,每次调用使用
　　'作者:y3gu - 2005-7-29
　　'http://www.dosu.cn
　　'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　Dim GetFlag Rem(提交方式)
　　Dim ErrorSql Rem(非法字符)
　　Dim RequestKey Rem(提交数据)
　　Dim ForI Rem(循环标记)
　　ErrorSql = "'~;~and~(~)~exec~update~count~*~%~chr~mid
　　~master~truncate~char~declare" Rem(每个敏感字符或者词语请使用半角 "~" 格开)
　　ErrorSql = split(ErrorSql,"~")
　　If Request.ServerVariables("REQUEST_METHOD")="GET" Then
　　GetFlag=True
　　Else
　　GetFlag=False
　　End If
　　If GetFlag Then
　　For Each RequestKey In Request.QueryString
　　For ForI=0 To Ubound(ErrorSql)
　　If Instr(LCase(Request.QueryString(RequestKey)),
　　ErrorSql(ForI))<>0 Then
　　response.write "<script>alert(""警告:\n请不要使用敏感字符"");location.href=""Sql.asp"";</script>"
　　Response.End
　　End If
　　Next
　　Next