asp impede que a página da web atualize o código
SubPreventRefresh()
Dim RefreshTime,isRefresh
RefreshTime = 10 'Evita tempo de atualização, unidade (segundos)
isRefresh = 1 'Se usar a função anti-atualização, 0=não, 1=sim
Se isRefresh = 1 Então
If (Not IsEmpty(Session(RefreshTime))) E RefreshTime > 0 Então
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>
Esta página usa o mecanismo anti-atualização. Não atualize esta página continuamente em &RefreshTime& segundos.
<BR>Página de abertura, por favor aguarde...
Resposta.Fim
Outro
Sessão(RefreshTime) = Agora()
Terminar se
Outro
Sessão(RefreshTime) = Agora()
Terminar se
Terminar se
Finalizar sub