asp防止刷新功能

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