<%
'==============================================================
' 智思留言本4.0 (ZSLYB 4.0)
'
' 版权所有：智思网 www.zhisi.net 或 www.zslyb.com
' 程序版本：4.0
' 发布日期：2011-06-20
' 作者邮箱：zhisi@126.com
'
' 拷贝、使用、二次开发和分发等，必须保留以上的版权信息，侵权必究
'==============================================================
%>
<%
Function GetRandomizePass()
Randomize
Dim m_strRandArray, m_intRandlen, m_strRandomize, i
m_strRandArray=Array(0,1,2,3,4,5,6,7,8,9,"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
m_intRandlen=10 '定义随机码的长度
For i=1 To m_intRandlen
m_strRandomize=m_strRandomize&m_strRandArray(Int((21*Rnd)))
Next
GetRandomizePass=m_strRandomize
End Function
RelatePath="../"
DBPath=RelatePath&DBPath
OpenConn()
If Trim(Request.Form("hiAction"))="getpassword" Then
Dim username:username=Trim(Request.Form("youusername"))
If Len(username)=0 Then ShowAndBack("请输入用户名！")
'
username=Replace(username,"'","''")
'将会员密码发邮件到会员注册时的邮箱中
Dim sqlps, rsps
sqlps="select ID,UserName,UserPass,Email from [User] where [UserName]='"&username&"'"
Set rsps=Server.CreateObject("ADODB.RecordSet")
OpenConn()
rsps.Open sqlps, Conn, 0, 2
If rsps.BOF And rsps.EOF Then
rsps.Close:Set rsps=Nothing:CloseConn():ShowAndBack("用户名不正确！")
Else
email=rsps("Email")
If Len(email)=0 Then
rsps.Close:Set rsps=Nothing:CloseConn():ShowAndBack("您注册时未填写Email，无法发送密码，请与我们的客服联系！")
Else
newp=GetRandomizePass()
rsps("UserPass")=MD5(newp)
rsps.Update
mtitle="您在「"&SiteName&"」注册会员的新密码！"
mbody=SendMailTemp(SiteUrl, SiteName, mtitle, "你的密码已经成功找回！
下面是新的密码信息：用户名："&rsps("UserName")&"
新密码："&newp&"
为了安全，请尽快修改密码！")
result=SendEmail(SmtpServer,EmailAccount,EmailPassword,EmailAccount,email,mtitle,mbody)
End If
End If
rsps.Close:Set rsps=Nothing:CloseConn()
If result Then ShowAndGoto "密码发送成功！", "user.asp" Else ShowAndBack("密码发送失败！")
End If
Call Header("","","找回密码","","",False,"")
CloseConn()
%>
<%
Footer()
%>