Windows 2003下不注册组件用ASP发邮件

进击的小柚子

进击的小柚子

2016-01-29 18:47

Windows 2003下不注册组件用ASP发邮件,Windows 2003下不注册组件用ASP发邮件
 

其实ASP可以做很多事,只是大家不知道怎么用而以。微软为asp提供了非常多的现成有用的组件,而这些组件却没有人知道,如用CDO.Message发送邮件。

什么是CDO.Message?在winnt和win2k下发送邮件要用CDONTS.NewMail,CDONTS.NewMail组件是需要注册的,很简单,只要在服务器上运行命令行regsvr32 Cdonts.dll,在弹出的对话框中确定即可,使用CDONTS.NewMail服务还需安装有iis自带的smtp。到了windows2003,系统就没有附带Cdonts.dll文件了,只剩下一个类似的文件cdosys.dll,当然这个文件在win2k也是有的(需要注册组件),不过2003下好的是什么呢?该组件无需手动注册,系统已经自动注册了。现在我们来看看如何使用该组件吧。

<%
Dim cm
Set cm=Server.CreateObject("CDO.Message")
'创建对象
cm.From="from@test.com"
'设置发信人的邮箱
cm.To="to@test.com"
'设置收信人的邮箱
cm.Subject="我发现一个可以在线订阅RSS的网站,以后不用再安装什么软件了。"
'设定邮件的主题
'cm.TextBody="http://www.knowsky.com/rss/"
'上面是使用普通的文本格式发送邮件,只能是文字,不能支持html,所以这里不用

cm.HtmlBody="Online RSS Feeds Reader 是一个在线的RSS新闻阅读系统。"&_
"无需下载安装,只要注册了之后你就可以拥有和软件一样强大功能的RSS在线订阅聚合新闻的系统了。"&_
"不管你在任何地方,只要你能上网,你就能阅读你喜欢的订阅。"&_
"快去注册吧:<a href=http://www.gbmad.net/rss/http://www.gbmad.net/rss/</a"

'上面就是你构建的html正文,这样发出的邮件就比只有文字的好看多了。不要说你不会html吧

'cm.AddAttachment Server.MapPath("test.zip")
'如果有需要发送附件的话就用上面的方法把文件附加进去。

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

cm.Send
'最后当然是执行发送了
Set cm=Nothing
'发送成功后即时释放对象

Response.Write("发送邮件成功。")
%

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

猜你喜欢

Windows 2003下不注册组件用ASP发邮件

ASP
Windows 2003下不注册组件用ASP发邮件

实现ASP文件在线发邮件

ASP
实现ASP文件在线发邮件

s8lol主宰符文怎么配

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

发邮件的asp(CDONTS.NewMail)

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

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

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

lol偷钱流符文搭配推荐

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

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

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

用ASP写组件

Web开发
用ASP写组件

lolAD刺客新符文搭配推荐

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

Excel 2000:用Delphi自动生成报表

Excel 2000:用Delphi自动生成报表

用ASP编程控制在IIS建立Web站点的程序代码

用ASP编程控制在IIS建立Web站点的程序代码
下拉加载更多内容 ↓