ASP实现在提交表单到数据库的同时发邮件通知

lusspan

<%  
dim  objCDOMail  
Set  objCDOMail  =  Server.CreateObject("CDONTS.NewMail")  
objCDOMail.From  ="xxx@hotmail.com"         
objCDOMail.To  =xxx@hotmail.com  '接收人的邮箱(将表单内容发邮件到一固定地址)      
objCDOMail.Subject  ="邮件发送测试"  
body=request.Form("cont")    '获取表单内容  
objCDOMail.Body  =body   
objCDOMail.BodyFormat=1    '设置为HTML格式              
Www~Chinaz~com

objCDOMail.Send  
Set  objCDOMail  =  Nothing  
%>