<% '================== '飞云防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 %> [url=http://files.jb51.net/upload/FYCC.rar]本地下载[/url]