在編寫網上應用程序時,經常碰到需要在線發(fā)送郵件的問題，郵件內容是由程序動態(tài)決定的，如果你采用的是ASP方式來編寫網上應用程序，如何簡單、快捷地實現(xiàn)這一功能呢？

　　筆者在實踐中利用ASP的com組件功能，在vb中實現(xiàn)了一個發(fā)郵件的小組件，在ASP中只通過輕松調用，就可以實現(xiàn)該功能。所有郵件處理機制都被封裝在這個組件中，使用起來極為方便。下面將詳細介紹該組件的基本開發(fā)原理以及在ASP中的應用。

　　1． 利用Winsock控件與發(fā)送郵件的smtp聯(lián)系

　　和smtp的聯(lián)系包括握手、發(fā)送數(shù)據(jù)以及關閉等全過程，主要程序如下：

　　建立一個frmsendmail 的窗體,其中包含一個winsock控件，有以下幾個公共變量：

　　public mstmp as string

　　//發(fā)送郵件的stmp

　　public mfrom as string

　　//from 地址

　　public mto as string

　　//到達地址

　　public msubject as string

　　//郵件主題

　　public mtext as string

　　//郵件正文

　　sock.connect mstmp, 25

　　//和發(fā)送郵件的stmp建立聯(lián)系

　　private sub sock_connect()

　　sflag = sfconn

　　//連接成功后設置參數(shù)

　　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

　　//發(fā)出握手信息hello
　　send "helo " && mmyname

　　case sfhelo

　　sflag = sffrom

　　send "mail from:" && getreal(mfrom)

　　case sffrom

　　if left(s, 3) 〈〉 "250" then goto srverr

　　//如果成功發(fā)送接收郵件地址

　　sflag = sfrcpt

　　send "rcpt to:" && getreal(mto)

　　case sfrcpt

　　if left(s, 3) 〈〉 "250" then goto srverr

　　//如果成功開始發(fā)送數(shù)據(jù)

　　sflag = sfdata

　　send "data"

　　case sfdata

　　if left(s, 3) 〈〉 "354" then goto srverr

　　sflag = sfsendover //數(shù)據(jù)包括4項，最后以 . 結束

　　send "from: " && mfrom

　　send "to: " && mto

　　send "subject: " && msubject && vbcrlf

　　send mtext

　　send "."

　　case sfsendover

　　if left(s, 3) 〈〉 "250" then goto srverr

　　sflag = sfstart

　　sendok = true

　　send "quit"

　　end select

　　exit sub

　　end sub
　　2． 將上述功能封裝在一個類中

　　由于ASP能使用的組件中不能存在控件，所以要通過類模塊來封裝上述窗體。首先在類初始化時建立一窗體：

　　private sub class_initialize()

　　set frm = new frmsendmail

　　end sub

　　把窗體的公共變量作為屬性封裝在類模塊中。

　　該窗體的函數(shù)接口為：

　　public sub send()

　　frm.sendstart

　　end sub

　　3． 注冊該組件

　　將上述工程編譯成dll文件，通過vb注冊或手工注冊都可以。

　　4． 在ASP中的應用

　　調用方法如下：

　　set smail=server.createobject("sendmailx.mail")

　　smail.stmp="166.166.1.1"

　　smail.logfile="e:\logs\mail.log"

　　smail.mfrom = mfromname && " 〈" && mfromaddr && "〉"

　　smail.mto = mtoname && " 〈" && mtoaddr && "〉"

　　smail.msubject = msubject

　　smail.mtext = mtext

　　smail.send

　　其中變量可以通過賦值，也可以來自上一個request頁面。