ASP.NET郵件列表設(shè)計(jì)及實(shí)現(xiàn)淺析
一個(gè)吸引人的、功能完備的網(wǎng)站往往具有以下特征：一是內(nèi)容充實(shí)、實(shí)用，吸引對(duì)該類內(nèi)容干興趣的瀏覽者；二是頁(yè)面設(shè)置合理，頁(yè)面設(shè)計(jì)精美；三是網(wǎng)站互動(dòng)性強(qiáng)，用戶和網(wǎng)站或者用戶與用戶之間交流方便高效；四是網(wǎng)站內(nèi)容更新及時(shí)并且可以第一時(shí)間通知用戶。以上這些特點(diǎn)可能對(duì)于一些大型的門戶網(wǎng)站而言，不是特別適合，因?yàn)殚T戶網(wǎng)站的特點(diǎn)，用戶流量往往不是內(nèi)容的區(qū)別而是用戶習(xí)慣、歷史原因和地域區(qū)別（比如廣東地區(qū)的瀏覽者喜歡網(wǎng)易、北京的喜歡新浪）。而對(duì)于一般個(gè)人網(wǎng)站或者企業(yè)網(wǎng)站而言，以上特點(diǎn)就顯得特別重要，因?yàn)檫@類網(wǎng)站內(nèi)容更新不是很快，瀏覽者來(lái)這些網(wǎng)站往往具有特定目的性（比如尋找特定領(lǐng)域的資料或者產(chǎn)品信息），當(dāng)網(wǎng)站內(nèi)容吸引到用戶以后，網(wǎng)站的更新信息或者網(wǎng)站最新新聞就有必要及時(shí)通知瀏覽者，以此來(lái)緊緊抓住瀏覽者，培養(yǎng)瀏覽者的“瀏覽忠誠(chéng)度”。這就是網(wǎng)站郵件列表的作用。
一、ASP.NET郵件列表作用和工作方式
郵件列表是什么呢？郵件列表就是網(wǎng)站或者機(jī)構(gòu)為了及時(shí)通知信息給相關(guān)用戶，將這些用戶的電子郵件保存并且在有信息需要發(fā)送的時(shí)候?qū)⑿畔⒎謩e發(fā)送給所有用戶。表面上，郵件列表和發(fā)送電子郵件的時(shí)候使用的“附送”“密送”差不多，基本沒(méi)什么差別，其實(shí)，它們還是有差別的：
（1）郵件列表具有明確的發(fā)行目的，發(fā)送郵件列表就是為了發(fā)送特定信息給特定用戶；
（2）郵件列表接受人不能取得其他接受人的資料，這一點(diǎn)是郵件列表和電子郵件附送的最大區(qū)別。
我們知道，當(dāng)我們收到一些電子郵件的時(shí)候，發(fā)現(xiàn)在郵件的“附送”欄有很多其他用戶的郵件地址，這就是通過(guò)“附送”方式將郵件發(fā)送給一系列用戶；而通過(guò)郵件列表發(fā)送的郵件，用戶感覺(jué)就是發(fā)送人單獨(dú)發(fā)送給用戶的，不能看見(jiàn)其他用戶的信息，當(dāng)然，實(shí)質(zhì)也是這樣發(fā)送的。這樣，我們就可以知道郵件列表的工作方式其實(shí)是將每個(gè)用戶的電子郵件取出，然后逐個(gè)發(fā)送相同的信息。
郵件列表既然是單獨(dú)逐個(gè)發(fā)送信息，那么，肯定我們不能通過(guò)手工一個(gè)個(gè)發(fā)送，只能通過(guò)軟件來(lái)發(fā)送?，F(xiàn)在，郵件列表的發(fā)送以下幾種方式，一是通過(guò)專門的郵件群發(fā)軟件來(lái)實(shí)現(xiàn)，這些軟件將所有電子郵件地址讀入，然后逐個(gè)發(fā)送，這些軟件的優(yōu)點(diǎn)是可以針對(duì)具體用戶改變郵件主題信息或者發(fā)送人郵箱；缺點(diǎn)是往往這些軟件需要注冊(cè)費(fèi)用；二是通過(guò)專門的郵件列表服務(wù)提供網(wǎng)站實(shí)現(xiàn)，這些網(wǎng)站通過(guò)程序幫助郵件列表發(fā)行者將信息發(fā)送給訂閱者，這是個(gè)人用戶使用最多的一種方式，這種方式的優(yōu)點(diǎn)是簡(jiǎn)單、免費(fèi)，缺點(diǎn)是往往這些服務(wù)提供網(wǎng)站性能不是很穩(wěn)定，郵件延遲情況時(shí)常發(fā)生；三是通過(guò)自己的網(wǎng)站設(shè)計(jì)一個(gè)郵件列表程序，自己管理，這樣的優(yōu)點(diǎn)是發(fā)送信息高效、管理方便，缺點(diǎn)是技術(shù)實(shí)現(xiàn)稍微優(yōu)點(diǎn)困難，不是很適合一般用戶。我們?cè)谶@里就介紹通過(guò)ASP.NET編程實(shí)現(xiàn)一個(gè)功能完備的郵件列表。
二、ASP.NET郵件列表的設(shè)計(jì)
在設(shè)計(jì)之前我們必須知道一點(diǎn)，郵件列表的所有電子郵件地址必須保存成為一個(gè)文件，這里，我們將所有電子郵件地址保存在Access數(shù)據(jù)庫(kù)中，這樣可以很方便的對(duì)郵件地址進(jìn)行增加、修改、刪除等操作。在這里，我們的數(shù)據(jù)庫(kù)名為mail.mdb，位于data目錄下。數(shù)據(jù)表名為mail，只有一個(gè)字段“mail”，用于保存電子郵件地址。
作為一個(gè)長(zhǎng)期的網(wǎng)站功能，我們當(dāng)然要求沒(méi)發(fā)送以此郵件都必須有詳細(xì)的發(fā)送記錄和每個(gè)郵件的發(fā)送情況。這里，我們?cè)诔绦蛑袝?huì)自動(dòng)在log目錄使用發(fā)送郵件的主題為文件名生產(chǎn)一個(gè)HTML格式的Log日志文件。
現(xiàn)在，我們已經(jīng)基本了解了程序的功能和文件結(jié)構(gòu)，我們來(lái)看程序代碼：
- 〈 %@ 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服務(wù)器的名稱
- Smtp.smtpserver="127.0.0.1"
- '定義郵件的發(fā)送地址
- 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
- '默認(rèn)發(fā)送郵件格式為純文本TEXT，
- 如果選擇HTML格式，設(shè)置為HTML格式
- if mode.value="HTML" then
- mailObj.BodyFormat=MailFormat.Html
- end if
- '設(shè)置郵件發(fā)送級(jí)別為高
- 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
- '鏈接數(shù)據(jù)庫(kù)
- '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" 〉
- 發(fā)送郵箱： 〈 /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" 〉
- 標(biāo)題： 〈 /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" 〉
- 內(nèi)容：〈 /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 〉
程序運(yùn)行界面如下（圖一）：
在以上的程序中，我們將一些比較常見(jiàn)的功能設(shè)置成為函數(shù)，在主體程序中直接調(diào)用這些函數(shù)，這樣，程序看起來(lái)比較簡(jiǎn)潔，修改也很簡(jiǎn)單。在這里，我們簡(jiǎn)單介紹一下這些函數(shù)，一是連接數(shù)據(jù)庫(kù)的ConnectDB(txtdatabase AS String)，這個(gè)函數(shù)使用Access數(shù)據(jù)庫(kù)的相對(duì)位置作為函數(shù)參數(shù)，返回?cái)?shù)據(jù)庫(kù)連接OleDbConnection；函數(shù)readdb(conn As Oledbconnection,txtsql As String)可以直接執(zhí)行一條SQL語(yǔ)句，返回OledbDataReader。在程序中，我們將每一個(gè)郵件發(fā)送的結(jié)果保存并且最好生成一個(gè)HTML格式的日志文件。因?yàn)槌绦蛑形覀冇玫搅藬?shù)據(jù)庫(kù)、電子郵件和文件操作，以此，在引入名字空間的時(shí)候，我們需要將“System.Data.OleDb”、“System.Web.Mail”和“System.IO”引入。
在使用以上ASP.NET郵件列表程序的時(shí)候，我們需要注意幾個(gè)問(wèn)題，第一是Smtp服務(wù)器的設(shè)置，我們知道，Smtp服務(wù)器是郵件發(fā)送服務(wù)器，而現(xiàn)在一些免費(fèi)郵件提供商是不再提供針對(duì)所有郵件提供Smtp服務(wù)，在發(fā)送郵件的時(shí)候，需要驗(yàn)證用戶信息，而我們看到，在以上的程序中甚至整個(gè)ASP.NET的郵件部分，根本沒(méi)有考慮Smtp用戶驗(yàn)證問(wèn)題，以此，我們不能隨便使用一個(gè)Smtp服務(wù)器，而必須使用完全免費(fèi)的Smtp服務(wù)器，這樣的服務(wù)器現(xiàn)在已經(jīng)很少了。所以，如果有條件，最好我們自己設(shè)置計(jì)算機(jī)為Smtp服務(wù)器，怎樣實(shí)現(xiàn)，我們可以下載EasyMail等軟件。第二是郵件發(fā)送速度問(wèn)題，如果Smtp服務(wù)器在本地計(jì)算機(jī)，發(fā)送速度很快的，基本上不用擔(dān)心，如果不是本地服務(wù)器，那么發(fā)送的時(shí)候最好不要以此太多，一是速度問(wèn)題，二是以此發(fā)送太多郵件，Smtp服務(wù)器可能認(rèn)為是垃圾郵件而拒絕服務(wù)，這一點(diǎn)我們可以自己試驗(yàn)；第三是郵件發(fā)送發(fā)送人的設(shè)定問(wèn)題，通過(guò)這個(gè)程序或者說(shuō)通過(guò)使用ASP.NET的郵件功能，我們完全可以在郵件發(fā)送人隨意寫，這樣，很容易別有用心的人就可以通過(guò)這個(gè)功能來(lái)發(fā)送垃圾郵件，當(dāng)然，這些郵件追查來(lái)源很簡(jiǎn)單，直接查IP就可以，隨意，我們最好不要隨意發(fā)送。
三、總結(jié)
以上我們用一個(gè)具體的實(shí)例介紹了完整ASP.NET郵件列表的設(shè)計(jì)，該程序完全根據(jù)實(shí)際需要設(shè)計(jì)，具有較大的實(shí)用性。在程序?qū)崿F(xiàn)中，我們同時(shí)使用了數(shù)據(jù)庫(kù)、郵件和文件操作，涉及內(nèi)容較多，有興趣的朋友可以根據(jù)自己的實(shí)際要求適當(dāng)修改，使程序功能更加全面。
【編輯推薦】
