万能Asp防注入代码 拒绝攻击

这几天着实为sql注入漏洞伤了神，网上的代码好多不是很深奥就是麻烦。终于找到了万能防注代码，分享了，呵呵。操作简单上手，只要来个包含或放入conn.asp中，搞定。末了，估计还有一些危险字符没有放全，帮我补全一下，谢谢了!

1. <%   
2. ''''--------定义部份------------------   
3. Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr   
4. ''''自定义需要过滤的字串,用 "防" 分隔   
5. Fy_In = "''''防;防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防<防>防=防|防-防_"   
6. Fy_Inf = split(Fy_In,"防")   
7. If Request.Form<>"" Then   
8. For Each Fy_Post In Request.Form   
9. For Fy_Xh=0 To Ubound(Fy_Inf)   
10. If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then   
11. Response.Write "<Script Language=JavaScript>alert(''''网长友情提示黑客大侠↓请不要在参数中包含非法字符尝试注入攻击本站,本站做起来很不容易的.俺是菜鸟,好怕怕,放俺一马吧！给俺留言'''');</Script>"   
12. Response.Write "非法操作！本站已经给大侠您做了如下记录↓<br>"   
13. Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"   
14. Response.Write "操作时间："&Now&"<br>"   
15. Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"   
16. Response.Write "提交方式：ＰＯＳＴ<br>"   
17. Response.Write "提交参数："&Fy_Post&"<br>"   
18. Response.Write "提交数据："&Request.Form(Fy_Post)   
19. Response.End   
20. End If   
21. Next   
22. Next   
23. End If   
24. If Request.QueryString<>"" Then   
25. For Each Fy_Get In Request.QueryString   
26. For Fy_Xh=0 To Ubound(Fy_Inf)   
27. If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then   
28. Response.Write "<Script Language=JavaScript>alert(''''网长友情提示黑客大侠↓请不要在参数中包含非法字符尝试注入攻击本站,本站做起来很不容易的.俺是菜鸟,好怕怕,放俺一马吧！给俺留言'''');</Script>"   
29. Response.Write "非法操作！本站已经给大侠您做了如下记录↓<br>"   
30. Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"   
31. Response.Write "操作时间："&Now&"<br>"   
32. Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"   
33. Response.Write "提交方式：ＧＥＴ<br>"   
34. Response.Write "提交参数："&Fy_Get&"<br>"   
35. Response.Write "提交数据："&Request.QueryString(Fy_Get)   
36. Response.End   
37. End If   
38. Next   
39. Next   
40. End If   
41. %>