Lors de la création d'un site Web, il y aura généralement des opérations incorrectes de la part des visiteurs ou des défauts dans notre site Web lui-même, provoquant l'accès à une page inexistante. À ce moment-là, un message d'erreur 404 apparaîtra. S'il s'agit d'un visiteur enthousiaste. peut vous envoyer un message. Un email pour vous rappeler que la plupart du temps, les visiteurs ne nous enverront pas d'e-mails. Utilisez ASP pour créer un programme pratique. Lorsque l'utilisateur accède et qu'un message d'erreur 404 apparaît, le système nous enverra automatiquement un e-mail, il n'y a donc pas lieu de s'inquiéter. Le code de production est le suivant :
Ce qui suit est un fragment cité. :
<% @langue="vbscript" %>
<% Option explicite %>
<%
Dim strPage, strReferer, strMessage
Dim objSMTP
' Enregistrez la page incriminée
strPage = Requête.ServerVariables("HTTP_URL")
' Enregistrez le référent
strReferer = Requête.ServerVariables("HTTP_REFERER")
' Configurer le composant email
Définir objSMTP = Server.CreateObject("JMail.Message")
objSMTP.From = " [email protected] "
objSMTP.FromName = "Votre domaine"
objSMTP.Subject = "Erreur 404 enregistrée"
objSMTP.AddRecipient(" [email protected] ")
' Écrivez le message http://soft.downcodes.com/
strMessage = "Page demandée : " & strPage & vbCrLf & vbCrLf
Si strReferer <> "" Alors
strMessage = strMessage & "Référent : " & strReferer
Autre
strMessage = strMessage "Le visiteur a saisi l'adresse"
Fin si
objSMTP.Body = strMessage
'Envoyez le message
objSMTP.Send("mail.jzxue.com")
'Ranger
objSMTP.ClearRecipients
objSMTP.Close()
Définir objSMTP = Rien
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
" http://www.w3.org/TR/html4/strict.dtd ">
<html lang="fr">
<tête>
<title>Page 404 introuvable</title>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
</tête>
<corps>
<h1>Erreur 404 Page introuvable</h1>
<p>
Message approprié ici.
</p>
</corps>
</html>