开发学院WEB开发ASP ASP实现不存在的网页就自动发送邮件 阅读

ASP实现不存在的网页就自动发送邮件

 2007-11-03 10:38:10 来源:WEB开发网   
核心提示:制作网站的时候通常会有当访客的一些错误操作或我们网站本身的缺陷,造成某个不存在的页面被访问,ASP实现不存在的网页就自动发送邮件,这时会出现404错误提示信息,如果是热心的访客可能会给你发一封邮件提示你,当时大部分时候是访客不会给我们发邮件的,用asp做一个实用的程序

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

以下是引用片段:
<% @language="vbscript" %>
<% Option Explicit %>
<%
   Dim strPage, strReferer, strMessage
   Dim objSMTP
   ' Log the offending page
   strPage = Request.ServerVariables("HTTP_URL")
   ' Log the referer
   strReferer = Request.ServerVariables("HTTP_REFERER")
   ' Set up the email component
   Set objSMTP = Server.CreateObject("jmail.Message")
   objSMTP.From = "you@yourdomain.com"
   objSMTP.FromName = "Your Domain"
   objSMTP.Subject = "404 Error Logged"
   objSMTP.AddRecipient("you@yourdomain.com")
   ' Write the message http://soft.cncms.com/
   strMessage = "Requested page: " & strPage & vbCrLf & vbCrLf
   If strReferer <> "" Then
     strMessage = strMessage & "Referer: " & strReferer
   Else
     strMessage = strMessage "The visitor typed the address in"
   End If
   objSMTP.Body = strMessage
   ' Send the message
   objSMTP.Send("mail.jzxue.com")
   ' Tidy up
   objSMTP.ClearRecipients
   objSMTP.Close()
   Set objSMTP = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
       "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
   <title>404 Page Not Found</title>
   <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<h1>404 Page Not Found Error</h1>
<p>
ApPRopriate message here.
</p>
</body>
</html>

Tags:ASP 实现 存在

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
更多精彩
    赞助商链接

    热点阅读
      焦点图片
        最新推荐
          精彩阅读