asp empêche la page Web d'actualiser le code

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