asp empêche la page Web d'actualiser le code
SubPreventRefresh()
Dim RefreshTime,isRefresh
RefreshTime = 10 'Empêcher le temps de rafraîchissement, unité (secondes)
isRefresh = 1 'S'il faut utiliser la fonction anti-rafraîchissement, 0=non, 1=oui
Si isRefresh = 1 Alors
Si (Not IsEmpty (Session (RefreshTime))) et RefreshTime > 0 Then
Si DateDiff(s, Session(RefreshTime), Now()) < RefreshTime Alors
Response.Write <META http-equiv=Content-Type content=text/html;
chaRset=gb2312><méta HTTP-EQUIV=REFRESH CONTENT=&RefreshTime&><br>
Cette page utilise le mécanisme anti-actualisation. Veuillez ne pas actualiser cette page en continu dans les &RefreshTime& secondes.
<BR>Page d'ouverture, veuillez patienter...
Réponse.Fin
Autre
Session (RefreshTime) = Maintenant ()
Fin si
Autre
Session (RefreshTime) = Maintenant ()
Fin si
Fin si
Fin du sous-marin