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


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