原理及其简单：

从用户输入的登陆账号名，查出其电子邮件地址以及密码，然后就用类似CDONTS.NEWMAIL的组件发送邮件给用户:

Dim sEmail, sPassword
'get password and email address

Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "admin@csdn.net"
myMail.To = sEmail
myMail.Subject = "Your Password"
myMail.Body = "This is a Your Password:" & sPassword
myMail.Send
Set myMail = Nothing


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

CDONTS.NEWMAIL 组件是ASP内置组件之一。。。所以不用编写。直接创建和调用
---------------------------------------------------------------

在 interdev里创建了这个对象后在YourMailObject后面敲一个点会列出全部方法属性和事件