一键邮件分享网页链接-优快云博客

让人们能够邮件当前页面的链接对于合并你的网站是很有用的。人们可以轻松地与他人分享浏览的项目，而不需要一个可上网的电子邮件账户的项目，并把用户带回到你的网站的第二个视图。有很多实现的方式。以下的可能是最简单合并的之一。每个页面是你都需要链接到邮件应用程序。当点击的时候，引用页面url会总是能显示request.servervariables(“http_referer”)。然而，邮件一个链接是不需要知道很多内容的。因此，通过利用一些简单的javascript页面标题，能够很容易地传递，并合并成邮件信息。这个例子演示了CDONTS邮件信息的用途，但是为了不过多使用和滥用www.ttasp.net的邮件服务器会已经把它注释出来。你可能想包括没有收集的邮件地址你的页面详情的标记，他们的信息在你的应用程序里面没有被收集，会让人们感到安全。
<html>
<title>Mail A Link Example</title>
<body bgcolor="#FFFFFF">

<form action="mailalink.asp" method="post">
Mail A Link Form Example<br>
<script language=JavaScript>
var title = "<input type='hidden' name='title' value='" + document.title + "'>"
document.write (title)
</script>
<input type="submit" value="Mail This Link">
</form>

<p> </p>

Mail A Link Hyperlink Example<br>
<script language=JavaScript>
var title = "<a href='mailalink.asp?title=" + document.title + "'>Mail This Link</a>"
document.write (title)
</script>

</body>
</html>
mailalink.asp
<html>
<body bgcolor="#FFFFFF">
<title>Mail-A-Link</title>
<% '抓住标题和引用页面
title=trim(request.querystring("title"))
referer=request.servervariables("http_referer")
if title = "" then
title=trim(request.form("title"))
end if
u_submitted=trim(request.form("u_submitted"))
' u_submitted检查看被提交的邮件地址表单
if referer = "" then
'如果没有引用页面显示一个恰当信息
response.write "You have reached the Mail-A-Link page, but we were unable to recognize the previous page"
response.end
end if ' End check for referer
'如果邮件地址的表单已经提交发送邮件
if u_submitted <> "Yes" then
%>
<form action="<%= request.servervariables("script_name") %>" method="post">
<b>Subject:</b> <%= title %>
<br>
<b>Link:</b> <%= referer %>
<p>
Enter the email address of the recipient<br>
<input type="text" name="u_email">
<input type="hidden" name="title" value="<%= title %>">
<input type="hidden" name="referer" value="<%= referer %>">
<input type="hidden" name="u_submitted" value="Yes">
<input type="submit" value="Sumbit">

<% else
referer=request.form("referer")
body = "The following link was sent to you by a user of YourServer.com"
body = body & "Subject:" & title
body = body & "Link:" & referer

'这是邮件创建和执行的开始
'在每个语句以Set或者sm开始
‘实际上发送了邮件信息之前就要移动这个注释

'创建一个新的服务器邮件对象
set sm = server.CreateObject("CDONTS.Newmail")
' Declare what address is sending the message
' sm.from = "requested_link@yourserver.com"

'写出电子邮件的主题用户
' sm.Subject = "Req
uested Link:" & title
'宣布被发送的地址信息
'收件人被设置成输入值
' sm.to = u_email

'写出用户信息的邮件主体
' sm.body = u_body

'发送这个信息
' sm.Send

'清除服务器对象
' set sm = nothing
%>
Your mail has been sent
<% end if 'end check for submission with an email address %>
</body>
</html>