怎样把数据库里“密码”发到注册的邮箱里（高手进）

[syman815]

最近我在做一个“交友系统”遇到一个问题：当用户忘记密码的时候，可以根据注册时的“问题”和“答案”获取密码：发到用户注册的邮箱中！
请高手指教邮件发送的代码！！！

[cuipi2003]

用组件，如果允许的话
sub sendMail
dim oMail,mailBody
mailBody="用户信息：" & vbcrlf
mailBody=mailBody & "用户名：" & request("name") & vbcrlf
mailBody=mailBody & "密码：" & request("pwd") & vbcrlf
mailBody=mailBody & "<a href='http://www.suidao.com/'>击活帐户</a>"
'发送邮件(利用组建发送)
set oMail=server.CreateObject("cdonts.newmail")
oMail.To=request("Email")
oMail.Subject="注册信息"
oMail.Body=mailBody
oMail.From="隧道网"
oMail.Send
end sub

[eafin]

使用IIS自带组件CDONTS.NewMail或者安装JMail.SmtpMail
一般建议使用JMAIL，使用方法在CSDN里 搜 就有一堆

[luluso]

<%


Dim Jmail

Set Jmail=server.createobject("Jmail.Message")

Jmail.Charset = "gb2312"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "[e-mail]" (这里换成您的SMTP验证帐号)
Jmail.MailServerPassword = "********" （这里填写您的SMTP认证密码）
Jmail.From = "[e-mail]" （发信人邮件地址）
Jmail.FromName = "发信人姓名"
Jmail.Subject = "信件主题"
Jmail.AddRecipient "[e-mail]" (收信人地址)
Jmail.Body = mailbody Mailbody参数是信件正文
Jmail.Send("xxx.xyz.com") (这里填写发件服务器，如mail.8sea.com，需要与SMTP验证信息对应)

Set Jmail=nothing


%>
jmail需要组件支持。最好的特点就是快cdonts就是慢。
上面是发信代码。什么问题的。什么正确的在程序中判断后。无误就执行上面代码。有误则不执行就行了.

[i三千]

现在一般的虚拟主机都支持jamil了,所以用jmail喽

[xiaong]

JMAIL

[山雨欲来-风满楼]

真奇怪，竟然有密码提示问题和答案，还用发到信箱呀。
既然发到信箱，就不用提示问题了嘛，只要输入用户名即可呀。
人家忘了密码，当然有可能连提示问题都忘了嘛，真笨！！
现在很多网站都是这样搞，笨死了。。。