ATB Source Codes

Like webmaster forums Show lostpass.asp Source code

Return Download Like webmaster forums: download lostpass.asp Source code - Download Like webmaster forums Source code - Type:.asp
  1. <!--#include file="conn.asp"-->
  2. <!-- #include file="inc/const.asp" -->
  3. <!--#include file="inc/Email_Cls.asp"-->
  4. <!--#include file="inc/md5.asp"-->
  5. <%
  6. Dim topic,mailbody,sendmsg,useremail
  7. Dim username,password,repassword,Rs,SQl
  8. Dim answer
  9. Dim SendMail
  10. SendMail = False
  11. Dvbbs.LoadTemplates("login")
  12. If Request("action")="GetPass" Then
  13.         Dvbbs.Stats=template.Strings(21)
  14. Else
  15.         Dvbbs.Stats=template.Strings(2)
  16. End If
  17. Dvbbs.Nav()
  18. Dvbbs.Head_var 0,"",template.Strings(0),""
  19. If Request("action")="step1" Then
  20.         call step1()
  21. ElseIf Request("action")="step2" Then
  22.         call step2()
  23. ElseIf Request("action")="step3" Then
  24.         call step3()
  25. ElseIf Request("action")="GetPass" Then
  26.         GetPass()
  27. Else
  28.         Call main()
  29. End If
  30. Dvbbs.activeonline()
  31. Dvbbs.footer()
  32.  
  33. Sub step1()
  34.         If Dvbbs.chkpost=False Then
  35.                 showerr template.Strings(10)
  36.                 Exit Sub
  37.         End If
  38.         If request.Form("username")="" Then
  39.                 showerr template.Strings(6)
  40.                 Exit Sub
  41.         Else
  42.                 username=replace(request("username"),"'","")
  43.         End If
  44.         If Dvbbs.forum_setting(81)="1"  Then
  45.                 If Not Dvbbs.CodeIsTrue() Then
  46.                          Response.redirect "showerr.asp?ErrCodes=<li>验证码校验失败,请返回刷新页面后再输入验证码。&action=OtherErr"
  47.                 End If
  48.         End If
  49.         If Dvbbs.Forum_Setting(2)<>"0" Then
  50.                 Set Rs=Dvbbs.execute("Select UserQuesion,userAnswer,Username,Usergroupid from [Dv_user] where username='"&username&"'")
  51.         Else
  52.                 Set Rs=Dvbbs.execute("Select UserQuesion,userAnswer,Username,Usergroupid from [Dv_user] where username='"&username&"' and UserGroupID>3")
  53.         End If
  54.         If rs.eof and rs.bof then
  55.                 showerr template.Strings(8)
  56.                 Exit Sub
  57.         ElseIf  rs(3) < 4 then
  58.                 showerr template.Strings(7)
  59.                 Exit Sub
  60.         Else
  61.                 If  rs(0)="" or isnull(rs(0)) Then
  62.                         showerr template.Strings(9)
  63.                         Exit Sub
  64.                 Else
  65.                        
  66.                         template.html(6)=Replace(template.html(6),"{$Quesion}",Rs(0))
  67.                         template.html(6)=Replace(template.html(6),"{$username}",username)
  68.                         If Dvbbs.forum_setting(81)="0"  Then
  69.                                 template.html(6)=Replace(template.html(6),"{$getcode}","")
  70.                         Else
  71.                                 template.html(6)=Replace(template.html(6),"{$getcode}"," 验证码:"&Dvbbs.GetCode())
  72.                         End If
  73.                         Response.Write template.html(6)        
  74.                 End If
  75.         End If
  76.         Rs.Close  
  77.         Set Rs=Nothing
  78. End Sub
  79.  
  80. Sub step2()
  81.         Dim answer,UserToday,UpUserToday
  82.         If request.Form("username")="" Then
  83.                 showerr template.Strings(6)
  84.                 Exit Sub
  85.         Else
  86.                 username=replace(request("username"),"'","")
  87.         End If
  88.         If Dvbbs.chkpost=False Then
  89.                 showerr template.Strings(10)
  90.                 Exit Sub
  91.         End If
  92.         If request.form("answer")="" then
  93.                 showerr template.Strings(11)
  94.                 Exit Sub
  95.         Else
  96.                 answer=md5(request("answer"),16)
  97.         End If
  98.         If Dvbbs.forum_setting(81)="1"  Then
  99.                 If Not Dvbbs.CodeIsTrue() Then
  100.                          Response.redirect "showerr.asp?ErrCodes=<li>验证码校验失败,请返回刷新页面后再输入验证码。&action=OtherErr"
  101.                 End If
  102.         End If
  103.         sql="select useranswer,userquesion,useranswer,UserToday,UserID from [Dv_user] where username='"&username&"'"
  104.         Set Rs=Dvbbs.Execute(sql)
  105.         If Rs.EOF And Rs.BOF Then
  106.                 showerr template.Strings(12)
  107.                 Exit Sub
  108.         Else
  109.                 If Ubound(Split(Rs(3),"|"))=4 Then
  110.                         UpUserToday = Rs(3)
  111.                 Else
  112.                         UpUserToday = "0|0|0|0|0"
  113.                 End If
  114.                 UserToday = Split(UpUserToday,"|")
  115.                 UserToday(3) = Cint(UserToday(3))
  116.                 If UserToday(3)>Cint(Dvbbs.forum_setting(84)) and Cint(Dvbbs.forum_setting(84))<>0 Then
  117.                         showerr "您取回密码次数已超出系统限制,请24小时后再使用取回密码功能!"
  118.                         Exit Sub
  119.                 End If
  120.                 If Rs(2)<>answer Then
  121.                         If Cint(Dvbbs.Forum_setting(84))<>0 Then
  122.                                 UserToday(3)=UserToday(3)+1
  123.                                 UpUserToday=Clng(UserToday(0))&"|"&Clng(UserToday(1))&"|"&Clng(UserToday(2))&"|"&UserToday(3)&"|"&Clng(UserToday(4))
  124.                                 Dvbbs.Execute("update [Dv_user] Set UserToday='"&UpUserToday&"' Where UserID="&Rs(4))
  125.                         End If
  126.                         showerr template.Strings(12)
  127.                         Exit Sub
  128.                 Else
  129.                         If Dvbbs.Forum_Setting(2)<>"0" Then
  130.                                 template.html(7)=Replace(template.html(7),"{$readme}",template.Strings(3))
  131.                         Else
  132.                                 template.html(7)=Replace(template.html(7),"{$readme}",template.Strings(4))
  133.                         End If
  134.                         template.html(7)=Replace(template.html(7),"{$Quesion}",Rs(1))
  135.                         template.html(7)=Replace(template.html(7),"{$answer}",request.form("answer"))
  136.                         template.html(7)=Replace(template.html(7),"{$username}",username)
  137.                         Response.Write template.html(7)
  138.                 End If
  139.         End If
  140.         Rs.Close
  141.         Set Rs=Nothing
  142. End Sub
  143.  
  144. Sub step3()
  145.         If Dvbbs.chkpost=False Then
  146.                 showerr template.Strings(10)
  147.                 Exit Sub
  148.         End If
  149.         If request.Form("username")="" Then
  150.                 showerr template.Strings(6)
  151.                 Exit Sub
  152.         Else
  153.                 username=replace(request("username"),"'","")
  154.         End If
  155.         If request.Form("answer")="" Then
  156.                 showerr template.Strings(11)
  157.                 Exit Sub
  158.         Else
  159.                 answer=md5(request("answer"),16)
  160.         End  If
  161.         if request.Form("password")="" or Len(request("password"))>10 or len(request("password"))<6 then
  162.                 showerr template.Strings(13)
  163.                 Exit  Sub
  164.         ElseIf request.Form("repassword")="" Then
  165.                 showerr template.Strings(14)
  166.                 Exit Sub
  167.         ElseIf request.Form("password")<>request("repassword") Then
  168.                 showerr template.Strings(15)
  169.                 Exit Sub
  170.         Else
  171.                 password=md5(request.Form("password"),16)
  172.         End If
  173.         set rs=server.createobject("adodb.recordset")
  174.         sql="select userpassword,useremail,userquesion,userclass,UserGroupID from [Dv_user] where username='"&username&"' and useranswer='"&Dvbbs.checkStr(answer)&"'"
  175.         If Not IsObject(Conn) Then ConnectionDatabase
  176.         rs.open sql,conn,1,3
  177.         If rs.eof and rs.bof Then
  178.                 showerr template.Strings(16)
  179.                 Exit Sub
  180.         Else
  181.                 If Dvbbs.Forum_Setting(2)>0 Then
  182.                         repassword=request.form("password")
  183.                         answer=request.form("answer")
  184.                         password=rs("userpassword")
  185.                         useremail=rs("useremail")
  186.                         call sendusermail()
  187.                         If SendMail Then
  188.                                 sendmsg=template.Strings(17)
  189.                         ElseIf Rs("UserGroupID")<4 Then
  190.                                 sendmsg=template.Strings(18)
  191.                         Else
  192.                                 rs("userpassword")=md5(repassword,16)
  193.                                 Rs.Update
  194.                                 sendmsg=template.Strings(19)
  195.                         End If
  196.                 Else
  197.                         Rs("userpassword")=password
  198.                         Rs.Update
  199.                 End If
  200.                 template.html(8)=Replace(template.html(8),"{$Quesion}",Rs(2))
  201.                 template.html(8)=Replace(template.html(8),"{$answer}",request.form("answer"))
  202.                 template.html(8)=Replace(template.html(8),"{$password}",request.form("password"))
  203.                 If Dvbbs.Forum_Setting(2)<>"0" Then
  204.                         template.html(8)=Replace(template.html(8),"{$readme}",sendmsg)
  205.                 Else
  206.                         template.html(8)=Replace(template.html(8),"{$readme}",template.Strings(5))
  207.                 End If
  208.                 Response.Write template.html(8)
  209.         End if
  210.         Rs.Close
  211.         Set Rs=Nothing
  212. End Sub
  213.  
  214. Sub  main()
  215.         If Dvbbs.forum_setting(81)="0"  Then
  216.                 template.html(5)=Replace(template.html(5),"{$getcode}","")
  217.         Else
  218.                 template.html(5)=Replace(template.html(5),"{$getcode}"," 验证码:"&Dvbbs.GetCode())
  219.         End If
  220.         Response.Write template.html(5)
  221. End  Sub
  222. Sub showerr(errmsg)
  223.         template.html(9)=Replace(template.html(9),"{$Errmsg}",errmsg)
  224.         Response.Write template.html(9)
  225. End Sub
  226. Sub sendusermail()
  227.         'on error resume Next
  228.         Dim activepassurl
  229.         activepassurl=Dvbbs.Get_ScriptNameUrl()&"lostpass.asp?action=GetPass&username="&Dvbbs.htmlencode(username)&"&pass="&password&"&repass="&repassword&"&answer="&answer
  230.         template.html(12)=Replace(template.html(12),"{$Forumname}",Dvbbs.Forum_info(0))
  231.         Topic = Template.Strings(21)
  232.         template.html(10)=Replace(template.html(10),"{$username}",Dvbbs.htmlencode(username))
  233.         template.html(10)=Replace(template.html(10),"{$Copyright}",Dvbbs.Forum_Copyright)
  234.         template.html(10)=Replace(template.html(10),"{$activepassurl}","<a href="&activepassurl&">"&activepassurl&"</a>")
  235.         template.html(10)=Replace(template.html(10),"{$Version}","Dvbbs"&Dvbbs.Forum_Version)
  236.         mailbody=template.html(10)
  237.  
  238.         If Cint(Dvbbs.Forum_Setting(2))>0 Then
  239.                 Dim DvEmail
  240.                 Set DvEmail = New Dv_SendMail
  241.                 DvEmail.SendObject = Cint(Dvbbs.Forum_Setting(2))       '设置选取组件 1=Jmail,2=Cdonts,3=Aspemail
  242.                 DvEmail.ServerLoginName = Dvbbs.Forum_info(12)  '您的邮件服务器登录名
  243.                 DvEmail.ServerLoginPass = Dvbbs.Forum_info(13)  '登录密码
  244.                 DvEmail.SendSMTP = Dvbbs.Forum_info(4)                  'SMTP地址
  245.                 DvEmail.SendFromEmail = Dvbbs.Forum_info(5)             '发送来源地址
  246.                 DvEmail.SendFromName = Dvbbs.Forum_info(0)              '发送人信息
  247.                 If DvEmail.ErrCode = 0 Then
  248.                         DvEmail.SendMail useremail,topic,mailbody       '执行发送邮件
  249.                         If DvEmail.Count>0 Then
  250.                                 SendMail = True
  251.                                 sendmsg=template.Strings(20)&"<a href="&activepassurl&"><B>"&template.Strings(21)&"</B></a>"
  252.                         Else
  253.                                 sendmsg=template.Strings(20)&"<a href="&activepassurl&"><B>"&template.Strings(21)&"</B></a>"
  254.                         End If
  255.                 Else
  256.                         sendmsg=template.Strings(20)&"<a href="&activepassurl&"><B>"&template.Strings(21)&"</B></a>"
  257.                 End If
  258.                 Set DvEmail = Nothing
  259.         Else
  260.                 sendmsg=template.Strings(20)&"<a href="&activepassurl&"><B>"&template.Strings(21)&"</B></a>"
  261.         End If
  262. End Sub
  263.  
  264. Sub GetPass()
  265.         Dim username
  266.         Dim password
  267.         Dim repassword
  268.         Dim answer
  269.         Dim Rs,SQL
  270.         If request("username")="" or request("pass")="" or request("repass")="" or request("answer")="" then
  271.                 showerr template.Strings(22)
  272.         Else
  273.                 username=Dvbbs.checkStr(request("username"))
  274.                 password=Dvbbs.checkStr(request("pass"))
  275.                 repassword=md5(Dvbbs.checkStr(request("repass")),16)
  276.                 answer=md5(request("answer"),16)
  277.                 Sql="select userpassword,userclass,UserGroupID,useranswer from [Dv_user] where username='"&username&"'"
  278.                 Set Rs=Server.Createobject("Adodb.Recordset")
  279.                 If Not IsObject(Conn) Then ConnectionDatabase
  280.                 Rs.Open Sql,Conn,1,3
  281.                 If Rs.Eof And Rs.Bof Then
  282.                         showerr template.Strings(23)
  283.                         Exit Sub
  284.                 Else
  285.                         If Rs("usergroupid")<4 Then
  286.                                 showerr template.Strings(7)
  287.                                 Exit Sub
  288.                         ElseIf Rs(0)=password And Rs(3)=answer Then
  289.                                 Rs("userpassword")=repassword
  290.                                 Rs.Update
  291.                                 Response.Write template.html(11)
  292.                                 Rs.Close
  293.                                 Set Rs=Nothing
  294.                         Else
  295.                                 showerr template.Strings(23)
  296.                                 Exit Sub
  297.                         End If
  298.                 End If
  299.         End If
  300. End Sub
  301. %>
