簡單快速實現ASP線上發郵件功能

在編寫網上應用程式時,經常碰到需要在線發送郵件的問題，郵件內容是由程序動態決定的，如果你採用的是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建立聯繫

sock_connect

()

sflag = sfconn

//連接成功後設定參數

end

sub

private

sub

sock_dataarrival(byval bytestotal as long)

on error goto daerr

sflag = sfhelo

//發出握手訊息hello
send "helo " && mmyname

case sfhelo

sflag = sffrom

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

case sffrom

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

goto

srverrsf

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

case sfrcpt

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

//如果成功開始發送資料,

3sflag = sfdata

send "data"

case sfdata

if left(s, 3sflag

) 〈〉 "

354

"

then

goto

s

？

."

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

把窗體的公共變數當作屬性封裝在類別模組中。

此窗體的函數介面為：

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:logsmail.log"

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

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

smail.msubject = msubject

smail.mtext = mtext

smail.send

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