说起发送Email，我们总是想起邮件客户端软件，比如Outlook Express、Foxmail（最新版3.0 beta1已于 4月30号发布，请到http://www.aerofox.com/下载）等。如果在Web上发送Email，大家肯定又会想起一些免费的电子邮箱，比如大名鼎鼎的www.163.net等，那么如何实现在Web上发送Email呢？大家可能会想到首先安装邮件服务器，比如Exchange，其实NT Server4.0加IIS4.0就可以了，本文就是想以实例来说明技术上的实现方法。

　　邮件列表(Maillist)在Internet上应用比较广泛。使用邮件列表可以与访问者保持积极的联系，快捷、简便、低成本地发送信息，也可以提高网站的知名度。扩展后的邮件列表也可以用于创立电子杂志（像索易：http://www.soim.online.sh.cn/）。探讨邮件列表的建立是非常有意义的，我们的实例就是建立一个邮件列表。

　　一、电子邮件发送原理

　　邮件传递过程的实现是从一个如Microsoft Outlook Express这样的客户端软件将一份邮件发送给一个SMTP服务器开始的，然后SMTP服务器负责决定如何处置该邮件。

　　如果电子邮件的目的域是服务器的本地域（比如将电子邮件发送给[email protected]，而且SMTP服务器是smtp.domain.com），那么该邮件被存储在这个服务器上，否则将该邮件转发给另一个合适的服务器。

　　网络上所有的SMTP服务器都可以通过一种“语言”互相通信，这个通用语言就是SMTP协议。但是，服务器如何决定传递邮件的目的地呢？可以通过它的域名解析系统(DNS)来查找域。

　　NT Server是目前使用比较广泛的网络服务器，而且前景看好，IIS（Internet Information Server4.0，Internet信息服务器）是网络文件和应用程序服务器，它们使用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)脚本中使用这些对象来访问和处理发送给特定用户的电子邮件。

　　邮件列表就是在网上收集访问者的Email，从而在需要的时候定期向该订阅者发送一定的信息。需要的工作是收集Email、发送Email。下面我们可以看到如何来完成这些工作。

　　二、 从Web页面发送电子邮件

　　利用IIS SMTP和CDO for IIS，可以从一个ASP脚本直接向Internet上的任何人发送电子邮件。

　　首先要安装Microsoft NT Ser-ver4.0，然后再安装IIS4.0，务必注意是否安装了SMTP服务，默认方式是安装的。安装完毕后不妨看看在winnt\system32目录下是否有一个文件cdonts.dll。如果存在这个文件，那么安装过程宣告成功。

　　程序1是最简单的发送电子邮件程序，它将一封主题为subject、内容为test的邮件从邮箱[email protected]发送到[email protected]。

　　<%

　　Dim MailObject

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

　　MailObject.Send "[email protected]"," [email protected]", "subject", "test"

　　%>

　　

　　这样的程序虽然可以快速测试是否成功，但是实用价值并不高。我们将其优化一下，根据邮件列表的特点，编出一个有实用价值的程序。

　　首先请用Access建立一个数据库mail.mdb，用于保存email地址；然后需要建立一个表，表的名字为mail，包含一个字段email（字段名email，数据类型：文本，字段长度：50）即可，另外可以有一个id（字段名：id，数据类型：自动编号，本字段可以不要）。设置ODBC ，在控制面板中双击ODBC图标，设立dsn，其名为mail。

　　至此设置部分已经完成，现在编写程序。

　　将程序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得到结果如图1，填入一个合法的email地址，单击“订阅”。服务器自动调用程序3，输入的email将自动入库，你不妨用Access直接打开数据库mail.mdb看看刚刚入库的Email是否保存了。

　　（图注ASP-1） 图1

　　<%

　　email=trim(request("email"))

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

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

评论 (0) All

登陆 还没注册？