asp发送邮件代码

微软自带CDONTS组件发送核心代码： 

<% 
Set cdomail = Server.CreateObject("CDONTS.NewMail") '建立邮件对象 
cdomail.Subject = "Mail Subject" '邮件标题 
cdomail.From = "Sender's Mail" '发件人的地址 
cdomail.To = "Email will from" '收件人的地址 
cdomail.Body = "Mail Body" '邮件的内容 
cdomail.Send '执行发送 
%> 



Jmail程序调用： 

<% 
'参数说明 
'Subject : 邮件标题 
'MailAddress : 发件服务器的地址,如smtp.163.com 
'Email : 收件人邮件地址 
'Sender : 发件人姓名 
'Content : 邮件内容 
'Fromer : 发件人的邮件地址 

Sub SendAction(subject, mailaddress, email, sender, content, fromer) 
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象 
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE 
jmail.logging = true '启用使用日志 
jmail.Charset = "GB2312" '邮件文字的代码为简体中文 
jmail.ContentType = "text/html" '邮件的格式为HTML的