|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Um "dedo-duro" a seu favor
|
 |
|
|
|
Postada em 16/10/2003 por ^HEAVY-METAL^
Neste artigo mostro como o sistema pode encontrar um erro pela página e
imediatamente lhe comunicar através do e-mail. Irei usar dois recursos
simples para conseguir algo muito útil, ter conhecimento de erros
ocorridos no site.
Para facilitar o uso e compreensão, a função que irá processar o erro é
um artigo único que deverá ser incluido nas páginas, e quando houver
erro, a pagina o chamará automaticamente.
erro.asp -> será o arquivo que pegará os valores referentes ao erro e
enviará ao seu e-mail.
teste.asp -> uma página exemplo que estará preparada para reportar o
erro caso ocorra algum.
Neste artigo irei fazer uso do objeto ERR (para detectar e descrever o
erro) e do CDONTS (componente padrão para envio de email).
Segue a página teste.asp
<!--#Include File="erro.asp"-->
'aqui faço inclusão do arquivo que irá dedurar o erro caso ocorra
<% On error Resume next %>
'se pegar erro no meio do documento, força a continuar
<center>Dedo Duro</center><BR><BR>
<%
response.write "Teste às " & time
reponse.write "note algo aqui"
'perceba a linha acima "note algo aqui", há um erro proposital pois não
existe o objeto REPONSE
'abaixo a instrução que verificará, se o número de erro for maior que
zero, então ocorreu algum
If err.number > 0 then
Call ERROS 'erros é a função pra dedar, que está dentro de erro.asp
End if %>
Agora, o arquivo erro.asp
<%
Function erros
DedoDuro = "Erro ocorrido em: " & now
DedoDuro = DedoDuro & "Pagina: " & request.ServerVariables("SCRIPT_NAME")
DedoDuro = DedoDuro & "Número: " & err.number
DedoDuro = DedoDuro & "Descrição: " & err.description
DedoDuro = DedoDuro & "Fonte: " & err.source
'acima cria a mensagem com a descrição do erro ocorrido
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.from = "dedoduro@seusite.com.br"
mail.to = "voce@seusite.com.br"
mail.subject = "Ocorreu um erro"
mail.MailFormat = 0
mail.BodyFormat = 0
mail.body = DedoDuro
mail.send
set mail = nothing
response.write "Ocorreu um erro nesta pagina, e um email foi gerado para
notificar o webmaster"
End Function
%>
Pronto! É isso aí!
Rresumindo, o arquivo teste.asp tem um erro provocado e quando chega ao
fim do documento, é verificado que ocorreu, e automaticamente chama a
função ERROS, que é o arquivo erro.asp, que monta uma descrição do erro
ocorrido e envia ao mail.
T+,
|
|
|
|
|
