网普技术论坛 - Powered by Discuz! Board

标题: 一段绝对NB的ASP代码 [打印本页]

作者: snowboy 时间: 2004-7-25 01:23 PM 标题: 一段绝对NB的ASP代码

可惜还没写出来呢嘻嘻~

作者: snowboy 时间: 2004-7-25 02:41 PM 标题: 所以就转帖了一个不是太NB的拿来充数

在线发邮件

笔者在实践中利用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页面。

[ Last edited by snowboy on 2004-7-25 at 02:42 PM ]

作者: 网普科技 时间: 2004-7-26 11:24 AM
霍霍，不错
程序员杂志上有一篇用ASP，PHP，JSP，VB，VC等7种工具发邮件的代码

可惜我找不到了

作者: snowboy 时间: 2004-7-27 06:36 PM
哦有时间再发篇好的呵呵

欢迎光临网普技术论坛 (http://bbs.netpu.net/)