站长论坛

标题: ASP实现在提交表单到数据库的同时发邮件通知 [打印本页]

作者: lusspan 时间: 2008-3-27 18:28
标题: ASP实现在提交表单到数据库的同时发邮件通知
<%
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
%>

欢迎光临站长论坛 (https://www.tzlink.com/bbs/)