想请教一下怎么样才能把找回丢失的密码送回邮箱？？？？
------------------------------------------------------
我们每逢遇这密码丢失的时候就想找回密码，但找回后系统怎么样把它自动送回你自己的邮箱？？？
要用那些组件？？？？？？？？？
——-------------------------------------------------
---------------------------------------------------------------
只用到发邮件组件。查数据库，把密码发到email里去
不过现在不流行这招了。现在流行“重新设置密码”。因为密码在数据库里不是直接存放，而是单向加密或hash过的，脸webmaster也不知道密码是什么。
---------------------------------------------------------------
先要求用户输入他在网站注册的信息，再从数据库中进行验证，如果正确，从数据库提出他的email，
用cdonts组件发邮件给这个信箱！具体：
1
2set cnn=server.createobject("adodb.connection")
3cnn.open cnnstr //打开数据库
4set rs=cnn.execute(sql) //sql为根据用户输入信息查找用户资料
5if not rs.eof then
6Set Mymail = CreateObject("CDONTS.NewMail")
7Mymail.From = *** '信件发送者信箱
8Mymail.To = rs("email") ‘信件接收者信箱
9Mymail.CC = *** '抄送
10Mymail.BCC = *** ’密件发送
11Mymail.Subject = *** ‘信件主题
12Mymail.Body = "你的密码是:XXXXX" ’信件正文
13'设置优先级，0-不重要，1-一般，2-重要。
14Mymail.Importance = 2
15Mymail.Send
16Set Mymail = Nothing
17end if
---------------------------------------------------------------
原理及其简单：
从用户输入的登陆账号名，查出其电子邮件地址以及密码，然后就用类似CDONTS.NEWMAIL的组件发送邮件给用户:
Dim sEmail, sPassword
'get password and email address
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "[email protected]"
myMail.To = sEmail
myMail.Subject = "Your Password"
myMail.Body = "This is a Your Password:" & sPassword
myMail.Send
Set myMail = Nothing