Asp中将数据添加到数据库前发邮件到指定的邮箱

以前感到很繁杂的asp发送邮件功能，现在看来也是很简单噢...
本来用 CDONTS组件在本机上测试正常，但是自己买的那个虚拟服务器却不支持...
郁闷....
要是用 CDONTS组件的话.代码挺简单,也挺好理解的...
其代码如下:

 1  dim   objCDOMail  
 2  Set   objCDOMail = Server.CreateObject( " CDONTS.NewMail " )  
 3  objCDOMail.From = " XXX@aihaowl.cn "         
 4  objCDOMail.To = " XXXXX@yahoo.com.cn "   ' 接收人的邮箱(将表单内容发邮件到一固定地址)   
 5  dim  Mail_title
 6  Mail_title = trim (request( " E_title " ))   
 7  objCDOMail.Subject = Mail_title  
 8  body = trim (request( " E_content " ))     ' 获取表单内容  
 9  objCDOMail.Body = body    
10  objCDOMail.BodyFormat = 1      ' 设置为HTML格式              
11  objCDOMail.Send  
12  Set   objCDOMail = Nothing

但那个虚拟服务器支持Jmail啊..
那也不错啊..只是代码相当于 CDONTS组件的话有点不爽啊..
要是用Jmail组件的话，其代码如下：

 1  Set  msg  =  Server.CreateObject( " JMail.Message " )
 2  msg.silent  =   true
 3  msg.Logging  =   true
 4  msg.Charset  =   " gb2312 "
 5  msg.MailServerUserName  =   " XXX@aihaowl.cn "   ' 输入smtp服务器验证登陆名
 6  msg.MailServerPassword  =   " Password "    ' 输入smtp服务器验证密码  （用户Email帐号对应的密码）
 7  msg.From  =   " XXX@aihaowl.cn "      ' 发件人Email
 8  msg.FromName  =   " cn3w "    ' 发件人姓名
 9  msg.AddRecipient  " XXX@yahoo.com.cn "    ' 收件人Email
10  msg.Subject  =   trim (request( " E_title " ))   ' 信件主题
11  msg.Body  =   trim (request( " E_content " ))      ' 正文
12  msg.Send ( " mail.aihaowl.cn " )         ' smtp服务器地址（企业邮局地址）
13  set  msg  =   nothing

Jmail中要求输入一个邮件服务器地址不说，还要你添加一个该服务上帐户和密码，这点让我感觉到不爽。
不过这些东西用起来还是粘来用用的。

转载于:https://www.cnblogs.com/cn3w/archive/2008/03/28/Asp.html