在编写网上应用程序时,经常碰到需要在线发送邮件的问题，邮件内容是由程序动态决定的，如果你采用的是ASP方式来编写网上应用程序，如何简单、快捷地实现这一功能呢？

　　 笔者在实践中利用ASP的com组件功能，在vb中实现了一个发邮件的小组件，在ASP中只通过轻松调用，就可以实现该功能。所有邮件处理机制都被封装在这个组件中，使用起来极为方便。下面将详细介绍该组件的基本开发原理以及在ASP中的应用。

　　 1． 利用Winsock控件与发送邮件的smtp联系

　　 和smtp的联系包括握手、发送数据以及关闭等全过程，主要程序如下：

　　 建立一个frmsendmail 的窗体,其中包含一个winsock控件，有以下几个公共变量：

　　 public mstmp as string

　　 //发送邮件的stmp

　　 public mfrom as string

　　 //from 地址

　　 public mto as string

　　 //到达地址

　　 public msubject as string

　　 //邮件主题

　　 public mtext as string

　　 //邮件正文

　　 sock.connect mstmp, 25

　　 //和发送邮件的stmp建立联系

　　 private sub sock_connect()

　　 sflag = sfconn

　　 //连接成功后设置参数

　　 end sub

　　 private sub sock_dataarrival(byval bytestotal as long)

　　 on error goto daerr

　　 dim s as string

　　 sock.getdata s

　　 select case sflag

　　 case sfstart

　　 case sfconn

　　 sflag = sfhelo

　　 //发出握手信息hello