- ASP实现在提交表单到数据库的同时发邮件通知
- 发布时间:2008-03-27 18:28:23 浏览数:7534 发布者: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
%>