主页 > 知识库 > 飞云写的防CC攻击的ASP程序插件 打包下载

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

热门标签:咸阳销售外呼系统 办理400电话一年多少钱 离线电子地图标注软件注册 兰州智能语音电销机器人功能 宁夏怎么申请400电话 为什么外呼系统需要预存话费呢 外呼回拨系统图片 常用地图标注范围点 企数外呼系统能用多久
%
'==================
'飞云防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
%>
本地下载

标签:铁岭 家电维修 咸阳 泰州 温州 昌都 丽江 昆明

巨人网络通讯声明:本文标题《飞云写的防CC攻击的ASP程序插件 打包下载》,本文关键词  飞云,写的,防,攻击,的,ASP,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《飞云写的防CC攻击的ASP程序插件 打包下载》相关的同类信息!
  • 本页收集关于飞云写的防CC攻击的ASP程序插件 打包下载的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章