★★急问:如何在提交表单到数据库的同时发邮件通知??????

在提交表单到数据库的同时发将表单内容发邮件到一固定地址,有哪位大侠实现过?望给出示例,感激涕零~
---------------------------------------------------------------

1<form>   
2...   
3  
4</form>

....

 1   
 2dim objCDOMail   
 3Set objCDOMail = Server.CreateObject("CDONTS.NewMail")   
 4objCDOMail.From ="[email protected]"   
 5objCDOMail.To [email protected] '接收人的邮箱(将表单内容发邮件到一固定地址)   
 6objCDOMail.Subject ="邮件发送测试"   
 7body=request.Form("cont") '获取表单内容   
 8objCDOMail.Body =body   
 9objCDOMail.BodyFormat=1 '设置为HTML格式   
10objCDOMail.Send   
11Set objCDOMail = Nothing   

---------------------------------------------------------------

在存入数据库前加上以上的代码,
所有存入数据库的值再赋给Mail.Body 就是发送邮件的内容了!

Published At
Categories with Web编程
Tagged with
comments powered by Disqus