USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Caching com Application
Postada em 27/10/2003 por ^HEAVY-METAL^            
O proposito deste tutorial e exemplificar como fazer caching de informacao que nao e alterada muitas vezes (so para ai de hora em hora), podendo ir busca-la a BD por exemplo, ou como fazer o cache da pagina durante 5 minutos para aumentar a sua performance (se nesses 5 minutos a BD e aberta uma so vez, isto aumentara a performance por um factor de 100.000 x).

Estas sub-rotinas/funcoes sao super flexiveis e podem ser usadas num site inteiro, bastando po-las num include.

A funcao check, que serve para ver se a variavel de aplicacao tem conteudo e se esta up-to-date, requer 3 parametros:

Function check(Temporizador,apli,T_comparacao)

Temporizador= nome do temporizador
N_apli= nome de variavel de aplicacao
T_comparacao= aqui da-se o tempo, em minutos, que a variavel de aplicacao existe

A funcao Guardar serve para guardar os valores nas variaveis de aplicacao, e tem 3 paramentros:

Sub Guardar(T_nome,A_nome,NovoValor)

T_nome= nome do Temporizador (ou um nome que queiram dar)
A_nome= nome da variavel aplicacao (ou um nome que queiram dar)
NovoValor= O valor que queremos que seja guardado na variavel aplicacao

Nota: Nunca guardar um objecto dentro duma variavel de aplicacao ou de sessao!



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 ve-se se a variavel de aplicacao ainda esta valida
if check("t2","a2",1) then
'Aqui podemos colocar o codigo que obtem a informacao que queremos guardar na variavel de aplicacao (ex: informacao da BD)

   Info_guardar="blablablbla"

   Call Guardar ("t2","a2",Info_guardar)
end if


'Aqui escrevemos o que temos na aplicao
Response.write "1:" & Application("a1") & "<BR>"

%>



T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página