Caching com Application

Neste artigo vou explicar como
fazer um caching de informacão que não
seja alterada muitas vezes. Claro que quanto menos o
BD for aberto, melhor será a performance.

Estas sub-rotinas/funcões são
bem flexíveis e podem ser usadas tranquilamente
num site inteiro, com ajuda de includes.

A funcão check,
usada para saber se a variável de aplicação
tem conteúdo e se esta up-to-date, requer 3 parâmetros:

Function check(Temporizador,apli,T_comparacao)

Temporizador = nome do temporizador
N_apli = nome de variável de aplicação
T_comparacao = aqui vem o tempo que a variavel de aplicação
existe. Em minutos,

A função Guardar,
destinada a guardar os valores nas variáveis
de aplicação, tem 3 parâmentros:

Sub Guardar(T_nome,A_nome,NovoValor)

T_nome = nome do Temporizador
A_nome = nome da variável de aplicação
NovoValor = O valor que desejamos que seja guardado
na variável de aplicação

Observação:
Nunca guarde um objeto dentro de uma variável
de aplicação!

ficheiro : rotinas.asp
<%
function check(Temporizador,apli,T_comparacao)
  If Application(Temporizador)=”” Or datediff (“n”,Application(Temporizador),now())>
T_comparacao then
    check=true
  else
    check=false
  end if
end function

Sub Guardar(T_nome,A_nome,NovoValor)
     Application.Lock
     Application(T_nome) = Now()
     Application(A_nome) = NovoValor
     Application.Unlock
End sub
%>

ficheiro : page.asp
<!–#include file="rotinas.asp"–>
<%
‘Aqui veremos se a variável de aplicação
ainda esta válida
if check(“t2″,”a2”,1) then
‘Aqui você pode colocar o código que
obtem a informação que deseja guardar
na variável de aplicação

   Info_guardar=”xxxxxxxxxxxxxxxxxxxxx”

   Call Guardar (“t2″,”a2”,Info_guardar)
end if

‘E aqui escrevemos
o que temos na aplicação
Response.write “1:” & Application(“a1”) &
“<BR>”