1. <%  
2. '==================  
3. '飛云防CC攻擊ASP程序插件  
4. '建議除必須修改的參數(shù)內(nèi)容外不要修改其他內(nèi)容  
5. '如果需要反饋錯誤或提交意見,可以到落伍(IM286.COM)聯(lián)系 “正版飛云”  
6. '==================  
7.  
8. dim FYCC_19,FYCC_20,FYCC_21,FYCC_05  
9. dim FYCC_18  
10.  
11. FYCC_05=""  
12. 'CCLog.txt存放的路徑文件夾!需要手動創(chuàng)建!建議留空  
13. '如果輸入,請在前面加上符號"/"  
14.  
15. FYCC_18=1   
16. '防刷新CC攻擊關(guān)閉與啟動,1為啟動0為關(guān)閉  
17.  
18. FYCC_17=1  
19. '防刷新禁止IP功能關(guān)閉與啟動,1為啟動0為關(guān)閉  
20.  
21. FYCC_19=10   
22. '每分鐘刷新次數(shù),將會出現(xiàn)提示  
23.  
24. FYCC_20="http://www.163.com"  
25. '被封IP后自動轉(zhuǎn)入的頁面,建議輸入存放病毒的網(wǎng)址!!!  
26.  
27. FYCC_21=21  
28. '惡意刷新幾次將禁止IP  
29.  
30. dim realip,proxy  
31. realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  
32. proxy = Request.ServerVariables("REMOTE_ADDR")  
33. if realip = "" then  
34. GetIp = proxy  
35. else  
36. GetIp = realip  
37. end if  
38.  
39. Sub FYCC_03()  
40. Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")   
41. file = server.mappath(""&FYCC_05&"/CCLog.txt")   
42. if not fsoObject.fileexists(file) then   
43. fsoObject.createtextfile file,true,false   
44. end if  
45. set tsObject = fsoObject.OpenTextFile(file,8)   
46. tsObject.Writeline " "&GetIp&""   
47. Set tsObject = Nothing   
48. Set fsoObject = Nothing   
49. End Sub  
50.  
51. if FYCC_18<>0 then  
52. if FYCC_17<>0 then  
53. if minute(now())>-1 and minute(now())<4 then  
54. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
55. Set objCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True)  
56. objCountFile.Write " "  
57. objCountFile.Close  
58. Set objCountFile=Nothing  
59. Set objFSO = Nothing  
60. end if  
61. Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")   
62. file = server.mappath(""&FYCC_05&"/CCLog.txt")   
63. if not fsoObject.fileexists(file) then   
64. fsoObject.createtextfile file,true,false   
65. if err.number<>0 then  
66. response.write "您的空間不支持FSO，請同您的空間商聯(lián)系，或者查看相關(guān)權(quán)限設(shè)置"  
67. response.end  
68. end if  
69. end if  
70. Set objCountFile = fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True)  
71. If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll  
72. Set objCountFile = Nothing   
73. if instr(fdata,""&GetIp&"")>0  then  
74. response.write "您的IP["&GetIp&"]已經(jīng)被禁止!如需要解封,請聯(lián)系本站管理員或在下一個小時的前3分鐘內(nèi)再訪問本站"  
75. response.end  
76. end if  
77. Set fsoObject = Nothing   
78. end if  
79.  
80. if Session("FYCC_01")>FYCC_19 and minute(now())<>Session("FYCC_02") then  
81. Session("FYCC_01")=1  
82. Session("FYCC_02")=minute(now())  
83. elseif Session("FYCC_01")>FYCC_21-1 and minute(now())=Session("FYCC_02") then  
84. if FYCC_17<>0 and Session("FYCC_01")>FYCC_21-1 then  
85. Call FYCC_03()  
86. end if  
87. response.redirect ""&FYCC_20&"" '建議輸入存放病毒的網(wǎng)址!!!  
88. response.end  
89. elseif Session("FYCC_01")>FYCC_19 and minute(now())=Session("FYCC_02") then  
90. response.write "本站啟動防刷新功能,1分鐘內(nèi)只能翻"&FYCC_19&"頁,請在下一分鐘再刷新本頁面"  
91. Session("FYCC_01")=Session("FYCC_01")+1  
92. response.end  
93. else  
94. if Session("FYCC_01")="" then  
95. Session("FYCC_01")=1  
96. Session("FYCC_02")=minute(now())  
97. else  
98. if minute(now())<>Session("FYCC_02") then  
99. Session("FYCC_01")=1  
100. Session("FYCC_02")=minute(now())  
101. else  
102. Session("FYCC_01")=Session("FYCC_01")+1  
103. end if  
104. end if  
105. End if  
106. end if  
107. %>