- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 9ipad版office如何激活? office365激活的图文说明教程
- 10最新的Adobe Illustrator CS4序列号大全
- 11Mac怎么通过设置VPN来登录youtube等国外网站
- 12qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
[摘要]广东南海市公安局计算机安全监察股 喻凯 一个吸引人的、功能完备的网站往往具有以下特征：一是内容充实、实用，吸引对该类内容干兴趣的浏览者；二是页面设置合理，页面设计精美；三是网站互动性强，用户和网站或者用户与用户之间交流方便高效；四是网站内容更新及时并且可以第一时间通知用户。以上这些特点可能对于一...
广东南海市公安局计算机安全监察股 喻凯
一个吸引人的、功能完备的网站往往具有以下特征：一是内容充实、实用，吸引对该类内容干兴趣的浏览者；二是页面设置合理，页面设计精美；三是网站互动性强，用户和网站或者用户与用户之间交流方便高效；四是网站内容更新及时并且可以第一时间通知用户。以上这些特点可能对于一些大型的门户网站而言，不是特别适合，因为门户网站的特点，用户流量往往不是内容的区别而是用户习惯、历史原因和地域区别（比如广东地区的浏览者喜欢网易、北京的喜欢新浪）。而对于一般个人网站或者企业网站而言，以上特点就显得特别重要，因为这类网站内容更新不是很快，浏览者来这些网站往往具有特定目的性（比如寻找特定领域的资料或者产品信息），当网站内容吸引到用户以后，网站的更新信息或者网站最新新闻就有必要及时通知浏览者，以此来紧紧抓住浏览者，培养浏览者的“浏览忠诚度”。这就是网站邮件列表的作用。
一、邮件列表作用和工作方式
邮件列表是什么呢？邮件列表就是网站或者机构为了及时通知信息给相关用户，将这些用户的电子邮件保存并且在有信息需要发送的时候将信息分别发送给所有用户。表面上，邮件列表和发送电子邮件的时候使用的“附送”“密送”差不多，基本没什么差别，其实，它们还是有差别的：（1）邮件列表具有明确的发行目的，发送邮件列表就是为了发送特定信息给特定用户；（2）邮件列表接受人不能取得其他接受人的资料，这一点是邮件列表和电子邮件附送的最大区别。我们知道，当我们收到一些电子邮件的时候，发现在邮件的“附送”栏有很多其他用户的邮件地址，这就是通过“附送”方式将邮件发送给一系列用户；而通过邮件列表发送的邮件，用户感觉就是发送人单独发送给用户的，不能看见其他用户的信息，当然，实质也是这样发送的。这样，我们就可以知道邮件列表的工作方式其实是将每个用户的电子邮件取出，然后逐个发送相同的信息。
邮件列表既然是单独逐个发送信息，那么，肯定我们不能通过手工一个个发送，只能通过软件来发送。现在，邮件列表的发送以下几种方式，一是通过专门的邮件群发软件来实现，这些软件将所有电子邮件地址读入，然后逐个发送，这些软件的优点是可以针对具体用户改变邮件主题信息或者发送人邮箱；缺点是往往这些软件需要注册费用；二是通过专门的邮件列表服务提供网站实现，这些网站通过程序帮助邮件列表发行者将信息发送给订阅者，这是个人用户使用最多的一种方式，这种方式的优点是简单、免费，缺点是往往这些服务提供网站性能不是很稳定，邮件延迟情况时常发生；三是通过自己的网站设计一个邮件列表程序，自己管理，这样的优点是发送信息高效、管理方便，缺点是技术实现稍微优点困难，不是很适合一般用户。我们在这里就介绍通过ASP.NET编程实现一个功能完备的邮件列表。
二、邮件列表的设计
在设计之前我们必须知道一点，邮件列表的所有电子邮件地址必须保存成为一个文件，这里，我们将所有电子邮件地址保存在Access数据库中，这样可以很方便的对邮件地址进行增加、修改、删除等操作。在这里，我们的数据库名为mail.mdb，位于data目录下。数据表名为mail，只有一个字段“mail”，用于保存电子邮件地址。
作为一个长期的网站功能，我们当然要求没发送以此邮件都必须有详细的发送记录和每个邮件的发送情况。这里，我们在程序中会自动在log目录使用发送邮件的主题为文件名生产一个HTML格式的Log日志文件。
现在，我们已经基本了解了程序的功能和文件结构，我们来看程序代码：
<%@ Page Language="VB" Debug="True" Explicit="True"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.IO" %>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>邮件列表</title>
<style>
<!--
a:link{color:#0066FF;text-decoration:none;font-size:"9 pt"}
a:visited{color:#000066;text-decoration:none;font-size:"9 pt"}
a:actived{color:#FF0000;font-size:"9 pt"}
a:hover{color:#FF0000;font-size:"9 pt"}
table{font-size:"11 pt"}
-->
</style>
</head>
<body>
<SCRIPT language=VB RUNAT="server">
Sub SendMail(Obj As Object, E As EventArgs)
lbmsg.Text="
Dim mailObj AS new MailMessage
Dim smtp AS new SmtpMail
'定义SMTP服务器的名称
Smtp.smtpserver="127.0.0.1"
'定义邮件的发送地址
mailObj.From=sendmailbox.value
'定义邮件的接收地址
Dim conn AS OleDbConnection
conn=connectdb("data\mail.mdb")
conn.open()
Dim reader As oledbdatareader
reader=readdb(conn,"select * from mail")
while (reader.read())
try
mailObj.To=reader("mail")
mailObj.Subject =subject.value
mailObj.Body =content.value
'默认发送邮件格式为纯文本TEXT，如果选择HTML格式，设置为HTML格式
if mode.value="HTML" then
mailObj.BodyFormat=MailFormat.Html
end if
'设置邮件发送级别为高
mailObj.Priority = MailPriority.High
Smtp.Send(mailObj)
lbmsg.text=lbmsg.text+reader("mail")+"OK!Time:"+Now().ToString()+"<br>"
catch er as Exception
lbmsg.text=lbmsg.text+er.message+"<br>"
finally
End Try
End While
reader.close()
Dim strwriterobj As StreamWriter
try
strwriterobj= File.CreateText(Server.MapPath("log\")+subject.value+".htm")
strwriterobj.Write("<HTML><head><meta http-equiv='Content-Language' content='zh-cn'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><BODY>"+lbmsg.text+"</BODY></HTML>")
catch er as Exception
lbmsg.text=lbmsg.text+er.message+"<br>"
finally
strwriterobj.close
lbmsg.text=lbmsg.text+"日志保存成功！保存目录：<br>"+Server.MapPath("log\")+subject.value+".htm"
End Try
End Sub
'链接数据库
'www.knowsky.com
Function ConnectDB(txtdatabase AS String) As Oledbconnection
Dim conn AS OledbConnection
Dim connstr As String
connstr="Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" +Server.MapPath(txtdatabase)
connectdb=New OledbConnection(connstr)
End Function
'读取一条记录
Function readdb(conn As Oledbconnection,txtsql As String) As OledbDataReader
Dim cmd As OledbCommand
cmd=new oledbcommand(txtsql,conn)
readdb=cmd.executereader()
End Function
</SCRIPT>
<p align="center"><font size="5" face="楷体_GB2312">邮件列表</font></p>
<hr width="60%" size="1">
<div align="center">
<center>
<table border="0" width="770">
<tr>
<td width="100%">
<form method="POST" runat="Server">
<table border="0" width="100%" height="125">
<tr>
<td width="15%" align="right" height="24"> 发送邮箱： </td>
<td width="85%" height="24"><input type="text" name="sendmailbox" id="sendmailbox" size="50" runat="Server"/></td>
</tr>
<tr>
<td width="15%" align="right" height="24"> 标题： </td>
<td width="85%" height="24"><input type="text" name="subject" id="subject" size="50" runat="Server"/></td>
</tr>
<tr>
<td width="15%" align="right" height="60">内容：</td>
<td width="85%" height="60"><textarea rows="6" name="content" cols="80" id="content" runat="Server"/></textarea></td>
</tr>
<tr>
<td width="15%" align="right" height="23">方式：</td>
<td width="85%" height="23"><select size="1" name="mode" id="mode" runat="Server">
<option value="Text" selected>Text</option>
<option value="HTML">HTML</option>
</select></td>
</tr>
</table>
<p align="center"><input type="button" value=" 提 交 " name="ok" onserverclick="sendmail" runat="Server"/></p>
</form>
<ASP:Label id="lbmsg" runat="Server"/>
<p>
</td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</center>
</div>
</body>
</html>
程序运行界面如下（图一）：
在以上的程序中，我们将一些比较常见的功能设置成为函数，在主体程序中直接调用这些函数，这样，程序看起来比较简洁，修改也很简单。在这里，我们简单介绍一下这些函数，一是连接数据库的ConnectDB(txtdatabase AS String)，这个函数使用Access数据库的相对位置作为函数参数，返回数据库连接OleDbConnection；函数readdb(conn As Oledbconnection,txtsql As String)可以直接执行一条SQL语句，返回OledbDataReader。在程序中，我们将每一个邮件发送的结果保存并且最好生成一个HTML格式的日志文件。因为程序中我们用到了数据库、电子邮件和文件操作，以此，在引入名字空间的时候，我们需要将“System.Data.OleDb”、“System.Web.Mail”和“System.IO”引入。
在使用以上邮件列表程序的时候，我们需要注意几个问题，第一是Smtp服务器的设置，我们知道，Smtp服务器是邮件发送服务器，而现在一些免费邮件提供商是不再提供针对所有邮件提供Smtp服务，在发送邮件的时候，需要验证用户信息，而我们看到，在以上的程序中甚至整个ASP.NET的邮件部分，根本没有考虑Smtp用户验证问题，以此，我们不能随便使用一个Smtp服务器，而必须使用完全免费的Smtp服务器，这样的服务器现在已经很少了。所以，如果有条件，最好我们自己设置计算机为Smtp服务器，怎样实现，我们可以下载EasyMail等软件。第二是邮件发送速度问题，如果Smtp服务器在本地计算机，发送速度很快的，基本上不用担心，如果不是本地服务器，那么发送的时候最好不要以此太多，一是速度问题，二是以此发送太多邮件，Smtp服务器可能认为是垃圾邮件而拒绝服务，这一点我们可以自己试验；第三是邮件发送发送人的设定问题，通过这个程序或者说通过使用ASP.NET的邮件功能，我们完全可以在邮件发送人随意写，这样，很容易别有用心的人就可以通过这个功能来发送垃圾邮件，当然，这些邮件追查来源很简单，直接查IP就可以，随意，我们最好不要随意发送。
三、总结
以上我们用一个具体的实例介绍了完整邮件列表的设计，该程序完全根据实际需要设计，具有较大的实用性。在程序实现中，我们同时使用了数据库、邮件和文件操作，涉及内容较多，有兴趣的朋友可以根据自己的实际要求适当修改，使程序功能更加全面。
推荐资讯 总人气榜
最新教程 本月人气
- 1qq浏览如何删除书籍 qq浏览删除书籍流程分享
- 2网易云课堂课程如何结束 网易云课堂结束课程图文说明教程说明
- 3第5人格新版本更新了什么 第5人格新版本更新内容说明
- 4qq浏览器如何兑换腾讯视频会员 qq浏览器兑换腾讯视频会员流程
- 5钉钉如何去掉头像帽子 钉钉去掉头像帽子图文说明教程分享
- 6拼多多店铺提现失败如何办 拼多多店铺提现失败处理方法
- 7美图秀秀社交圈如何上热门 美图秀秀社交圈上热门方法分享
- 8酷狗音乐如何投稿歌单 酷狗音乐投稿歌单流程讲解
- 9美图秀秀社交圈如何玩 美图秀秀社交圈玩法分享
- 10360相机如何删除水印 360相机删除水印流程
- 11qq浏览粉丝值如何查看 qq浏览粉丝值查看方法
- 12网易云音乐如何自动选择排序 网易云音乐自动选择排序图文说明教程
