以前感到很繁杂的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中要求输入一个邮件服务器地址不说，还要你添加一个该服务上帐户和密码，这点让我感觉到不爽。
不过这些东西用起来还是粘来用用的。