服务咨询热线:0574-88171828 15867435963
专业网站制作客服QQ[853624982]  日本の顧客訪問 [日本語]  
首 页 网站制作 网站推广 域名服务 虚拟主机 VPS主机 企业邮箱 软件开发 经典案例

建站知识

联系我们

网站首页 >> 建站知识

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

来源:本站
时间:2009-6-18 16:14:39


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




宁波263企业邮箱
宁波网站建设
:: 在线客服 ::
客服电话
86-0574-88171828
86-015867435963
E-mail:sales@weiwe.cn
在线MSN
在线QQ
宁波网站成功案例
宁波建站知识
网站建设1000元起
.com域名50元,cn第一年50元
购虚拟主机2元/M,赠企业邮局
免费咨询网站问题
网站全球GOOGLE,百度推广
企业网站百度免费推广
宁波外贸网站建设
速代办宁波企业网站备案
本站关键字:宁波网站制作 | 宁波GOOGLE推广 | 宁波做网站 | 宁波网络公司 | 网页制作公司 | 宁波网站推广 | 网页制作 | 宁波软件开发 | 宁波域名注册
首 页 :: 关于我们 :: 联系我们 :: 付款方式 :: 建站知识 :: 新闻动态 :: 友情链接 :: 合作伙伴 :: 网站地图
COPYRIGHT ? 2003-2009 ALL RIGHT RESERVED,WEIWE.CN
威维网络 版权所有   浙ICP备09045242号