Saat membuat sebuah website, biasanya akan ada beberapa kesalahan pengoperasian oleh pengunjung atau cacat pada website kita itu sendiri sehingga menyebabkan halaman tidak ada untuk diakses. Pada saat ini, akan muncul pesan error 404. Jika itu adalah pengunjung yang antusias, itu mungkin mengirimi Anda pesan email untuk mengingatkan Anda bahwa sering kali pengunjung tidak akan mengirimi kami email. Gunakan ASP untuk membuat program praktis. Ketika pengguna mengakses dan muncul pesan error 404, sistem akan otomatis mengirimkan email kepada kita, jadi tidak perlu khawatir. Kode produksinya adalah sebagai berikut:
Berikut cuplikan kutipannya :
<% @bahasa="vbscript" %>
<% Opsi Eksplisit %>
<%
Redupkan strPage, strReferer, strMessage
Redupkan objekSMTP
' Catat halaman yang melanggar
strPage = Permintaan.ServerVariables("HTTP_URL")
' Catat referensinya
strReferer = Permintaan.ServerVariables("HTTP_REFERER")
' Siapkan komponen email
Setel objSMTP = Server.CreateObject("JMail.Message")
objSMTP.Dari = " [email protected] "
objSMTP.FromName = "Domain Anda"
objSMTP.Subject = "404 Kesalahan Tercatat"
objSMTP.AddRecipient(" [email protected] ")
' Tulis pesan http://soft.downcodes.com/
strMessage = "Halaman yang diminta: " & strPage & vbCrLf & vbCrLf
Jika strReferer <> "" Lalu
strMessage = strMessage & "Referensi: " & strReferer
Kalau tidak
strMessage = strMessage "Pengunjung mengetikkan alamatnya"
Akhiri Jika
objSMTP.Body = strMessage
'Kirim pesannya
objSMTP.Kirim("mail.jzxue.com")
'Merapikan
objSMTP.ClearRecipients
objSMTP.Tutup()
Setel objSMTP = Tidak Ada
%>
<!DOCTYPE HTML PUBLIK "-//W3C//DTD HTML 4.01//EN"
" http://www.w3.org/TR/html4/strict.dtd ">
<htmllang="id">
<kepala>
<title>Halaman 404 Tidak Ditemukan</title>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
</kepala>
<tubuh>
<h1>Kesalahan Halaman 404 Tidak Ditemukan</h1>
<p>
Pesan yang sesuai di sini.
</p>
</tubuh>
</html>