Ao fazer um site, normalmente ocorrerão algumas operações incorretas por parte dos visitantes ou defeitos no próprio site, fazendo com que uma página inexistente seja acessada. Neste momento, aparecerá uma mensagem de erro 404. Se for um visitante entusiasmado, ele. pode enviar-lhe uma mensagem Um e-mail para lembrá-lo de que na maioria das vezes os visitantes não nos enviarão e-mails. Use ASP para fazer um programa prático Quando o usuário acessar e aparecer uma mensagem de erro 404, o sistema nos enviará automaticamente um e-mail, então não há necessidade de se preocupar. O código de produção é o seguinte:
A seguir está um fragmento citado. :
<% @idioma="vbscript" %>
<% Opção Explícita %>
<%
Dim strPage, strReferer, strMessage
Dim objSMTP
' Registra a página ofensiva
strPage = Request.ServerVariables("HTTP_URL")
' Registra o referenciador
strReferer = Request.ServerVariables("HTTP_REFERER")
'Configura o componente de e-mail
Definir objSMTP = Server.CreateObject("JMail.Message")
objSMTP.From = " você@seudominio.com "
objSMTP.FromName = "Seu domínio"
objSMTP.Subject = "Erro 404 registrado"
objSMTP.AddRecipient(" você@seudominio.com ")
' Escreva a mensagem http://soft.downcodes.com/
strMessage = "Página solicitada: " & strPage & vbCrLf & vbCrLf
Se strReferer <> "" Então
strMessage = strMessage & "Referer: " & strReferer
Outro
strMessage = strMessage "O visitante digitou o endereço"
Terminar se
objSMTP.Body = strMessage
'Envie a mensagem
objSMTP.Send("mail.jzxue.com")
'Arrumar
objSMTP.ClearRecipients
objSMTP.Fechar()
Definir objSMTP = Nada
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
" http://www.w3.org/TR/html4/strict.dtd ">
<html lang="pt">
<cabeça>
<title>404 Página não encontrada</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<corpo>
<h1>Erro 404 de página não encontrada</h1>
<p>
Mensagem apropriada aqui.
</p>
</body>
</html>