网站导航免费论文 原创论文 论文搜索 作业答案 网学软件 学术大家 资料中心 会员中心 问题解答 定作论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 交易代码 > ASP精品代码 > 正文
简单快捷实现ASP在线发邮件功能
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 佚名 来源: 网络 发布时间: 10/11/04

  在编写网上应用程序时,经常碰到需要在线发送邮件的问题,邮件内容是由程序动态决定的,如果你采用的是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页面。

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 电话:013574892963 QQ:3710167 邮箱:Educs@163.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 Www.myeducs.Cn All Rights Reserved
湘ICP备09003080号