Admin_ModiPwd_old.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:4k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = "Include/Startup.asp"-->
  2. <!--#include file = "Include/md5.asp"-->
  3. <!--#include file = "admin_private.asp"-->
  4. <%
  5. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  6. '★                                                                  ★
  7. '☆                eWebEditor - eWebSoft在线编辑器                   ☆
  8. '★                                                                  ★
  9. '☆  版权所有: eWebSoft.com                                          ☆
  10. '★                                                                  ★
  11. '☆  程序制作: eWeb开发团队                                          ☆
  12. '★            email:webmaster@webasp.net                            ★
  13. '☆            QQ:589808                                             ☆
  14. '★                                                                  ★
  15. '☆  相关网址: [产品介绍]http://www.eWebSoft.com/Product/eWebEditor/ ☆
  16. '★            [支持论坛]http://bbs.eWebSoft.com/                    ★
  17. '☆                                                                  ☆
  18. '★  主页地址: http://www.eWebSoft.com/   eWebSoft团队及产品         ★
  19. '☆            http://www.webasp.net/     WEB技术及应用资源网站      ☆
  20. '★            http://bbs.webasp.net/     WEB技术交流论坛            ★
  21. '★                                                                  ★
  22. '☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
  23. %>
  24. <%
  25. sPosition = sPosition & "修改用户名及密码"
  26. Call Header()
  27. Call Content()
  28. Call Footer()
  29. Sub Content()
  30. Select Case sAction
  31. Case "MODI"
  32. ' 修改操作
  33. Call DoModi()
  34. Case Else
  35. ' 修改表单
  36. Call ShowForm()
  37. End Select
  38. End Sub
  39. ' 显示修改表单
  40. Sub ShowForm()
  41. %>
  42. <script language=javascript>
  43. // 客户端验证表单的有效性
  44. function checklogin() {
  45. var obj;
  46. obj=document.myform.newusr;
  47. obj.value=BaseTrim(obj.value);
  48. if (obj.value=="") {
  49. BaseAlert(obj, "新用户名不能为空!");
  50. return false;
  51. }
  52. obj=document.myform.newpwd1;
  53. obj.value=BaseTrim(obj.value);
  54. if (obj.value=="") {
  55. BaseAlert(obj, "新密码不能为空!");
  56. return false;
  57. }
  58. if (document.myform.newpwd1.value!=document.myform.newpwd2.value){
  59. BaseAlert(document.myform.newpwd1, "新密码和确认密码不相同!");
  60. return false;
  61. }
  62. return true;
  63. }
  64. </script>
  65. <br>
  66. <table border=0 cellpadding=0 cellspacing=0 align=center class=form1>
  67. <form action='?action=modi' method=post name=myform onsubmit="return checklogin()">
  68. <tr><th>&nbsp;&nbsp;修改您的登录用户及密码(每项必填)</th></tr>
  69. <tr><td>新用户名:<input type=text class=input size=20 name=newusr value="<%=inHTML(Session("eWebEditor_User"))%>">&nbsp;&nbsp;旧用户名:<span class=highlight1><%=outHTML(Session("eWebEditor_User"))%></span></td></tr>
  70. <tr><td>新 密 码:<input type=password class=input size=20 name=newpwd1 maxlength=30>&nbsp;&nbsp;确认密码:<input type=password class=input size=20 name=newpwd2 maxlength=30></td></tr>
  71. <tr><td align=center><input type=image border=0 src='admin/submit.gif' align=absmiddle>&nbsp;<a href='javascript:document.myform.reset()'><img border=0 src='admin/reset.gif' align=absmiddle></a></td></tr>
  72. </form>
  73. </table>
  74. <br><br>
  75. <%
  76. End Sub
  77. ' 修改操作
  78. Sub DoModi()
  79. ' 服务器端验证表单的有效性
  80. If IsSelfRefer() = False Then
  81. Go_Error "提交表单有问题!!!"
  82. End If
  83. Dim sNewUsr, sNewPwd1, sNewPwd2
  84. sNewUsr = Trim(Request("newusr"))
  85. sNewPwd1 = Trim(Request("newpwd1"))
  86. sNewPwd2 = Trim(Request("newpwd2"))
  87. If sNewUsr = "" Then
  88. Go_Error "新用户名不能为空!"
  89. End If
  90. If sNewPwd1 = "" then
  91. Go_Error "新密码不能为空!"
  92. End If
  93. If sNewPwd1 <> sNewPwd2 Then
  94. Go_Error "新密码和确认密码不相同!"
  95. End If
  96. sSql = "select * from ewebeditor_system"
  97. oRs.Open sSql, oConn, 1, 3
  98. If Not oRs.Eof Then
  99. oRs("sys_username") = md5(sNewUsr)
  100. oRs("sys_userpass") = md5(sNewPwd1)
  101. oRs.Update
  102. End If
  103. oRs.Close
  104. Response.Write "<br><p align=center class=title>修改用户名及密码</p>" & _
  105. "<br><table border=0 cellspacing=20 align=center>" & _
  106. "<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>登录用户名及密码修改成功!</span></b><br><br><ul>我现在<br><br><li><a href='admin_default.asp'>返回后台管理首页</a><li><a href='admin_modipwd.asp'>重新修改</a></ul></td></tr>" & _
  107. "</table><br><br>"
  108. End Sub
  109. %>