|
|
主题: help me(忘记密码)
|
yidianyike
职务：普通成员
等级：1
金币：0.0
发贴：139
注册：2002/9/3 9:14:18
|
#12003/3/7 14:22:37
小弟又来麻烦大家了。我想求登陆中的忘记密码。我真的很菜，有很着急。望各位帮忙。不胜感激！
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#22003/3/7 14:43:53
你是想实现这个功能？把密码发送到拥护邮箱就ok了
|
yidianyike
职务：普通成员
等级：1
金币：0.0
发贴：139
注册：2002/9/3 9:14:18
|
#32003/3/8 9:09:42
能不能具体点，谢谢！
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#42003/3/8 15:14:58
用户注册时提供的信箱，发送密码到这个信箱就可以了，当然怎么发送那么可以实现的方案很多。
|
南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
注册：2002/1/17 10:13:36
|
#52003/3/8 15:36:04
最简单扼要的方法就是，手动发送到对方注册时的邮箱中，不用担心出错。
|
yidianyike
职务：普通成员
等级：1
金币：0.0
发贴：139
注册：2002/9/3 9:14:18
|
#62003/3/8 15:57:58
我们网站是不提供信箱的，但会员和非会员的权限不同！
|
南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
注册：2002/1/17 10:13:36
|
#72003/3/8 16:05:48
--------------------------------------------------------------------------------
最简单扼要的方法就是，手动发送到对方注册时对方提供的邮箱中。
|
{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
注册：2002/7/25 21:24:11
|
#82003/3/8 20:09:01
yidianyike在上个帖子中说 引用:
我们网站是不提供信箱的，但会员和非会员的权限不同！
没懂，只要有ＳＭＴＰ服务器，就能发信啊？ 不一定非要使用你自己的东西的。
|
南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
注册：2002/1/17 10:13:36
|
#92003/3/9 8:54:46
yidianyike老兄，你是不是从没有动过手呀。
|
yidianyike
职务：普通成员
等级：1
金币：0.0
发贴：139
注册：2002/9/3 9:14:18
|
#102003/3/9 9:28:28
是呀，这个东西我没有参与呀，突然交给我了。我都晕了。所以让大家帮忙了！
|
南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
注册：2002/1/17 10:13:36
|
#112003/3/9 10:27:23
有一个最简单的方法，不会出错，就是有人找密码时，你将它的密码从它的信息中找出来，然后手动发到他注册时提供的邮箱中。不就行了。
|
{ 在指尖上绽放的花朵 }
职务：普通成员
等级：5
金币：14.0
发贴：3209
注册：2002/7/25 21:24:11
|
#122003/3/9 11:40:14
…… Ｆｔ．．．
南宫前辈的方法…… 未免太那个了吧……
手动进行，一是累，二是有出错的概率……
如果网站上有１００００人，一天丢了２００个密码……
还不累疯了？
我提供一个自动的代码好了。
dim CLStr,msg,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)
msg.Priority = 3
mailserver="你所使用的SMTP服务器地址"
username="smtp服务器验证登录名（即使用信箱）"
password="smtp服务器验证密码（即信箱密码）"
receive="接受反馈信息的email地址"
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = username
msg.MailServerPassword = password
msg.From = username
msg.FromName = username
msg.AddRecipient (receive)
msg.Subject = "您丢失的密码"
msg.Body = "您的密码是"&InsertCursor("存放密码的变量")&CLStr
msg.Send (mailserver)
msg.close
set msg = nothing
%>
|
南宫彩虹
职务：普通成员
等级：2
金币：5.0
发贴：684
注册：2002/1/17 10:13:36
|
#132003/3/9 21:06:56
你看他的情况什么都不会，有代码出错的可能比手动在的多。
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
注册：2004/2/18 11:17:25
|
#142003/3/10 9:03:54
行者兄的代码是JMAIL的，首先服务器端得有JMAIL组件才能发送，否则还改用别的方法。
难人一个……
|
yidianyike
职务：普通成员
等级：1
金币：0.0
发贴：139
注册：2002/9/3 9:14:18
|
#152003/3/10 9:53:46
晕了，又没有什么简单易行的方法呀
|
