如何实现“向好友推荐”功能？
- 格式：doc
- 大小：44.00 KB
- 文档页数：2
如何实现“向好友推荐”功能？
下面看看我们的演示：
recommend.asp
' 发送页面
这里飞鹰用一个简单的例子向大家介绍如何使用的邮件发送功能。
首先，我们先做一个发送界面。
recommend.asp, 其中，id代表文章的编号。
<html>
<body>
欢迎光临随风起舞!您向朋友推荐的文章(商品信息)是:<%=request("title")%><BR>
<form action="mail.aspx">
您的信箱:<INPUT TYPE="text" NAME="sender"><BR>
朋友信箱:<INPUT TYPE="text" NAME="accepter"><BR>
<INPUT TYPE="hidden" name="title" value="<%=request("title")%>">
' title是文章标题或商品信息
<INPUT TYPE="hidden" name="id" value="<%=request("id")%>">
<INPUT TYPE="submit" value="发送"><INPUT TYPE="reset" value="重写">
</form>
</body>
</html>
mail.aspx
' 推荐
<% @Page Language="C#" Debug="true"%>
<% @Import Namespace="System.Web.Mail" %>
<%
MailMessage msgMail = new MailMessage();
msgMail.To = Request["accepter"];
//邮件接受者
= "webmaster@";
msgMail.From = Request["sender"];
msgMail.Subject = "您的朋友从随风起舞向您推荐了一篇文章(商品信息)";
msgMail.BodyFormat = MailFormat.Html;
string strBody = "<html><body><b>" + Request["accepter"] +"</b>,您好。
<br>" + "我<font color=\"red\">"+ Request["sender"]+ "</font>在<a href=>随风起舞</a>看到了一篇精彩文章<a href=/article/fine.asp?ID="
+Request["id"]+ Request["title"]+"</a>.特向您推荐,了解详情请直接点击<a href=/lanmu/dot.asp?ID=" +Request["id"]+ ">查看.</a>。
</body></html>";
//邮件内容
msgMail.Body = strBody;
SmtpMail.Send(msgMail);
Response.Write("恭喜,推荐信发送成功!请按此处<a href=>返回</a>");
%>。
