[Resolvido] ASPtear

[xanburzum 169]

1. Primeiro renomeie o default.asp (ou qualquer página, que terá cache) para outra coisa. No meu caso, eu usei default_0.asp.

 

2. Baixar o componente HTTP ASPtear SOFTWING para este exemplo.

 

3. Substitua o seu default.asp.

 

<OBJECT RUNAT=server PROGID=SOFTWING.ASPtear ID=ASPGET></OBJECT>
<%
  Option Explicit

  
  Response.Expires = 0

  'Verificar se o tempo de cache se a página expirou
  'E se precisamos recriar o conteúdo da página na
  'Cache. usamos um intervalo de duas horas, mas você pode
  'Definir este valor como o que quiser, dependendo do seu
  'Requisitos
  if datediff("h", Application("Default_TimeStamp"), now()) _
        >=2 then
    Application.Lock

    'Obter o conteúdo da página ASP. E salvá-los
    'Em uma variável de aplicativo
    Application("Default") = _
       ASPGET.Retrieve("http://127.0.0.1/Default_0.asp", 2, "", "", "")

    'set o timestamp do caching
    Application("Default_TimeStamp") = now()
    Application.Unlock
  end if

  'escrever o conteúdo da página no navegador
  Response.Write Application("Default")
%>