O objeto Application se utiliza para compartilhar informação entre todos os usuários de uma aplicação (entendemos por uma aplicação ASP todos os arquivos .asp de um diretório virtual e seus subdiretórios. Como vários usuários podem compartilhar um objeto Application, existem os métodos Lock e Unlock para assegurar a integridade do mesmo (vários usuários não podem modificar uma mesma propriedade ao mesmo tempo).

Lock

O método Lock assegura que só um cliente pode modificar ou ter acesso às variáveis de Application ao mesmo tempo.

Sintaxe:
ApplicationLock

Unlock

O método Unlock desbloqueia o objeto Application para que possa ser modificado por outro cliente depois de ter se bloqueado mediante o método Lock. Se não se chama a este método de forma explícita, o servidor Web desbloqueia o objeto Application quando o arquivo .asp termina ou transcorre seu tempo de espera.

Sintaxe:
Application.Unlock

Exemplo:

<% Application.Lock
Application("visitas") = Application("visitas")+1
Application.Unlock %>
Você é o visitante número <%= Application("visitas") %>

Pode-se ver um exemplo em ação

No exemplo anterior o método Lock impede que mais de um cliente tenha acesso à variável Visitas ao mesmo tempo. Se a aplicação não tivesse se bloqueado, dois clientes poderiam tentar incrementar simultaneamente o valor da variável Visitas. O método Unlock libera o objeto bloqueado de forma que o próximo cliente pode incrementar a variável.

Nota Importante:

No objeto Application podem se armazenar matrizes, porém estas são armazenadas como um objeto, ou seja, não podemos armazenar ou recuperar um só elemento da matriz, se não que carregaremos ou recuperaremos a variável com a matriz completa

Exemplo:

<%Dim parametros(2)
parametros(0) = "verde"
parametros(1) = 640
parametros(2) = 480
Application.Lock
Application("Param") =parametros%>
Application.UnLock

com estas instruções armazenaríamos TODA a matriz na variável de aplicação "Param"

Para recuperar os valores da matriz primeiro recuperamos esta em uma variável normal

<%Apliparam=Application("Param")%>

Agora poderemos operar com os valores da tabela nas variáveis Apliparam(0), Apliparam(1) e Apliparam(2)