- <%
- '==================
- '飞云防CC攻击ASP程序插件
- '建议除必须修改的参数内容外不要修改其他内容
- '如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系 “正版飞云”
- '==================
- dim FYCC_19,FYCC_20,FYCC_21,FYCC_05
- dim FYCC_18
- FYCC_05=""
- 'CCLog.txt存放的路径文件夹!需要手动创建!建议留空
- '如果输入,请在前面加上符号"/"
- FYCC_18=1
- '防刷新CC攻击关闭与启动,1为启动0为关闭
- FYCC_17=1
- '防刷新禁止IP功能关闭与启动,1为启动0为关闭
- FYCC_19=10
- '每分钟刷新次数,将会出现提示
- FYCC_20="http://www.163.com"
- '被封IP后自动转入的页面,建议输入存放病毒的网址!!!
- FYCC_21=21
- '恶意刷新几次将禁止IP
- dim realip,proxy
- realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
- proxy = Request.ServerVariables("REMOTE_ADDR")
- if realip = "" then
- GetIp = proxy
- else
- GetIp = realip
- end if
- Sub FYCC_03()
- Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
- file = server.mappath(""&FYCC_05&"/CCLog.txt")
- if not fsoObject.fileexists(file) then
- fsoObject.createtextfile file,true,false
- end if
- set tsObject = fsoObject.OpenTextFile(file,8)
- tsObject.Writeline " "&GetIp&""
- Set tsObject = Nothing
- Set fsoObject = Nothing
- End Sub
- if FYCC_18<>0 then
- if FYCC_17<>0 then
- if minute(now())>-1 and minute(now())<4 then
- Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
- Set objCountFile=objFSO.CreateTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),True)
- objCountFile.Write " "
- objCountFile.Close
- Set objCountFile=Nothing
- Set objFSO = Nothing
- end if
- Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
- file = server.mappath(""&FYCC_05&"/CCLog.txt")
- if not fsoObject.fileexists(file) then
- fsoObject.createtextfile file,true,false
- if err.number<>0 then
- response.write "您的空间不支持FSO,请同您的空间商联系,或者查看相关权限设置"
- response.end
- end if
- end if
- Set objCountFile = fsoObject.OpenTextFile(Server.MapPath(""&FYCC_05&"/CCLog.txt"),1,True)
- If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
- Set objCountFile = Nothing
- if instr(fdata,""&GetIp&"")>0 then
- response.write "您的IP["&GetIp&"]已经被禁止!如需要解封,请联系本站管理员或在下一个小时的前3分钟内再访问本站"
- response.end
- end if
- Set fsoObject = Nothing
- end if
- if Session("FYCC_01")>FYCC_19 and minute(now())<>Session("FYCC_02") then
- Session("FYCC_01")=1
- Session("FYCC_02")=minute(now())
- elseif Session("FYCC_01")>FYCC_21-1 and minute(now())=Session("FYCC_02") then
- if FYCC_17<>0 and Session("FYCC_01")>FYCC_21-1 then
- Call FYCC_03()
- end if
- response.redirect ""&FYCC_20&"" '建议输入存放病毒的网址!!!
- response.end
- elseif Session("FYCC_01")>FYCC_19 and minute(now())=Session("FYCC_02") then
- response.write "本站启动防刷新功能,1分钟内只能翻"&FYCC_19&"页,请在下一分钟再刷新本页面"
- Session("FYCC_01")=Session("FYCC_01")+1
- response.end
- else
- if Session("FYCC_01")="" then
- Session("FYCC_01")=1
- Session("FYCC_02")=minute(now())
- else
- if minute(now())<>Session("FYCC_02") then
- Session("FYCC_01")=1
- Session("FYCC_02")=minute(now())
- else
- Session("FYCC_01")=Session("FYCC_01")+1
- end if
- end if
- End if
- end if
- %>
飞云写的防CC攻击的ASP程序插件 打包下载
2019-10-13 13:00asp代码网 ASP教程
飞云写的防CC攻击的ASP程序插件 打包下载
延伸 · 阅读
- 2022-03-03高防服务器之CC攻击有哪些类型
- 2022-02-20如何判断服务器是否被CC攻击?
- 2021-10-25Linux系统防CC攻击自动拉黑IP增强版(Shell脚本)
- 2021-08-27Linux VPS下简单解决CC攻击的方法
- 2021-06-01网站遭遇CC攻击,高防服务器如何去助力?
- 2021-05-26如何快速的使用百度云加速防御CC攻击?
精彩推荐
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...