繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 简单快捷实现ASP在线发邮件
- ASP
- asp实现取得数组中的最大值的代码
- asp 将日期格式化为需要的格式
- asp 下产生任意位数随机密码的代码
- asp下返回以千分位显示数字格式化的数值
- asp重定向页面的方法总结
- asp下去除数组中重复的项的方法
- asp下实现 重新排序数字数组的代码
- asp 验证输入网址是否有效并可以访问 与正则验证输入网址
- asp验证Ip格式的函数
- asp实现生成由数字，大写字母，小写字母指定位数的随机数
- asp 格式化sql中的like字符串
- asp 实现显示所有的服务器变量值的函数
- asp 取得用户真实IP，对代理地址仍然有效的函数
- asp 通用数据库连接过程函数
- asp 字符串截取函数
- asp下实现格式化文件大小以MB显示的函数
- asp 下用正则表达式检测邮箱格式的函数
- asp 实现检测字符串是否为纯字母和数字组合的函数
- asp代码实现检测组件是否安装的函数
- asp通过JMAIL实现通用发送函数
简单快捷实现ASP在线发邮件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 165 ::
收藏到网摘: n/a
笔者在实践中利用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
评论 (0) All
