没有合适的资源?快使用搜索试试~ 我知道了~
飞云防CC攻击ASP程序代码插件
需积分: 0 0 下载量 102 浏览量
2020-10-30
17:44:21
上传
评论
收藏 44KB PDF 举报
温馨提示
试读
2页
飞云防CC攻击ASP程序代码插件
资源推荐
资源详情
资源评论
飞云防飞云防CC攻击攻击ASP程序代码插件程序代码插件
飞云防CC攻击ASP程序代码插件
<%
'==================
'飞云防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
资源评论
weixin_38605801
- 粉丝: 10
- 资源: 985
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功