<%
'==================
'飞云防CC攻击ASP程序插件
'建议除必须修改的参数内容外不要修改其他内容
'如果需要反馈错误或提交意见,可以到落伍(IM286.COM)联系“正版飞云”
'==================
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="http://www.163.com"
'被封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
%>
使用方法
1，把FYCC.asp文件放置到你网站的根目录（要与网站首页同目录）
3，打开网站默认访问文件（一般是index.asp），然后插入<>
4，打开FYCC.asp修改顶部10-30行的设置参数
5，两个文件保存上传
【飞云防CC攻击ASP程序代码插件】相关文章：
★ 一段采集程序代码
★ ASP辅助代码