容易快捷完成ASP在線發(fā)郵件技巧

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

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

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

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

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

　　public mstmp as string

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

　　public mfrom as string

　　//from 地址

　　public mto as string

　　//到達(dá)地址

　　public msubject as string

　　//郵件主題

　　public mtext as string

　　//郵件正文

　　sock.connect mstmp, 25

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

　　private sub sock_connect()

　　sflag = sfconn

　　//連接成功后設(shè)置參數(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

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

　　sflag = sfdata

　　send "data"

　　case sfdata

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

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

　　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． 將上述功能封裝在一個(gè)類中

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

　　private sub class_initialize()

　　set frm = new frmsendmail

　　end sub

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

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

　　public sub send()

　　frm.sendstart

　　end sub

　　3． 注冊(cè)該組件

　　將上述工程編譯成dll文件，通過(guò)vb注冊(cè)或手工注冊(cè)都可以。

　　4． 在ASP中的應(yīng)用

　　調(diào)用方法如下：

　　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

　　其中變量可以通過(guò)賦值，也可以來(lái)自上一個(gè)request頁(yè)面。