rr

　　sflag = sfsendover //数据包括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

　　把窗体的公共变量作为属性封装在类模块中。

　　该窗体的函数接口为：

　　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页面。

上一页  [1] [2] 

在google里搜索更多简单快捷实现ASP在线发邮件功能

	Web www.51ec.org

上一篇信息学院： ASP关于动态数据显示页面得锚点

下一篇信息学院： 精彩:ASP遗留的二十大积习