ASP prevents Web page refresh code

              Reduce server burden, ASP Prevent Web page refresh code

Sub preventrefresh ()  
    dim ref reshtime,isrefresh 
    RefreshTime = 10    ' Prevent refresh time, in seconds  
    isRefresh = 1     ' use anti-refresh feature, 0 = no, 1 = is  
& nbsp;   if isrefresh = 1 then 
         If  (Not isempty ("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&" ><br> 
This page has the anti-refresh mechanism enabled, please do not &RefreshTime& Refresh this page continuously in seconds  
<BR> opening page, please later ... " 
                 Response.End 
             Else 
                 session ("Refreshtime")  = now ()  
             End If 
         Else 
             Session ("Refreshtime")  = now ()  
        end if  
    End If 
end sub