在编写网上应用程序时,经常碰到需要在线发送邮件的问题,邮件内容是由程序动态决定的,如果你采用的是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建立联系 private sub sock_connect() sflag = sfconn //连接成功后设置参数 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 //发出握手信息hello case sfhelo sflag = sffrom send “mail from:” && getreal(mfrom) case sffrom if left(s, 3) 〈〉 “250” then goto srverr //如果成功发送接收邮件地址 sflag = sfrcpt send “rcpt to:” && getreal(mto) case sfrcpt if left(s, 3) 〈〉 “250” then goto srverr //如果成功开始发送数据 sflag = sfdata send “data” case sfdata if left(s, 3) 〈〉 “354” then goto srverr 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 由于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页面。
send “helo ” && mmyname
2. 将上述功能封装在一个类中
简单快捷实现asp在线发邮件功能_asp技巧
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 简单快捷实现asp在线发邮件功能_asp技巧
相关推荐
-      ASP基础教程:其它的ASP常用组件
-      ASP基础教程:学习ASP中子程序的应用
-      ASP基础教程之ASP程序对Cookie的处理
-      ASP基础教程之ASP AdRotator组件的使用
-      ADO初学者教程:ADO 通过GetString()加速脚本
-      ASP技巧实例:几行代码解决防止表单重复提交
-      ASP常见数学函数 Abs Atn Cos 等详细详解[ 来源:网页教学网 | 作者: | 时间:2007-09-12 10:57:29 | 收藏本文 ] 【大 中 小】【名称】
-      ASP基础教程之ASP AdRotator 组件的使用