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:  Faça seus scripts ASP trabalharem para você
Postada em 9/10/2003 por ^HEAVY-METAL^            
Muitas pessoas tem me perguntado:

Como eu faço para executar automaticamente scripts em um servidor sem a necessidade
de programas?

Com certeza, esta não é a melhor maneira de executar este tipo de função, porém há esta
possibilidade. Com apenas o uso do arquivo Global.asa, podemos executar funções e scripts
em nosso site da web.

O único requisito necessários é:
* Conhecimento sobre o global.asa

A maneira da qual vou explicar, é necessário que certas tarefas sejam executadas com êxito
para que a automatização do script funcione, por exemplo, após 10 visitas ao seu site
execute tal tarefa, depois de 31 dias faça tal coisa, diariamente atualize tais dados e assim
por diante.

Vamos ver um exemplo de um global.asa que a cada 30 dias envie um email ao webmaster
do site, que pode conter total de visitantes do mês ou outra informação que você desejar.


<SCRIPT LANGUAGE=VBScript RUNAT=Server>

       ' O aplicativo iniciou e foi definido a data de hoje à variável Application("Data" )
       ' A data de envio do email foi definida para 30 dias depois da data de hoje

       Sub Application_OnStart
              Application.Lock


              Application("Data") = Date
              Application("DataDeEnvio") = DateAdd("d", 30, Date)
              Application.Unlock
        End Sub

       'Agora a sessao do usuario vai inicializar
       ' Vamos agora fazer uma verificação para saber se hoje é o dia da data de envio do email

        Sub Session_OnStart
      
       ' Se a data de envio e a data de hoje conferir, o email será enviado ao webmaster
       ' Mas antes disso, a data de envio é modificada novamente para daqui a mais 30 dias.

      if Application("DataDeEnvio") = Date then
                  
                Application.Lock
                    Application("Data") = Date
                    Application("DataDeEnvio") = DateAdd("d", 30, Date)
                Application.UnLock

       ' Código para enviar o email ao webmaster.

               Set objMail = Server.CreateObject("CDONTS.NewMail")
                      objMail.To = "webmaster@do.site.com.br"
                      objMail.From = "script@automatico.com"
                      objMail.Subject = "Email do mês!"
                      objMail.Body = "Email enviado para o webmaster."
                      objMail.Send
  
                    End if

             End Sub
</SCRIPT>

Este é um de muitos exemplos que você pode criar para fazer seus scripts ASP
trabalharem para você, tenho certeza que depois desse simples script as idéias vão
fluir para você, portanto, mãos a obra!

T+,
 


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