注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

ASP防刷新重复提交数据代码方法  

2012-03-17 09:18:05|  分类: ASP/PHP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
ASP防刷新重复提交数据代码方法
此代码为了防止重复刷新添加重复的记录。
由于网站上有些恶意留言或者发布信息的很让人讨厌,我想到了用限制时间的方法限制他们操作!

方法一:

<% '过程名:PreventRefresh
'作 用:防止刷新页面
'================================================
Sub PreventRefresh()
    Dim RefreshTime,isRefresh
    RefreshTime = 60   '防止刷新时间,单位(秒)
    isRefresh = 1    '是否使用防刷新功能,0=否,1=是
    If isRefresh = 1 Then
        If (Not IsEmpty(Session("RefreshTime"))) And RefreshTime > 0 Then
            If DateDiff("s", Session("RefreshTime"), Now()) < RefreshTime Then
                Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT="&RefreshTime&"><p align=center><br><br><br><br><font color=#ff0000><b>为了防止用户恶意重复发布相同内容的信息,本站启用了防刷新机制,请不要在"&RefreshTime&"秒内连续访问本页面!</b></font></p>"
                Response.End
            Else
                Session("RefreshTime") = Now()
            End If
        Else
            Session("RefreshTime") = Now()
        End If
    End If
End Sub
%>

方法二:

Sub chkreFlash()
    dim ScriptName
    ScriptName=lcase(request.ServerVariables("PATH_INFO"))
    dim posttime,DoReFlashPage,ReFlashPage,SplitReFlashPage
    posttime=1 '防止刷新时间
    DoReFlashPage=false
    ReFlashPage="|Article_one.ASP"
    SplitReFlashPage=split(ReFlashPage,"|")
        for i=0 to ubound(SplitReFlashPage)
             if instr(scriptname,SplitReflashPage(i))>0 then
                DoReflashPage=true
            exit for
             end if
        next
    if (not isnull(session("ReflashTime"))) and posttime>0 and DoReflashPage then
        if DateDiff("s",session("ReflashTime"),Now())<posttime then
            call msg("警告!系统已记录您的IP,和刷新次数。\n\n请不要在"&posttime&"秒内连续刷新本页面!","-1")
        else
        session("ReflashTime")=Now()
        end if
    elseif isnull(session("ReflashTime")) and posttime>0 and DoReflashPage then
        Session("ReflashTime")=Now()
    end if
End Sub

调用方法在页面首部调用过程即可!
  评论这张
 
阅读(1590)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016