常用email组件发送函数-- 易特网络技术 - - 为中国网络技术提供点滴动力！源码下载,网络编程,教程,免费空间,论坛,安全,黑客,站长club,娱乐新闻

论坛登陆 用户：

密码：

注册忘记密码

域名空间　下载中心　 社区论坛　信息公告 my小屋

联系我们
设为首页
加入收藏

首页

｜站长club

　　·推荐新闻

　　·资料搜索

　　·相关文章

·绑定txt文件到datagrid

·在用户离开页面时提示信息

·asp + oracle 分页方法（不用存

·asp + sqlserver 分页方法（不

　　·热门新闻

首页>>网络编程>>asp专区>>文章正文

常用email组件发送函数

日期：2005-7-18 8:25:07 来源:易特网络技术编辑：黑鹰点击：

给大家看一下常用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提高首页性能的一个技巧
[发送给好友] [打印本页] [关闭窗口] [返回顶部] 转载请注明来源：http://www.iyit.net

特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

责任编辑：黑鹰	投稿作者：易特网络
信息来源：易特网络技术	录入时间： 2005-7-18 8:25:07
浏览次数：	投稿信箱： shtghy@163.com

	设置首页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 copyrights ©2004-2005 iyit.net all rights reserved. 网站合作、广告联系qq:147007642、466949678 易特网络技术冀icp备05011851号