Question

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格式
objCDOMail.Send
Set objCDOMail = Nothing
%>

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

在取出数据库前加上以上的代码，
一切取出数据库的值再赋给Mail.Body 就是发送邮件的内容了!

----下面是我的文件
<%
'将得到的数据库存入后台数据库，并通过后台页面显示给管理员

username = request.Form("username")
email = request.Form("email")
nameT = request.Form("name")
telephone = request.Form("telephone")
qq = request.Form("qq")
password = request.Form("password")

dim sql,rs

sql="select * from promoters where username='"&username&"'"
set rs = server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,3
if not rs.eof then

response.Write("<script language=javascript>alert('对不起！');this.location.href='index.asp';</script>")
else

rs.addnew
rs("username") = username
rs("email") = email
rs("name") = nameT
rs("telephone") = telephone
rs("qq") = qq
rs("password") = password

rs.update
response.Write("<script language=javascript>alert('信息提交成功')")
end if
rs.close
set rs = nothing

closeConn()

%>

Answer 1

下面这段代码插到rs.update下面。

dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =username
objCDOMail.To =email '接纳人的邮箱(将表单内容发邮件到一固定地址)
objCDOMail.Subject ="邮件发送测试"
body="你要发送的内容。"
objCDOMail.Body =body
objCDOMail.BodyFormat=1 '设置为HTML格式
objCDOMail.Send
Set objCDOMail = Nothing

追问

我看着段代码上面都没有设置 发件邮箱的账号和密码 怎么发送呢