南京SEO

前段时间在百度知道里面网友提出一个问题，就是ASP自己发送邮件系统，这里我就将我回答的这个源代码发到qq空间来，分享一下：

<%
Set cdomail = Server.CreateObject(“CDONTS.NewMail”) ‘建立邮件对象
cdomail.Subject = “asp邮件测试” ‘邮件标题
cdomail.From = “你的email” ‘发件人的地址
cdomail.To = “收信人的email” ‘收件人的地址
cdomail.Body = “asp邮件测试,!” ‘邮件的内容
cdomail.Send ‘执行发送
%>

如果要从数据库读取email地址 将“收信人的email”替换一下就可以了

另外：此邮件发送系统需要系统里面有cdonts.dll 文件，如果没有此文件，
那么就会提示：无效的类别字符串

所以就需要下载cdonts.dll 组件

下载地址：http://www.fzpchome.com/Soft/jbhjbhSoft/200608/cdonts.rar

将cdonts.dll这个组件，拷贝到系统盘下WINDOWS/System32目录下
然后在开始运行里输入regsvr32 cdonts.dll回车注册，注册成功cdonts组件就可以使用了
郑强教授的演讲非常有思想