飞云写的防CC攻击的ASP程序插件 打包下载

　　<%
==================
飞云防CC攻击ASP程序插件
建议除必须修改的参数内容外不要修改其他内容
如果需要反馈错误或提交意见,可以到落伍联系“正版飞云”
==================

dimFYCC_19,FYCC_20,FYCC_21,FYCC_05
dimFYCC_18

FYCC_05=
CCLog.txt存放的路径文件夹!需要手动创建!建议留空
如果输入,请在前面加上符号/

FYCC_18=1
防刷新CC攻击关闭与启动,1为启动0为关闭

FYCC_17=1
防刷新禁止IP功能关闭与启动,1为启动0为关闭

FYCC_19=10
每分钟刷新次数,将会出现提示

FYCC_20=
被封IP后自动转入的页面,建议输入存放病毒的网址!!!

FYCC_21=21
恶意刷新几次将禁止IP

dimrealip,proxy
realip=Request.ServerVariables(HTTP_X_FORWARDED_FOR)
proxy=Request.ServerVariables(REMOTE_ADDR)
ifrealip=then
GetIp=proxy
else
GetIp=realip
endif

SubFYCC_03()
SetfsoObject=Server.CreateObject(Scripting.FileSystemObject)
file=server.mappath(&FYCC_05&/CCLog.txt)
ifnotfsoObject.fileexists(file)then
fsoObject.createtextfilefile,true,false
endif
settsObject=fsoObject.OpenTextFile(file,8)
tsObject.Writeline&GetIp&
SettsObject=Nothing
SetfsoObject=Nothing
EndSub

ifFYCC_18<>0then
ifFYCC_17<>0then
ifminute(now())>-1andminute(now())<4then
SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(&FYCC_05&/CCLog.txt),True)
objCountFile.Write
objCountFile.Close
SetobjCountFile=Nothing
SetobjFSO=Nothing
endif
SetfsoObject=Server.CreateObject(Scripting.FileSystemObject)
file=server.mappath(&FYCC_05&/CCLog.txt)
ifnotfsoObject.fileexists(file)then
fsoObject.createtextfilefile,true,false
iferr.number<>0then
response.write您的空间不支持FSO，请同您的空间商联系，或者查看相关权限设置
response.end
endif
endif
SetobjCountFile=fsoObject.OpenTextFile(Server.MapPath(&FYCC_05&/CCLog.txt),1,True)
IfNotobjCountFile.AtEndOfStreamThenfdata=objCountFile.ReadAll
SetobjCountFile=Nothing
ifinstr(fdata,&GetIp&)>0then
response.write您的IP[&GetIp&]已经被禁止!如需要解封,请联系本站管理员或在下一个小时的前3分钟内再访问本站
response.end
endif
SetfsoObject=Nothing
endif

ifSession(FYCC_01)>FYCC_19andminute(now())<>Session(FYCC_02)then
Session(FYCC_01)=1
Session(FYCC_02)=minute(now())
elseifSession(FYCC_01)>FYCC_21-1andminute(now())=Session(FYCC_02)then
ifFYCC_17<>0andSession(FYCC_01)>FYCC_21-1then
CallFYCC_03()
endif
response.redirect&FYCC_20&建议输入存放病毒的网址!!!
response.end
elseifSession(FYCC_01)>FYCC_19andminute(now())=Session(FYCC_02)then
response.write本站启动防刷新功能,1分钟内只能翻&FYCC_19&页,请在下一分钟再刷新本页面
Session(FYCC_01)=Session(FYCC_01)+1
response.end
else
ifSession(FYCC_01)=then
Session(FYCC_01)=1
Session(FYCC_02)=minute(now())
else
ifminute(now())<>Session(FYCC_02)then
Session(FYCC_01)=1
Session(FYCC_02)=minute(now())
else
Session(FYCC_01)=Session(FYCC_01)+1
endif
endif
Endif
endif
%>
本地下载