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

后端开发 更新于 热度(9090)

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

   制作网站的时候通常会有当访客的一些错误操作或我们网站本身的缺陷，造成某个不存在的页面被访问，这时会出现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>

声明：本站所有文章，如无特殊说明或标注，均为本站YangJunwei原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。本文链接https://yangjunwei.com/37.html

上一篇

下一篇

相关文章