asp запрещает веб-странице обновлять код
СубПревентРефреш()
Тусклое время обновления, isRefresh
RefreshTime = 10 'Время запрета обновления, единица (секунды)
isRefresh = 1 'Использовать ли функцию антиобновления, 0=нет, 1=да
Если isRefresh = 1 Тогда
Если (Not IsEmpty(Session(RefreshTime))) и RefreshTime > 0 Тогда
Если DateDiff(s, Session(RefreshTime), Now()) < RefreshTime Тогда
Response.Write <META http-equiv=Content-Type content=text/html;
chaRset=gb2312><meta HTTP-EQUIV=ОБНОВИТЬ КОНТЕНТ=&RefreshTime&><br>
На этой странице используется механизм защиты от обновления. Не обновляйте эту страницу постоянно в течение &RefreshTime& секунд.
<BR>Открывается страница, пожалуйста, подождите...
Ответ.Конец
Еще
Сеанс (Время обновления) = Сейчас()
Конец, если
Еще
Сеанс (Время обновления) = Сейчас()
Конец, если
Конец, если
Конец субтитра