asp impide que la página web actualice el código
SubPreventRefresh()
Dim RefreshTime,isRefresh
RefreshTime = 10 'Prevenir tiempo de actualización, unidad (segundos)
isRefresh = 1 'Si se debe utilizar la función anti-actualización, 0=no, 1=sí
Si esRefresh = 1 Entonces
Si (no está vacío (sesión (tiempo de actualización))) y tiempo de actualización> 0, entonces
Si DateDiff(s, Session(RefreshTime), Now()) <RefreshTime Entonces
Respuesta.Escribir <META http-equiv=Content-Type content=text/html;
chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=&RefreshTime&><br>
Esta página utiliza el mecanismo anti-actualización. No actualice esta página continuamente dentro de &RefreshTime& segundos.
<BR>Abriendo página, por favor espere...
Respuesta.Fin
Demás
Sesión (Hora de actualización) = Ahora ()
Terminar si
Demás
Sesión (Hora de actualización) = Ahora ()
Terminar si
Terminar si
Subtítulo final