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

金帝空格

金帝空格

2016-01-29 19:58

简单快捷实现ASP在线发邮件,简单快捷实现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页,当前在第1页  1  2  

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)
展开更多 50%)
分享

猜你喜欢

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

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

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

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

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

实现ASP文件在线发邮件

ASP
实现ASP文件在线发邮件

发邮件的asp(CDONTS.NewMail)

Web开发
发邮件的asp(CDONTS.NewMail)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

asp实现k线图(在线)

ASP
asp实现k线图(在线)

用asp实现QQ在线查询

ASP
用asp实现QQ在线查询

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Linux学习基础

Linux学习基础

PS鼠绘精美兔子探险插画

PS鼠绘精美兔子探险插画
下拉加载更多内容 ↓