asp 代码,asp开源代码

2020-10-12 阅读 蔡晴田整理

内容简介:怎样将asp源代码%调暗CC?信息(4)、strinfo、strtemp if会话(CC?信息)=然后CC?信息(0)=CC log.txt'日志文件名CC?信息(1)=请求服务什么是asp...

%DimCC_Info(4),strInfo,strTempIfSession(CC_Info)=ThenCC_Info(0)=cclog.txt'日志文件名CC_Info(1)=Request.ServerVariables(HTTP_X_FORWARDED_FOR)CC_Info(2)=Request.ServerVariables(REMOTE_ADDR)CC_Info(3)=10'N秒内禁止刷新当前页面CC_Info(4)=badip.txt'IP黑名单文件名Session(CC_Info)=CC_Info(0)|CC_Info(1)|CC_Info(2)|CC_Info(3)|CC_Info(4)ElsestrInfo=Split(Session(CC_Info),|)CC_Info(0)=strInfo(0)CC_Info(1)=strInfo(1)CC_Info(2)=strInfo(2)CC_Info(3)=strInfo(3)CC_Info(4)=strInfo(4)EndIfConstchkRefresh=1'0关闭防刷新ConstchkProxy=1'0关闭代理验证ConstchkBadIP=1'0关闭IP黑名单IfSession(BadIP)=ThenstrInfo=ReadFile(CC_Info(4))IfstrInfo=ThenstrInfo=chinavb.netSession(BadIP)=strInfoElsestrInfo=Session(BadIP)EndIf'/*第一层判断,N秒内禁止刷新*/IfchkRefresh=1ThenIfSession(RefreshTime)=ThenSession(RefreshTime)=Now()ElseIfDateDiff(s,Session(RefreshTime),Now())CInt(CC_Info(3))ThenResponse.Write(系统繁忙,请稍候再试!错误代码001)Response.End()ElseSession(RefreshTime)=Now()EndIfEndIfEndIf'/*第二层判断,代理禁止查看*/IfchkProxy=1ThenIfCC_Info(1)ThenIfInStr(strInfo,CC_Info(1))=0ThenstrTemp=CC_Info(1)vbCrLfIfInStr(strInfo,CC_Info(2))=0ThenstrTemp=strTemp[CC_Info(2)]vbCrLfEndIfSaveLogCC_Info(4),strTempstrInfo=strInfostrTempSession(BadIP)=strInfoEndIf'记录CC攻击日志SaveLogCC_Info(0),CC_Info(1)[CC_Info(2)]Now()vbCrLfResponse.Write(系统繁忙,请稍候再试!错误代码002)Response.End()EndIfEndIf'/*第三层判断,IP黑名单禁止查看*/IfchkBadIP=1ThenIfInStr(strInfo,CC_Info(2))0ThenResponse.Write(系统繁忙,请稍候再试!错误代码003)Response.End()EndIfEndIf'ForReading=1,ForWriting=2,ForAppending=8FunctionSaveLog(filename,filecontent)OnErrorResumeNextDimfso,thisfilefilename=Server.MapPath(filename)Setfso=CreateObject(Scripting.FileSystemObject)IfErr0ThenResponse.Write(写入文件filename失败,可能您的系统不支持FSO!)Response.End()EndIfSetthisfile=fso.OpenTextFile(filename,8,True)thisfile.write(filecontent)thisfile.CloseSetfso=NothingEndFunctionFunctionReadFile(filename)OnErrorResumeNextDimfso,thisfileSetfso=CreateObject(Scripting.FileSystemObject)IfErr0ThenResponse.Write(读取文件filename失败,可能您的系统不支持FSO!)Response.End()EndIfSetthisfile=fso.OpenTextFile(Server.MapPath(filename),1,True)ReadFile=thisfile.ReadAllthisfile.CloseSetthisfile=NothingSetfso=NothingEndFunction%

作者给您推荐的内容
  1. 2016年10月18日,格洛瑞在西安召开新闻发布会,不仅带来了千元旗舰机《荣耀来玩6x》,还带来了一款荣耀平板电脑2。这款产品有一块8英寸的屏幕,是一款售价1000元的小屏幕平板电脑。荣耀平板荣...

  2. 很多公众号运营习惯于先在word文档中编辑好文章内容,再复制到微信编辑器内编辑排版。有没有一种办法可以省去复制粘贴的环节,直接导入到编辑器里面呢?01、点击编辑器顶部的“导入Word文档...

  3. 台式机换硬盘最近,桌面硬盘安装系统的问题真的很热。很多朋友都说他们想学这个方法。萧边很忙,但仍然抽不出时间为每个人安排这个方法。你当然非常想要。Win7的小房子为你带来...

  4. 微信查看好友步数排行,首先点击我--设置,然后点击通用,再点击辅助功能,接着点击微信运动,然后点击进入微信运动,再点击步数排行榜,我们就可以查看好友步数排行了。01、打开微信,点...

  5. ps批量调色风格:夏天清新;主题“夏天”草的芬芳飘荡在空气中,嘴角的微笑让我觉得很好ps调色规律...

  6. 01、我们先将手机root,可以选择KingROOT这款软件。02、root完以后,就可以去浏览器下载绿色守护,然后点击...

  7. 恢复出厂设置在哪里Camera 360是一款非常专业的照片美化软件。在使用该软件的过程中,许多合作伙伴表示,他们不知道如何恢复相机360的出厂设置。接下来,超人软件编辑就为大家介手...

  8. 电脑卡怎么电脑卡办...

  9. 刺激战场游戏画质不够清晰影响游戏体验?今天编编就来分享一下怎么设置游戏画质。01、首先进入游戏过后,点击右上角的设置。02、设置点开过后,再点击画面设置。系统默认的画质是高清,还...

  10. 平时我们的日常工作中,需要在表格中插入特殊符号,而有的时候在工具栏里面找实在是太麻烦了,今天教大家一个方法,能快速插入你想要的特殊符号,简单快捷又高效,具体操作步骤请参考以...