IT培训 / 新闻资讯 / 编程语言教程 / ASP实现不存在的网页就自动发送邮件的方法

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

作者：课课家来源： http://www.kokojia.com/点击数：625发布时间： 2015-11-09 09:14:00

今天由小编为大家讲解有关语言编程的文章，相信对大家一定有很大的帮助

c语言编程入门我们在制作网站的时候，通常会有当访客的一些错误操作或我们网站本身的缺陷，造成某个不存在的页面被访问，这时会出现404错误提示信息，如果是热心的访客可能会给你发一封邮件提示你，当时大部分时候是访客不会给我们发邮件的。今天给大家介绍的这个程序是当我们的网站出现404错误提示时自动发送一封邮件给我们，c语言程序设计代码如下：

IOBE 编程语言社区排行榜是编程语言流行趋势的一个指标，每月更新，这份排行榜排名基于互联网上有经验的程序员、课程和第三方厂商的数量。排名使用著名的搜索引擎（诸如 Google、MSN、Yahoo!、Wikipedia、YouTube 以及 Baidu 等）进行计算。请注意这个排行榜只是反映某个编程语言的热门程度，并不能说明一门编程语言好不好，或者一门语言所编写的代码数量多少。教育资源可能会影响结果。例如Python是常用的学校和学习编程途径，成千上万的学生问问题和完成项目。不过根据我的经验来说，Python的工作相比PHP和Ruby来说是罕见的。Java也有类似的情况，因为它在教育、网络、桌面和移动发展上有各种各样的用途，所以它们的排名会相对靠前。
本地开发者的需求仍然很高，尤其是在相关工作的调查中可以看出。RedMonk报告Swift在不到六个月的时间里上升了46个排名达到第22位。然而应用开发是一门年轻的学科。目前有更多的Web和桌面编程职位空缺着。 "

以下为引用的内容：
<% @language="script" %>
<% Option Explicit %>
<%
    Dim strPage, strReferer, strMessage
    Dim objSMTP
    ' Log the offending page
    strPage = Request.ServerVables("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
    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
%>
          C语言教程 "http://www.w3.org/TR/html4/strict.dtd">

404 Page Not Found

404 Page Not Found Error

Appropriate message here.

<% @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
    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
%>
            "http://www.w3.org/TR/html4/strict.dtd">

404 Page Not Found