簡單快捷實(shí)現(xiàn)ASP在線發(fā)郵件功能

在編寫網(wǎng)上應(yīng)用程序時,經(jīng)常碰到需要在線發(fā)送郵件的問題，郵件內(nèi)容是由程序動態(tài)決定的，如果你采用的是ASP方式來編寫網(wǎng)上應(yīng)用程序，如何簡單、快捷地實(shí)現(xiàn)這一功能呢？
    筆者在實(shí)踐中利用ASP的com組件功能，在vb中實(shí)現(xiàn)了一個發(fā)郵件的小組件，在ASP中只通過輕松調(diào)用，就可以實(shí)現(xiàn)該功能。所有郵件處理機(jī)制都被封裝在這個組件中，使用起來極為方便。下面將詳細(xì)介紹該組件的基本開發(fā)原理以及在ASP中的應(yīng)用。
    1． 利用Winsock控件與發(fā)送郵件的smtp聯(lián)系
    和smtp的聯(lián)系包括握手、發(fā)送數(shù)據(jù)以及關(guān)閉等全過程，主要程序如下：
    建立一個frmsendmail 的窗體,其中包含一個winsock控件，有以下幾個公共變量：
    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ā)送接收郵件地址