程式師世界 >> 編程語言 >> .NET網頁編程 >> .NET實例教程 >> 用ASP.NET設計高效郵件列表

用ASP.NET設計高效郵件列表

編輯：.NET實例教程

廣東南海市公安局計算機安全監察股喻凱

一個吸引人的、功能完備的網站往往具有以下特征：一是內容充實、實用，吸引對該類內容干興趣的浏覽者；二是頁面設置合理，頁面設計精美；三是網站互動性強，用戶和網站或者用戶與用戶之間交流方便高效；四是網站內容更新及時並且可以第一時間通知用戶。以上這些特點可能對於一些大型的門戶網站而言，不是特別適合，因為門戶網站的特點，用戶流量往往不是內容的區別而是用戶習慣、歷史原因和地域區別（比如廣東地區的浏覽者喜歡網易、北京的喜歡新浪）。而對於一般個人網站或者企業網站而言，以上特點就顯得特別重要，因為這類網站內容更新不是很快，浏覽者來這些網站往往具有特定目的性（比如尋找特定領域的資料或者產品信息），當網站內容吸引到用戶以後，網站的更新信息或者網站最新新聞就有必要及時通知浏覽者，以此來緊緊抓住浏覽者，培養浏覽者的“浏覽忠誠度”。這就是網站郵件列表的作用。

一、郵件列表作用和工作方式
郵件列表是什麼呢？郵件列表就是網站或者機構為了及時通知信息給相關用戶，將這些用戶的電子郵件保存並且在有信息需要發送的時候將信息分別發送給所有用戶。表面上，郵件列表和發送電子郵件的時候使用的“附送”“密送”差不多，基本沒什麼差別，其實，它們還是有差別的：（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>

<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>

</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就可以，隨意，我們最好不要隨意發送。