asp防止刷新功能

答案：asp防止刷新
[复制此代码]CODE:

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

调用方法在页面首部加入chkreflash即可

上一个：jb51生成所有页面的效果+分页生成 原创
下一个：本人常用的asp代码 原创