downloadlostpass.asp Source code - Download Like webmaster forums Source code
Related Source Codes/Software:
Quanzhou China networks limited - Admin admin admin 21.45KB
Love agent shop navigation friendship China buffet chain V1.0 - Fully functional, application link, points into on... 4.34KB
Source of party and Government official open source Government TS version v1.0 - I am a Government webmaster, not a computer traini... 10.95KB
Sunzhuang town government - Simple and practical! 5.15KB
160 Shenzhen rental rental information network - Rental information network-a very good site, which... 79.99KB
Journey of legends ASP.NET version system - Abbreviation for Cms is a Content Management Syste... 18.45KB
M media corporate website system v3.5.2 - M media on the powerful systems in addition to foc... 5.69KB
M media enterprise open source Web System v1.0.0 - M media on the powerful systems in addition to foc... 4.9KB
M media management system voted v2.1.0 - As computer and electronic communications technolo... 6.01KB
Chinese women's network the entire station source code - A woman's Web site package download, and a present... 22.95KB
China source download System v1.0 - This 3-to beautify the program downloaded by the i... 5.26KB
Ganzhou Windows network - Cover feature:Windows Home | News vertical and... 34.61KB
Strains of strain of beautiful personal home page Build20061004 - -----------Modified part-------------1: added ... 7.7KB
Southwest agricultural information network - Southwest agricultural information network, an agr... 98.89KB
ZWMOBI 3G mobile station system - Powerful business modules, including mobile B2C mo... 3.89KB
As a campus site system v2.0 - For most school,, to built features powerful of ma... 44.88KB
Evening student seating system 7 - Evening student seating system is facilitated the ... 26.4KB
94KK be reluctant network community beautification bate3 (new year Edition) - Kernel KB 94kkBBS Forum, new landscaping, further ... 24.82KB
QQ Flash Word - 1. powerful DIY feature, which is now immeasurably... 67KB
Zoomla! Eall CMS v2.0 - Waves CMS is committed to providing our webmasters... 11.31KB

 Back to top