Al crear un sitio web, generalmente habrá algunas operaciones incorrectas por parte de los visitantes o defectos en nuestro propio sitio web, lo que provocará que se acceda a una página inexistente. En este momento, aparecerá un mensaje de error 404. Si es un visitante entusiasta. Es posible que le enviemos un mensaje de correo electrónico para recordarle que la mayoría de las veces los visitantes no nos enviarán correos electrónicos. Utilice ASP para hacer un programa práctico. Cuando el usuario accede y aparece un mensaje de error 404, el sistema nos enviará automáticamente un correo electrónico, por lo que no hay que preocuparse. El código de producción es el siguiente:
El siguiente es un fragmento citado. :
<% @language="vbscript" %>
<% Opción Explícita %>
<%
Dim strPage, strReferer, strMessage
objeto oscuro SMTP
'Registrar la página infractora
strPage = Solicitud.ServerVariables("HTTP_URL")
'Registrar el referente
strReferer = Solicitud.ServerVariables("HTTP_REFERER")
'Configura el componente de correo electrónico
Establecer objSMTP = Server.CreateObject("JMail.Message")
objSMTP.From = " [email protected] "
objSMTP.FromName = "Su dominio"
objSMTP.Subject = "Error 404 registrado"
objSMTP.AddRecipient(" [email protected] ")
' Escribe el mensaje http://soft.downcodes.com/
strMessage = "Página solicitada: " & strPage & vbCrLf & vbCrLf
Si strReferer <> "" Entonces
strMessage = strMessage & "Referente: " & strReferer
Demás
strMessage = strMessage "El visitante escribió la dirección"
Terminar si
objSMTP.Body = strMensaje
'Envía el mensaje
objSMTP.Send("correo.jzxue.com")
'Poner en orden
objSMTP.ClearRecipients
objSMTP.Cerrar()
Establecer objSMTP = Nada
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//ES"
" http://www.w3.org/TR/html4/strict.dtd ">
<html lang="es">
<cabeza>
<título>Página 404 no encontrada</título>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
</cabeza>
<cuerpo>
<h1>Error 404 Página no encontrada</h1>
<p>
Mensaje apropiado aquí.
</p>
</cuerpo>
</html>