 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
我们在制作网站的时候，通常会有当访客的一些错误操作或我们网站本身的缺陷，造成某个不存在的页面被访问，这时会出现404错误提示信息，假如是热心的访客可能会给你发一封邮件提示你，当时大部分时候是访客不会给我们发邮件的。今天给大家介绍的这个程序是当我们的网站出现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 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.webjx.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> 返回类别: 教程 上一教程: 在ASP中，用JSCRIPT脚本实现分页的另类办法 下一教程: ACCESS数据库表改名的一段代码 您可以阅读与"出现404页面错误的自动发送邮件的代码"相关的教程: · 使用CDONTS发送邮件的几个例子 · 一个异常好用的发送邮件的组件 · 用CDONTS发送邮件的两个函数 · ASP发送邮件的CLASS · 利用CDONTS发送邮件的ASP函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
