Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Pagina de erro

Recommended Posts

Este sistema permite-lhe atribuir erros personalizadas para os problemas comuns que podem ocorrer com o seu site e criar uma página de erro centralizado para mostrar erros personalizados, você pode implementá-la em qualquer sistema existente, acrescentando apenas as de linhas de código para cada script.

 

abaixo a pagina de erro:

 

<%
Dim strTemp	  ' string mensagem
Dim iErrorValue  ' erro query string
Dim iErrorRef	' a página que ocasionou o erro
  'Obter o erro personalizado a partir da query string #
iErrorValue = request.queryString("error")
'Obter a página que o cliente foi submetido a partir de
iErrorRef = request.serverVariables("HTTP_REFERER")

 ' seleccione mensagem de erro personalizada baseada em query string
Select Case iErrorValue
  Case 1
	 ' we set this ID to represent a mailer error
	strTemp = "Infelizmente houve um problema "& _ 
	   "e seus dados não foram enviados."
  Case 2

	strTemp = "Você deve preencher todos os campos para enviar este formulário."
  Case 3
	 ' nenhum registros na pesquisa 
	strTemp = "A sua pesquisa não produziu qualquer correspondência.<br>" & _
	  "<a href=teste.asp>tente novamente</a>"
  ' <--- Você pode adicionar varios erros personalizadas --->

  Case Else
   ' Isto representa qualquer erro indefinido - ignorar, declarando 
   'o erro da query string e movimentação do processo acima
	strTemp = "Ocorreu um erro indefinido"
End Select

  'você poderia adicione as informações em um um db 
  'Custom error #.


%>

<html>
 <head>
  <title>Ocorreu um erro</title>
 </head>
 <body>
  <center>
  <strong>
  <%=strTemp%>
  </strong>
  <br>
  <br>
Use seu botão Voltar do navegador para tentar novamente.
  </center>
 </body>
</html>

por exemplo, usando o JMail

<%
Dim Mailer  ' COM objeto

Set Mailer = Server.CreateObject("jmail.smtpmail")

' Definitivamente um componente essencial de qualquer aplicativo:
On Error Resume Next
Mailer.Execute 
if Err <> 0 then
   ' opa, temos um erro ...
  Set Mailer = Nothing
  'Em seguida, redirecionamos para nossa página de erro. 
  ' passamos valor pela QueryString 
  Response.Redirect "customErr.asp?error=1"
else
   ' <---mensagem  sucesso -->
  Set Mailer = Nothing
end if
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.