ASP.NET邮件列表设计及实现浅析

一个吸引人的、功能完备的网站往往具有以下特征：一是内容充实、实用，吸引对该类内容干兴趣的浏览者；二是页面设置合理，页面设计精美；三是网站互动性强，用户和网站或者用户与用户之间交流方便高效；四是网站内容更新及时并且可以第一时间通知用户。以上这些特点可能对于一些大型的门户网站而言，不是特别适合，因为门户网站的特点，用户流量往往不是内容的区别而是用户习惯、历史原因和地域区别（比如广东地区的浏览者喜欢网易、北京的喜欢新浪）。而对于一般个人网站或者企业网站而言，以上特点就显得特别重要，因为这类网站内容更新不是很快，浏览者来这些网站往往具有特定目的性（比如寻找特定领域的资料或者产品信息），当网站内容吸引到用户以后，网站的更新信息或者网站最新新闻就有必要及时通知浏览者，以此来紧紧抓住浏览者，培养浏览者的“浏览忠诚度”。这就是网站邮件列表的作用。

创新互联建站服务项目包括嘉峪关网站建设、嘉峪关网站制作、嘉峪关网页制作以及嘉峪关网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，嘉峪关网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到嘉峪关省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

一、ASP.NET邮件列表作用和工作方式

邮件列表是什么呢？邮件列表就是网站或者机构为了及时通知信息给相关用户，将这些用户的电子邮件保存并且在有信息需要发送的时候将信息分别发送给所有用户。表面上，邮件列表和发送电子邮件的时候使用的“附送”“密送”差不多，基本没什么差别，其实，它们还是有差别的：

（1）邮件列表具有明确的发行目的，发送邮件列表就是为了发送特定信息给特定用户；

（2）邮件列表接受人不能取得其他接受人的资料，这一点是邮件列表和电子邮件附送的最大区别。

我们知道，当我们收到一些电子邮件的时候，发现在邮件的“附送”栏有很多其他用户的邮件地址，这就是通过“附送”方式将邮件发送给一系列用户；而通过邮件列表发送的邮件，用户感觉就是发送人单独发送给用户的，不能看见其他用户的信息，当然，实质也是这样发送的。这样，我们就可以知道邮件列表的工作方式其实是将每个用户的电子邮件取出，然后逐个发送相同的信息。

邮件列表既然是单独逐个发送信息，那么，肯定我们不能通过手工一个个发送，只能通过软件来发送。现在，邮件列表的发送以下几种方式，一是通过专门的邮件群发软件来实现，这些软件将所有电子邮件地址读入，然后逐个发送，这些软件的优点是可以针对具体用户改变邮件主题信息或者发送人邮箱；缺点是往往这些软件需要注册费用；二是通过专门的邮件列表服务提供网站实现，这些网站通过程序帮助邮件列表发行者将信息发送给订阅者，这是个人用户使用最多的一种方式，这种方式的优点是简单、免费，缺点是往往这些服务提供网站性能不是很稳定，邮件延迟情况时常发生；三是通过自己的网站设计一个邮件列表程序，自己管理，这样的优点是发送信息高效、管理方便，缺点是技术实现稍微优点困难，不是很适合一般用户。我们在这里就介绍通过ASP.NET编程实现一个功能完备的邮件列表。

二、ASP.NET邮件列表的设计

在设计之前我们必须知道一点，邮件列表的所有电子邮件地址必须保存成为一个文件，这里，我们将所有电子邮件地址保存在Access数据库中，这样可以很方便的对邮件地址进行增加、修改、删除等操作。在这里，我们的数据库名为mail.mdb，位于data目录下。数据表名为mail，只有一个字段“mail”，用于保存电子邮件地址。

