简单快捷实现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建立联系
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
send "helo " && mmyname
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
关键字 本文所属关键字
相关 与本文相关文章
分类 所有文章关键字导航
源码编程相关
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
操作系统/服务器相关
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
标准 网站致力的规范
