ウェブサイトを作成する際、訪問者の誤操作やウェブサイト自体の不具合により、存在しないページにアクセスしてしまうことがよくありますが、熱心な訪問者であれば404エラーメッセージが表示されます。ほとんどの場合、訪問者は私たちに電子メールを送信しないことを通知する電子メールを送信する場合があります。 ASP を使用して実用的なプログラムを作成すると、ユーザーがアクセスして 404 エラー メッセージが表示された場合、システムが自動的にメールを送信しますので、心配する必要はありません。 本番コードは次のとおりです
。 :
<% @ language="vbscript" %>
<% 明示的なオプション %>
<%
Dim strPage、strReferer、strMessage
ディムobjSMTP
' 問題のあるページをログに記録します
strPage = Request.ServerVariables("HTTP_URL")
' リファラーをログに記録します
strReferer = Request.ServerVariables("HTTP_REFERER")
' 電子メールコンポーネントを設定します
set objSMTP = Server.CreateObject("JMail.Message")
objSMTP.From = " [email protected] "
objSMTP.FromName = "あなたのドメイン"
objSMTP.Subject = "404 エラーが記録されました"
objSMTP.AddRecipient(" [email protected] ")
' http://soft.downcodes.com/というメッセージを書き込みます
strMessage = "要求されたページ: " & strPage & vbCrLf & vbCrLf
strReferer <> "" の場合
strMessage = strMessage & "リファラー: " & strReferer
それ以外
strMessage = strMessage "訪問者がアドレスを入力しました"
終了の場合
objSMTP.Body = strMessage
'メッセージを送信してください
objSMTP.Send("mail.jzxue.com")
「整理整頓」
objSMTP.ClearRecipients
objSMTP.Close()
objSMTP = なしを設定します
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
「 http://www.w3.org/TR/html4/strict.dtd 」
<html lang="ja">
<頭>
<title>404 ページが見つかりません</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<本文>
<h1>404 ページが見つかりませんエラー</h1>
<p>
適切なメッセージはここにあります。
</p>
</body>
</html>