作为一个长期的网站功能，我们当然要求没发送以此邮件都必须有详细的发送记录和每个邮件的发送情况。这里，我们在程序中会自动在log目录使用发送邮件的主题为文件名生产一个HTML格式的Log日志文件。
现在，我们已经基本了解了程序的功能和文件结构，我们来看程序代码：

 
 
 
 
    
  
  
  
  
  1. 〈 %@ Page Language="VB" Debug="True"   
    2.   
  
  
  
  2. Explicit="True"% 〉   
    3.   
  
  
  
  3. 〈 %@ Import Namespace="System.Data" % 〉   
    4.   
  
  
  
  4. 〈 %@ Import Namespace="System.Data.OleDb" % 〉   
    5.   
  
  
  
  5. 〈 %@ Import Namespace="System.Web.Mail" % 〉   
    6.   
  
  
  
  6. 〈 %@ Import Namespace="System.IO" % 〉   
    7.   
  
  
  
  7.  
    8.   
  
  
  
  8. 〈 html 〉   
    9.   
  
  
  
  9. 〈 head 〉   
    10.   
  
  
  
  10. 〈 meta http-equiv="Content-Language"   
    11.   
  
  
  
  11. content="zh-cn" 〉   
    12.   
  
  
  
  12. 〈 meta http-equiv="Content-Type"   
    13.   
  
  
  
  13. content="text/html; charset=gb2312" 〉   
    14.   
  
  
  
  14. 〈 title 〉邮件列表〈 /title 〉   
    15.   
  
  
  
  15.  
    16.   
  
  
  
  16. 〈 style 〉   
    17.   
  
  
  
  17. 〈 !--   
    18.   
  
  
  
  18. a:link{color:#0066FF;text-decoration:none;  
    19.   
  
  
  
  19. font-size:"9 pt"}   
    20.   
  
  
  
  20. a:visited{color:#000066;text-decoration:none;  
    21.   
  
  
  
  21. font-size:"9 pt"}   
    22.   
  
  
  
  22. a:actived{color:#FF0000;font-size:"9 pt"}   
    23.   
  
  
  
  23. a:hover{color:#FF0000;font-size:"9 pt"}   
    24.   
  
  
  
  24. table{font-size:"11 pt"}   
    25.   
  
  
  
  25. -- 〉   
    26.   
  
  
  
  26. 〈 /style 〉   
    27.   
  
  
  
  27. 〈 /head 〉   
    28.   
  
  
  
  28. 〈 body 〉   
    29.   
  
  
  
  29. 〈 SCRIPT language=VB RUNAT="server" 〉   
    30.   
  
  
  
  30. Sub SendMail(Obj As Object, E As EventArgs)   
    31.   
  
  
  
  31. lbmsg.Text=""   
    32.   
  
  
  
  32.  
    33.   
  
  
  
  33. Dim mailObj AS new MailMessage   
    34.   
  
  
  
  34. Dim smtp AS new SmtpMail   
    35.   
  
  
  
  35. '定义SMTP服务器的名称   
    36.   
  
  
  
  36. Smtp.smtpserver="127.0.0.1"   
    37.   
  
  
  
  37. '定义邮件的发送地址   
    38.   
  
  
  
  38. mailObj.From=sendmailbox.value   
    39.   
  
  
  
  39. '定义邮件的接收地址   
    40.   
  
  
  
  40. Dim conn AS OleDbConnection   
    41.   
  
  
  
  41. conn=connectdb("data\mail.mdb")   
    42.   
  
  
  
  42. conn.open()   
    43.   
  
  
  
  43. Dim reader As oledbdatareader   
    44.   
  
  
  
  44. reader=readdb(conn,"select * from mail")   
    45.   
  
  
  
  45.  
    46.   
  
  
  
  46. while (reader.read())   
    47.   
  
  
  
  47. try   
    48.   
  
  
  
  48. mailObj.To=reader("mail")   
    49.   
  
  
  
  49.  
    50.   
  
  
  
  50. mailObj.Subject =subject.value   
    51.   
  
  
  
  51. mailObj.Body =content.value   
    52.   
  
  
  
  52. '默认发送邮件格式为纯文本TEXT，  
    53.   
  
  
  
  53. 如果选择HTML格式，设置为HTML格式   
    54.   
  
  
  
  54. if mode.value="HTML" then   
    55.   
  
  
  
  55. mailObj.BodyFormat=MailFormat.Html   
    56.   
  
  
  
  56. end if   
    57.   
  
  
  
  57. '设置邮件发送级别为高   
    58.   
  
  
  
  58. mailObj.Priority = MailPriority.High   
    59.   
  
  
  
  59.  
    60.   
  
  
  
  60. Smtp.Send(mailObj)   
    61.   
  
  
  
  61.  
    62.   
  
  
  
  62. lbmsg.text=lbmsg.text+reader("mail")  
    63.   
  
  
  
  63. +"OK!Time:"+Now().ToString()+"〈 br 〉"   
    64.   
  
  
  
  64. catch er as Exception   
    65.   
  
  
  
  65. lbmsg.text=lbmsg.text+er.message+"〈 br 〉"   
    66.   
  
  
  
  66. finally   
    67.   
  
  
  
  67. End Try   
    68.   
  
  
  
  68. End While   
    69.   
  
  
  
  69. reader.close()   
    70.   
  
  
  
  70. Dim strwriterobj As StreamWriter   
    71.   
  
  
  
  71. try   
    72.   
  
  
  
  72. strwriterobj= File.CreateText  
    73.   
  
  
  
  73. (Server.MapPath("log\")+subject.value+".htm")   
    74.   
  
  
  
  74. strwriterobj.Write("〈 HTML 〉〈 head 〉  
    75.   
  
  
  
  75. 〈 meta http-equiv='Content-Language'   
    76.   
  
  
  
  76. content='zh-cn' 〉  
    77.   
  
  
  
  77. 〈 meta http-equiv='Content-Type'   
    78.   
  
  
  
  78. content='text/html; charset=gb2312' 〉  
    79.   
  
  
  
  79. 〈 /head 〉〈 BODY 〉"+lbmsg.text+" 
    80.   
  
  
  
  80. 〈 /BODY 〉〈 /HTML 〉")   
    81.   
  
  
  
  81. catch er as Exception   
    82.   
  
  
  
  82. lbmsg.text=lbmsg.text+er.message+"〈 br 〉"   
    83.   
  
  
  
  83. finally   
    84.   
  
  
  
  84. strwriterobj.close   
    85.   
  
  
  
  85. lbmsg.text=lbmsg.text+"日志保存成功！保存目录：  
    86.   
  
  
  
  86. 〈 br 〉"+Server.MapPath("log\")+subject.value+".htm"   
    87.   
  
  
  
  87. End Try   
    88.   
  
  
  
  88. End Sub   
    89.   
  
  
  
  89.  
    90.   
  
  
  
  90. '链接数据库   
    91.   
  
  
  
  91. 'www.knowsky.com   
    92.   
  
  
  
  92. Function ConnectDB(txtdatabase AS String)   
    93.   
  
  
  
  93. As Oledbconnection   
    94.   
  
  
  
  94. Dim conn AS OledbConnection   
    95.   
  
  
  
  95. Dim connstr As String   
    96.   
  
  
  
  96. connstr="Provider=Microsoft.Jet.OLEDB.4.0;   
    97.   
  
  
  
  97. Persist Security Info=False; Data Source="   
    98.   
  
  
  
  98. +Server.MapPath(txtdatabase)   
    99.   
  
  
  
  99. connectdb=New OledbConnection(connstr)   
    100.   
  
  
  
  100. End Function   
    101.   
  
  
  
  101.  
    102.   
  
  
  
  102. '读取一条记录   
    103.   
  
  
  
  103. Function readdb(conn As Oledbconnection,  
    104.   
  
  
  
  104. txtsql As String) As OledbDataReader   
    105.   
  
  
  
  105. Dim cmd As OledbCommand   
    106.   
  
  
  
  106. cmd=new oledbcommand(txtsql,conn)   
    107.   
  
  
  
  107. readdb=cmd.executereader()   
    108.   
  
  
  
  108. End Function   
    109.   
  
  
  
  109. 〈 /SCRIPT 〉   
    110.   
  
  
  
  110.  
    111.   
  
  
  
  111. 〈 p align="center" 〉〈 font size="5"   
    112.   
  
  
  
  112. face="楷体_GB2312" 〉邮件列表〈 /font 〉〈 /p 〉   
    113.   
  
  
  
  113. 〈 hr width="60%" size="1" 〉   
    114.   
  
  
  
  114. 〈 div align="center" 〉   
    115.   
  
  
  
  115. 〈 center 〉   
    116.   
  
  
  
  116. 〈 table border="0" width="770" 〉   
    117.   
  
  
  
  117. 〈 tr 〉   
    118.   
  
  
  
  118. 〈 td width="100%" 〉   
    119.   
  
  
  
  119. 〈 form method="POST" runat="Server" 〉   
    120.   
  
  
  
  120. 〈 table border="0" width="100%" height="125" 〉   
    121.   
  
  
  
  121. 〈 tr 〉   
    122.   
  
  
  
  122. 〈 td width="15%" align="right" height="24" 〉   
    123.   
  
  
  
  123. 发送邮箱： 〈 /td 〉   
    124.   
  
  
  
  124. 〈 td width="85%" height="24" 〉〈 input type="text"   
    125.   
  
  
  
  125. name="sendmailbox" id="sendmailbox"   
    126.   
  
  
  
  126. size="50" runat="Server"/ 〉〈 /td 〉   
    127.   
  
  
  
  127. 〈 /tr 〉   
    128.   
  
  
  
  128. 〈 tr 〉   
    129.   
  
  
  
  129. 〈 td width="15%" align="right" height="24" 〉   
    130.   
  
  
  
  130. 标题： 〈 /td 〉   
    131.   
  
  
  
  131. 〈 td width="85%" height="24" 〉〈 input type="text"   
    132.   
  
  
  
  132. name="subject" id="subject" size="50"   
    133.   
  
  
  
  133. runat="Server"/ 〉〈 /td 〉   
    134.   
  
  
  
  134. 〈 /tr 〉   
    135.   
  
  
  
  135. 〈 tr 〉   
    136.   
  
  
  
  136. 〈 td width="15%" align="right" height="60" 〉  
    137.   
  
  
  
  137. 内容：〈 /td 〉   
    138.   
  
  
  
  138. 〈 td width="85%" height="60" 〉〈 textarea rows="6"   
    139.   
  
  
  
  139. name="content" cols="80" id="content" runat="Server"/ 〉  
    140.   
  
  
  
  140. 〈 /textarea 〉〈 /td 〉   
    141.   
  
  
  
  141. 〈 /tr 〉   
    142.   
  
  
  
  142. 〈 tr 〉   
    143.   
  
  
  
  143. 〈 td width="15%" align="right" height="23" 〉方式：〈 /td 〉   
    144.   
  
  
  
  144. 〈 td width="85%" height="23" 〉〈 select size="1"   
    145.   
  
  
  
  145. name="mode" id="mode" runat="Server" 〉   
    146.   
  
  
  
  146. 〈 option value="Text" selected 〉Text〈 /option 〉   
    147.   
  
  
  
  147. 〈 option value="HTML" 〉HTML〈 /option 〉   
    148.   
  
  
  
  148. 〈 /select 〉〈 /td 〉   
    149.   
  
  
  
  149. 〈 /tr 〉   
    150.   
  
  
  
  150. 〈 /table 〉   
    151.   
  
  
  
  151. 〈 p align="center" 〉〈 input type="button"   
    152.   
  
  
  
  152. value=" 提 交 " name="ok" onserverclick="sendmail"   
    153.   
  
  
  
  153. runat="Server"/ 〉〈 /p 〉   
    154.   
  
  
  
  154. 〈 /form 〉   
    155.   
  
  
  
  155. 〈 ASP:Label id="lbmsg" runat="Server"/ 〉   
    156.   
  
  
  
  156. 〈 p 〉   
    157.   
  
  
  
  157. 〈 /td 〉   
    158.   
  
  
  
  158. 〈 /tr 〉   
    159.   
  
  
  
  159. 〈 tr 〉   
    160.   
  
  
  
  160. 〈 td width="100%" 〉〈 /td 〉   
    161.   
  
  
  
  161. 〈 /tr 〉   
    162.   
  
  
  
  162. 〈 /table 〉   
    163.   
  
  
  
  163. 〈 /center 〉   
    164.   
  
  
  
  164. 〈 /div 〉   
    165.   
  
  
  
  165. 〈 /body 〉   
    166.   
  
  
  
  166. 〈 /html 〉 
    167.

程序运行界面如下（图一）：

在以上的程序中，我们将一些比较常见的功能设置成为函数，在主体程序中直接调用这些函数，这样，程序看起来比较简洁，修改也很简单。在这里，我们简单介绍一下这些函数，一是连接数据库的ConnectDB(txtdatabase AS String)，这个函数使用Access数据库的相对位置作为函数参数，返回数据库连接OleDbConnection；函数readdb(conn As Oledbconnection,txtsql As String)可以直接执行一条SQL语句，返回OledbDataReader。在程序中，我们将每一个邮件发送的结果保存并且最好生成一个HTML格式的日志文件。因为程序中我们用到了数据库、电子邮件和文件操作，以此，在引入名字空间的时候，我们需要将“System.Data.OleDb”、“System.Web.Mail”和“System.IO”引入。

在使用以上ASP.NET邮件列表程序的时候，我们需要注意几个问题，第一是Smtp服务器的设置，我们知道，Smtp服务器是邮件发送服务器，而现在一些免费邮件提供商是不再提供针对所有邮件提供Smtp服务，在发送邮件的时候，需要验证用户信息，而我们看到，在以上的程序中甚至整个ASP.NET的邮件部分，根本没有考虑Smtp用户验证问题，以此，我们不能随便使用一个Smtp服务器，而必须使用完全免费的Smtp服务器，这样的服务器现在已经很少了。所以，如果有条件，最好我们自己设置计算机为Smtp服务器，怎样实现，我们可以下载EasyMail等软件。第二是邮件发送速度问题，如果Smtp服务器在本地计算机，发送速度很快的，基本上不用担心，如果不是本地服务器，那么发送的时候最好不要以此太多，一是速度问题，二是以此发送太多邮件，Smtp服务器可能认为是垃圾邮件而拒绝服务，这一点我们可以自己试验；第三是邮件发送发送人的设定问题，通过这个程序或者说通过使用ASP.NET的邮件功能，我们完全可以在邮件发送人随意写，这样，很容易别有用心的人就可以通过这个功能来发送垃圾邮件，当然，这些邮件追查来源很简单，直接查IP就可以，随意，我们最好不要随意发送。

三、总结

以上我们用一个具体的实例介绍了完整ASP.NET邮件列表的设计，该程序完全根据实际需要设计，具有较大的实用性。在程序实现中，我们同时使用了数据库、邮件和文件操作，涉及内容较多，有兴趣的朋友可以根据自己的实际要求适当修改，使程序功能更加全面。

文章名称：ASP.NET邮件列表设计及实现浅析
链接地址：http://www.mswzjz.com/qtweb/news42/163142.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

域名注册知识

行业网站建设

响应式网站建设公司　　 　香港机房服务器托管　　 　成都网站维护　　 　seo网络营销推广　　 　成都网站推广　　 　帝美豪门窗　　 　百度推广公司　　 　泸县网站建设　　 　软文发布平台　　 　做网站　　 　网上商城管理系统　　 　响应式网站　　 　成都模版网站建设　　 　移动手机网站制作　　 　自适应网站设计　　 　成都展柜设计　　 　响应式建站　　 　成都网站维护　　 　成都网站推广公司　　 　企业网站设计