常用Email组件发送函数_ASP开发_Web开发_软件开发


	您现在的位置：天新网 > 软件开发 > Web开发 > ASP开发

常用Email组件发送函数

http://dev.21tx.com 2005年04月01日

每日文章精萃
.Net：C#中利用mediaplayer打造mp3播放器	Java：如何使用JSP访问MySQL数据库
ASP：构建免受 FSO 威胁虚拟主机（一）	PHP：关于session的几个补充函数（一）
JSP：JSP文件操作读取篇	CGI：CGI教程(7)
VB：一个利用TCP/IP实现Chat功能的程序(	VC：#pragma 预处理指令详解

给大家看一下常用Email组件发送函数

<%
sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=SystemEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub Cdonts(email)
dim　objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub

sub ASPemail(email)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")　
recipient=email
sender=SystemEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>

上一篇：用asp实现QQ在线查询
 下一篇：创建一个ASP通用分页类(一)

编辑推荐

·WINDOWS2000服务器账号登陆身份验证
·断开的数据库连接的一个例子
·使用asp实现支持附件的邮件系统（三）
·二级域名原理以及程序，申请即可开通
·实现搜索结果的关键词变色标注的程序
·LCID地区代码
·判断Cookies是否处于开启状态
·一个新的JMail（4.3版本）发送代码
·WAP中的ASP技术之五
·ASP自动解压RAR文件

最近更新

人气最热

·用asp实现QQ在线查询
·创建一个ASP通用分页类(一)
·创建一个ASP通用分页类(二)
·对Session和Cookie的区分与理解
·一个求最大值与最小值的函数
·ASP 编程中 20 个非常有用的例子
·编写通用的ASP防SQL注入攻击程序
·再谈SQL注入入侵动网SQL版论坛
·ASP中Cache技术的应用
·用ASP+XML打造酷酷留言本

·ASP开发必备:WEB打印代码大全
·ADO如何建立修改删除表
·ASP中SQL语句参考及记录集对象
·FSO操作示例(给初学者)
·asp中的主页广告轮换大法
·用asp写个简单的加密和解密的类
·ASP字符串函数示例
·ASP做象资源管理器的树形目录
·.NET之ASP Web Services 快速入门
·ADO数据访问一点通

·[硬件]遵照ATX12V 2.0标准台达洪涛660电源测
·[数码]iPod nano教程一：软件安装、入门图解
·[汽车]伊兰特10000公里自诉
·[开发]开发数据库程序经验三则
·[资讯]网站叫卖个人信息又曝新来源另3家参与
·[游戏]格威尔?CIG实况俱乐部赛前探营记

·[本本]IBM T43开机自动运行软件祥解：Noker
·[办公]Barco投影机与dnp屏幕服务于中央电视台
·[手机]再创佳绩诺基亚百万滑盖N6111热卖
·[考试]MCP?认证的权益
·[学院]用CorelDRAW制作自己的贺卡(5)
·[娱乐]三宝系列--公车之狼