Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Terça-feira - 19 de Junho de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Faça seus scripts ASP trabalharem para você
Avaliações: 6   -   Minha nota: Média Geral: 17  
 

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_OnStar
t
       
       ' 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!

 
 
 





SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados