用ASP建立郵件列表

2019-11-18 20:53:09

字體：大中小

供稿：網(wǎng)友

說起發(fā)送Email，我們總是想起郵件客戶端軟件，比如Outlook ExPRess、Foxmail（最新版3.0 beta1已于 4月30號發(fā)布，請到http://www.aerofox.com/下載）等。如果在Web上發(fā)送Email，大家肯定又會想起一些免費的電子郵箱，比如大名鼎鼎的www.163.net等，那么如何實現(xiàn)在Web上發(fā)送Email呢？大家可能會想到首先安裝郵件服務器，比如Exchange，其實NT Server4.0加IIS4.0就可以了，本文就是想以實例來說明技術(shù)上的實現(xiàn)方法。

　　郵件列表(Maillist)在Internet上應用比較廣泛。使用郵件列表可以與訪問者保持積極的聯(lián)系，快捷、簡便、低成本地發(fā)送信息，也可以提高網(wǎng)站的知名度。擴展后的郵件列表也可以用于創(chuàng)立電子雜志（像索易：http://www.soim.online.sh.cn/）。探討郵件列表的建立是非常有意義的，我們的實例就是建立一個郵件列表。

　　一、電子郵件發(fā)送原理

　　郵件傳遞過程的實現(xiàn)是從一個如Microsoft Outlook Express這樣的客戶端軟件將一份郵件發(fā)送給一個SMTP服務器開始的，然后SMTP服務器負責決定如何處置該郵件。

　　如果電子郵件的目的域是服務器的本地域（比如將電子郵件發(fā)送給harrizon@domain.com，而且SMTP服務器是smtp.domain.com），那么該郵件被存儲在這個服務器上，否則將該郵件轉(zhuǎn)發(fā)給另一個合適的服務器。

　　網(wǎng)絡上所有的SMTP服務器都可以通過一種“語言”互相通信，這個通用語言就是SMTP協(xié)議。但是，服務器如何決定傳遞郵件的目的地呢？可以通過它的域名解析系統(tǒng)(DNS)來查找域。

　　NT Server是目前使用比較廣泛的網(wǎng)絡服務器，而且前景看好，IIS（Internet Information Server4.0，Internet信息服務器）是網(wǎng)絡文件和應用程序服務器，它們使用HTTP、Gopher以及FTP，通過Internet或Intranet來提供服務。

　　IIS SMTP服務僅提供郵件傳遞功能，它不能對接收郵件提供服務。Microsoft在IIS中加入了一個特殊的組件—Collaboration Data Objects for Microsoft Windows NT Server，也稱為CDO for NTS Library，它提供郵件對象，可以在asp(Active Server Pages)腳本中使用這些對象來訪問和處理發(fā)送給特定用戶的電子郵件。

　　郵件列表就是在網(wǎng)上收集訪問者的Email，從而在需要的時候定期向該訂閱者發(fā)送一定的信息。需要的工作是收集Email、發(fā)送Email。下面我們可以看到如何來完成這些工作。

　　二、從Web頁面發(fā)送電子郵件

　　利用IIS SMTP和CDO for IIS，可以從一個ASP腳本直接向Internet上的任何人發(fā)送電子郵件。

　　首先要安裝Microsoft NT Ser-ver4.0，然后再安裝IIS4.0，務必注意是否安裝了SMTP服務，默認方式是安裝的。安裝完畢后不妨看看在winnt/system32目錄下是否有一個文件cdonts.dll。如果存在這個文件，那么安裝過程宣告成功。

　　程序1是最簡單的發(fā)送電子郵件程序，它將一封主題為subject、內(nèi)容為test的郵件從郵箱harrizon@163.net發(fā)送到ivan@188.net。

　　<%

　　Dim MailObject

　　Set MailObject = Server.CreateObject("CDONTS.NewMail")

　　MailObject.Send "harrizon@163.net"," ivan@188.net", "subject", "test"

　　%>

　　

　　這樣的程序雖然可以快速測試是否成功，但是實用價值并不高。我們將其優(yōu)化一下，根據(jù)郵件列表的特點，編出一個有實用價值的程序。

　　首先請用 access建立一個數(shù)據(jù)庫mail.mdb，用于保存email地址；然后需要建立一個表，表的名字為mail，包含一個字段email（字段名email，數(shù)據(jù)類型：文本，字段長度：50）即可，另外可以有一個id（字段名：id，數(shù)據(jù)類型：自動編號，本字段可以不要）。設(shè)置ODBC ，在控制面板中雙擊ODBC圖標，設(shè)立dsn，其名為mail。

　　至此設(shè)置部分已經(jīng)完成，現(xiàn)在編寫程序。

　　將程序2加入到你的主頁的合適位置。程序2的目的是為了收集訪問者的Email。

　　<form method="POST" action="addmail.asp">

　　 <p>您的Email:<input type="text" name="email" size="20"><input type="submit"

　　 value="訂閱" name="B1"><input type="reset" value="重寫" name="B2"></p>

　　</form>

　　用瀏覽器打開程序2得到結(jié)果如圖1，填入一個合法的email地址，單擊“訂閱”。服務器自動調(diào)用程序3，輸入的email將自動入庫，你不妨用Access直接打開數(shù)據(jù)庫mail.mdb看看剛剛?cè)霂斓腅mail是否保存了。

　?。▓D注ASP-1）圖1

　　<%

　　email=trim(request("email"))

　　Set Connection=Server.Create-Object("ADODB.Connection")

　　Connection.Open "mail","",""

　　SQL="INSERT INTO mail(email) VALUES('"+email+"')"

　　Set RS=Connection.Execute(sql)

　　response.write email%>，多謝您加入!

　　程序3的目的是將email保存到數(shù)據(jù)庫mail.mdb里去。

　　Email入庫意味著有了訂閱者，現(xiàn)在我們可以進入下一個步驟—發(fā)送郵件給訂閱者了。

　　這里我們用兩個程序(sendmail. asp，mail.asp)來完成這部分工作，sendmail.asp的作用是生成一個界面（見圖2），在這里我們可以選擇發(fā)送的對象（全部或部分），填寫發(fā)送的主題和內(nèi)容，也可以粘貼附件，填寫完畢后就單擊“發(fā)送郵件”，此時對于管理員來說，一切工作是結(jié)束了，但如何發(fā)送郵件呢？我們就需要調(diào)用程序5了。

　　程序5為發(fā)送郵件處置程序mail. asp。其作用就是發(fā)送郵件，當然是根據(jù)程序4的選擇和輸入來處理郵件的。程序5的完整源代碼參見《電子與電腦》的網(wǎng)站www.pccomputing.com.cn。

　　程序4為在線發(fā)送電子郵件sendmail.asp。程序運行結(jié)果如圖2所示。

　?。▓D注ASP-2）圖2

　　（程序4）

　　<% Set Connection=Server.CreateObject("ADODB.Connection")

　　Connection.Open "mail","",""

　　sql="select * from mail"

　　Set RS=Connection.Execute(sql)

　　sql1="select count(*) from mail"

　　Set RS1=Connection.Execute(sql1)

　　%>

　　<form method="POST" action="mail.asp">

　　<table border="1" width="100%">

　　 <tr bgColor="#abcdef">

　　 <td align="middle">適占耍喝*<%=rs1(0)%>位訂閱者<inputtype=

　　 "checkbox" name="all" value="1" checked><hr><%do while not

　　 rs.eof%>

　　 <font size="3">

　　 <input type="checkbox" name="shou" value="<%=rs(0)%>">

　　<%=RS(1)%>

　　<%

　　 rs.movenext

　　 loop

　　%> </td> </tr>

　　 <tr bgColor="#eeddff">

　　 <td width="7%">

　　郵件主題：<input type="text" name="subject" size="53"><br>

　　郵件內(nèi)容：<br>

　　 <textarea rows="9" name="body" cols="59"></textarea><br>

　　您的mail:<input type="text" name="usemail" size="50" value="harrizon@21cn.com">

　　 <br>附件：<input type="file" maxlength="50" name="attfile" size="20" value="">附件名稱：<input type="text" name="fname" size="10" value=""><br></p>

　　 <input type="submit" value="發(fā)送郵件" name="B1"><input type="reset" value="重寫" name="B2"></p> </td>

　　</tr>

　　</table>

　　</form>

　　

　?。ǔ绦?）

　　<% SHOU=trim(request("SHOU")) '取得在程序四選擇和輸入的內(nèi)容

　　 subject=trim(request("subject"))

　　 body=trim(request("body"))

　　 att_file=trim(request("attfile"))

　　 fname=trim(request("fname"))

　　 usemail=trim(request("usemail"))

　　 ckall=request("all")

　　if ckall=1 then '是否是給所有訂閱者發(fā)送郵件

　　Set Conn2=Server.CreateObject("ADODB.Connection")

　　conn2.open "MAIL","","" '打開數(shù)據(jù)庫

　　sql2="select * from mail"

　　Set RS2=Conn2.Execute(SQL2) '從數(shù)據(jù)庫讀出所有的郵件地址

　　 do while not rs2.eof

　　item=rs2(0)

　　Set Conn=Server.CreateObject("ADODB.Connection")

　　conn.open "MAIL","",""

　　sql="select * from mail where id="+cstr(item)+""

　　Set RS=Conn.Execute(SQL)

　　Set MailObject = Server.CreateObject("CDONTS.NewMail")

　　if att_file="" then '附件為空

　　MailObject.Send usemail,rs(1),subject,body

　　response.write "無附件web郵件發(fā)送成功！"

　　%><hr><%else

　　f_name=fname

　　MailObject.From=gzer@163.net '發(fā)件郵址

　　MailObject.To=rs(1) '收件人

　　MailObject.Subject=subject

　　MailObject.Body=body

　　MailObject.AttachFile att_file,f_name

　　MailObject.Send '發(fā)送郵件

　　response.write "含附件web郵件發(fā)送成功！" '發(fā)送成功

　　end if

　　response.write "收信地址："+rs(1)+"<p>"

　　response.write "主題："+ subject +"<br>"

　　response.write "內(nèi)容："+ body +"<br>"

　　%><hr><% rs2.movenext

　　 loop

　　else

　　for each item in request("shou")

　　Set Conn=Server.CreateObject("ADODB.Connection")

　　conn.open "MAIL","",""

　　sql="select * from mail where id="+cstr(item)+""

　　Set RS=Conn.Execute(SQL)

　　Set MailObject = Server.CreateObject("CDONTS.NewMail")

　　if att_file="" then

　　MailObject.Send usemail,rs(1),subject,body

　　response.write "無附件web郵件發(fā)送成功！"

　　%><hr><%else '

　　f_name=fname

　　MailObject.From="gzer@163.net" '發(fā)件郵址

　　response.write rs(1) +"<br>"

　　MailObject.To=rs(1) '收件人

　　MailObject.Subject=subject

　　MailObject.Body=body

　　MailObject.AttachFile att_file,f_name

　　MailObject.Send

　　response.write "含附件web郵件發(fā)送成功！"

　　end if

　　%><hr><% next '下一封郵件

　　end if

　　%>

　　

　　三、后記

　　1．由于篇幅的原因，這里省去了一些代碼，請讀者理解。

　　2．如果發(fā)送郵件時加一個接收電子郵件地址的輸入欄，那么你可以給任何一個合法的地址發(fā)送電子郵件，應用也就更為廣泛了。

　　3．使用本程序可以發(fā)送匿名郵件，但注意請勿亂用！

　　4．若是使用POP3組件，就可以接收郵件了。

　　5．本程序的附件發(fā)送不支持中文路徑，有心者不妨編寫更好的組件來支持中文路徑。

上一篇：用ASP技術(shù)編制隱藏用戶密碼程序

下一篇：如何用asp把sqlserver數(shù)據(jù)轉(zhuǎn)換為execl文件