网页不存在时自动给管理员发邮件的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 = "[e-mail]" (你的邮件地址,此注释删除)
objSMTP.FromName = "Your Domain"
objSMTP.Subject = "404 Error Logged"
objSMTP.AddRecipient("[e-mail]")
' 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
%>
"

404 Page Not Found Error

Appropriate message here.

把以上代码保存在404错误页里,这样当出现404错误时,会自动发封邮件给你!

制作网站的时候通常会有当访客的一些错误操作或我们网站本身的缺陷，造成某个不存在的页面被访问，这时会出现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 = "[e-mail]" (你的邮件地址,此注释删除)
objSMTP.FromName = "Your Domain"
objSMTP.Subject = "404 Error Logged"
objSMTP.AddRecipient("[e-mail]")
' 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
%>
"

404 Page Not Found Error

Appropriate message here.

把以上代码保存在404错误页里,这样当出现404错误时,会自动发封邮件给你!

下载本文示例代码


网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码网页不存在时自动给管理员发邮件的ASP代码

阅读(149) | 评论(0) | 转发(0) |

0

上一篇：ASP判断取出HTML的图片地址函数

下一篇：安装配置JSP服务器的方法