飞云写的防CC攻击的ASP程序插件 打包下载
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了飞云写的防CC攻击的ASP程序插件 打包下载,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2988字,纯文字阅读大概需要5分钟。
内容图文
![飞云写的防CC攻击的ASP程序插件 打包下载](/upload/InfoBanner/zyjiaocheng/385/d7c51abb5fd74c9ba22e7452509445c3.jpg)
'==================
'飞云防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.gxlsystem.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程序插件 打包下载全部内容,希望文章能够帮你解决飞云写的防CC攻击的ASP程序插件 打包下载所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。