|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
