全面的asp防CC攻击代码分享

1. 代码如下:
   
2. 
   
3. <%
   
4. Dim CC_Info(4),strInfo,strTemp
   
5. If Session("CC_Info") = "" Then
   
6. CC_Info(0) = "cclog.txt" '日志文件名
   
7. CC_Info(1) = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   
8. CC_Info(2) = Request.ServerVariables("REMOTE_ADDR")
   
9. CC_Info(3) = 10 'N秒内禁止刷新当前页面
   
10. CC_Info(4) = "badip.txt" 'IP黑名单文件名
    
11. Session("CC_Info") = CC_Info(0) &"|"& CC_Info(1) &"|"& CC_Info(2) &"|"& CC_Info(3) &"|"& CC_Info(4)
    
12. Else
    
13. strInfo = Split(Session("CC_Info"),"|")
    
14. CC_Info(0) = strInfo(0)
    
15. CC_Info(1) = strInfo(1)
    
16. CC_Info(2) = strInfo(2)
    
17. CC_Info(3) = strInfo(3)
    
18. CC_Info(4) = strInfo(4)
    
19. End If
    
20. 
    
21. Const chkRefresh = 1 '0关闭防刷新
    
22. Const chkProxy = 1 '0关闭代理验证
    
23. Const chkBadIP = 1 '0关闭IP黑名单
    
24. 
    
25. If Session("BadIP") = "" Then
    
26. strInfo = ReadFile(CC_Info(4))
    
27. If strInfo = "" Then strInfo = "chinavb.net"
    
28. Session("BadIP") = strInfo
    
29. Else
    
30. strInfo = Session("BadIP")
    
31. End If
    
32. 
    
33. '/*第一层判断，N秒内禁止刷新*/
    
34. If chkRefresh = 1 Then
    
35. If Session("RefreshTime")="" Then
    
36. Session("RefreshTime")=Now()
    
37. Else
    
38. If DateDiff("s", Session("RefreshTime"), Now()) < CInt(CC_Info(3)) Then
    
39. Response.Write("系统繁忙，请稍候再试！错误代码001")
    
40. Response.End()
    
41. Else
    
42. Session("RefreshTime")=Now()
    
43. End If
    
44. End If
    
45. End If
    
46. 
    
47. '/*第二层判断，代理禁止查看*/
    
48. If chkProxy = 1 Then
    
49. If CC_Info(1) <> "" Then
    
50. If InStr(strInfo,CC_Info(1)) = 0 Then
    
51. strTemp = CC_Info(1) & vbCrLf
    
52. If InStr(strInfo,CC_Info(2)) = 0 Then
    
53. strTemp = strTemp & "[" & CC_Info(2) & "]" & vbCrLf
    
54. End If
    
55. SaveLog CC_Info(4),strTemp
    
56. strInfo = strInfo & strTemp
    
57. Session("BadIP") = strInfo
    
58. End If
    
59. '记录CC攻击日志
    
60. SaveLog CC_Info(0),CC_Info(1) & "["& CC_Info(2) & "]" & Now() &vbCrLf
    
61. Response.Write("系统繁忙，请稍候再试！错误代码002")
    
62. Response.End()
    
63. End If
    
64. End If
    
65. 
    
66. '/*第三层判断，IP黑名单禁止查看*/
    
67. If chkBadIP = 1 Then
    
68. If InStr(strInfo,CC_Info(2))>0 Then
    
69. Response.Write("系统繁忙，请稍候再试！错误代码003")
    
70. Response.End()
    
71. End If
    
72. End If
    
73. 
    
74. 'ForReading=1,ForWriting=2,ForAppending=8
    
75. Function SaveLog(filename, filecontent)
    
76. On Error Resume Next
    
77. Dim fso, thisfile
    
78. filename = Server.MapPath(filename)
    
79. Set fso = CreateObject("Scripting.FileSystemObject")
    
80. If Err <> 0 Then
    
81. Response.Write("写入文件"&filename&"失败，可能您的系统不支持FSO！")
    
82. Response.End()
    
83. End If
    
84. Set thisfile = fso.OpenTextFile(filename, 8, True)
    
85. thisfile.write (filecontent)
    
86. thisfile.Close
    
87. Set fso = Nothing
    
88. End Function
    
89. 
    
90. Function ReadFile(filename)
    
91. On Error Resume Next
    
92. Dim fso, thisfile
    
93. Set fso = CreateObject("Scripting.FileSystemObject")
    
94. If Err <> 0 Then
    
95. Response.Write("读取文件"&filename&"失败，可能您的系统不支持FSO！")
    
96. Response.End()
    
97. End If
    
98. Set thisfile = fso.OpenTextFile(Server.MapPath(filename), 1, True)
    
99. ReadFile = thisfile.ReadAll
    
100. thisfile.Close
     
101. Set thisfile = Nothing
     
102. Set fso = Nothing
     
103. End Function
     
104. %>

复制代码