分享
 
 
 

简单快捷实现ASP在线发邮件功能

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

简单快捷实现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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有