时间:2016-02-24 13:45 来源: 我爱IT技术网 作者:佚名
欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP实现不存在的网页就自动发送邮件】，下面是详细的分享！
ASP实现不存在的网页就自动发送邮件
<% @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
%>
<!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>
<% @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
%>
<!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实现不存在的网页就自动发送邮件，下面是编辑为你推荐的有价值的用户互动：
相关问题：请高手指点，我打算在客户在asp网页上提交表单的时...
答：这么做要求服务器提供mail服务支持才可以。否则是无法实现的。获知服务器提供的邮件支持后，不同的邮件系统发送方法也不尽相同。 不过按你所说的，参考一楼的方法，表单内容都是作为邮件正文内容来发的。其它的都没什么说明的。（注：一楼的方法... >>详细
相关问题：asp自动发送邮件
答：sendemail="gt23233@126.com" sendname="xxxxxx" '发送者 sendobject="cxxx" '发送主题 checkname="gtlyq79" '验证用户名 checkpwd="001129" '验证密码 stmp="smtp.126.com" 'stmp服务器 on error resume next Dim JMail,contentId Set JMail = ... >>详细
相关问题：用Dreamweaver CS4怎样实现网页发送邮件？
答：实现网页发送邮件的方法： 1，通过IE,打开具体要发送的网页，然后通过操作"工具-邮件和新闻--发 送网页"接着就会进入outlook 的界面，利用outlook 发送网页到指定的邮箱地址 2.通过Foxmail 发送网页 (1)保存要发送的页面。在"页面"-"另存为"-保... >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-