ASP:网页错误时自动给管理员发邮件

最近用免费空间,上传时总有忘记上传的东西,或是未生成页面,导致访问页面不存在,就想着如果访问的网页不存在或错误时能自动给管理员发邮件就爽了,于是便有下面的东西出现:

   制作网站的时候通常会有当访客的一些错误操作或我们网站本身的缺陷,造成某个不存在的页面被访问,这时会出现404错误提示信息,如果是热心的访客可能会给你发一封邮件提示你,当时大部分时候是访客不会给我们发邮件的。我们就可以用ASP写一个程序,当用户访问出现404错误提示信息的时候系统会自动发一封邮件给我们,这样就不必担心了,代码如下:

注:需要JMail组件支持!! 

vb 代码
 
  1. <% @language="vbscript" %> 
  2. <% Option Explicit %> 
  3. <% 
  4. Dim strPage, strReferer, strMessage 
  5. Dim objSMTP 
  6. ' Wrong Page 
  7. strPage = Request.ServerVariables("HTTP_URL"
  8. ' Record the referer 
  9. strReferer = Request.ServerVariables("HTTP_REFERER"
  10. ' Set up the email component 
  11. Set objSMTP = Server.CreateObject("JMail.Message"
  12. objSMTP.From = "you@yourdomain.com" 
  13. objSMTP.FromName = "Your Domain" 
  14. objSMTP.Subject = "404 Error Logged" 
  15. objSMTP.AddRecipient("you@yourdomain.com"
  16. ' Write the message 
  17. strMessage = "Requested page: " & strPage & vbCrLf & vbCrLf 
  18. If strReferer <> "" Then 
  19. strMessage = strMessage & "Referer: " & strReferer 
  20. Else 
  21. strMessage = strMessage "The visitor typed the address in" 
  22. End If 
  23. objSMTP.Body = strMessage 
  24. ' Send the message 
  25. objSMTP.Send("mail.jzxue.com"
  26. ' Tidy up 
  27. objSMTP.ClearRecipients 
  28. objSMTP.Close() 
  29. Set objSMTP = Nothing 
  30. %> 
  31. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" 
  32. "http://www.w3.org/TR/html4/strict.dtd"
  33. <html lang="en"
  34. <head> 
  35. <title>404 Page Not Found</title> 
  36. <meta http-equiv="Content-Type" content="text/html; charset=gb2312"
  37. </head> 
  38. <body> 
  39. <h1>404 Page Not Found Error</h1> 
  40. <p> 
  41. 错误信息!想要写的东西!! 
  42. </p> 
  43. </body> 
  44. </html>