📄 changepwd.asp

📁 一个网络相册
💻 ASP
字号:
<% option explicit %>
<!--#include file="../function1/DBOpen.asp"-->
<!--#include file="../function/MD5.asp"-->
<%
  dim pwd,name
  name=session("name")
  pwd=md5(request.form("oldpassword"))
  if session("purview")="" then
      response.write "错误!!您没有权限或者连接超时,请重新登陆." %>
      <a href="../login.asp?id=0" target="_top">登陆</a>
<% response.end 
  end if
  if trim(request.form("oldpassword"))<>"" and trim(request.form("newpassword1"))<>"" and trim(request.form("newpassword2"))<>"" then 
      if  len(trim(request.form("newpassword1")))>14 or len(trim(request.form("newpassword2")))>14 or trim(request.form("newpassword1"))<>trim(request.form("newpassword2"))then 
          response.write "错误!!密码长度大于14位或两次输入新密码不一致." %>
          <a href="changepwd.asp">返回</a>
          <%response.end 
      end if
      dim rs,sql
      set rs=server.createobject("adodb.recordset")
      sql="select * from users where name='"&name&"' and pwd='"&pwd&"'"
      rs.open sql,conn,1,1
      if err.number<>0 then 
	      rs.close
		  set rs=nothing
	      response.write "数据库操作失败："&err.description %>
          <a href="#" onclick="javascript:window.history.go(-1)">返回</a>
	   <% err.clear
	      response.end
      else
	      if rs.bof and rs.eof then
		      response.write "旧密码输入错误!" %>
              <a href="changepwd.asp">返回</a>
	   <%     response.end
	      else
		      sql = "UPDATE users SET pwd = '" & md5(request.form("newpassword1")) & "' where name='" & session("name") & "'"
		      conn.execute sql
		      if not err.number<>0 then %>
			      <script language=vbscript>
			          msgbox "操作成功!您的密码已经修改"
		          </script>
		<%    end if
	     end if		
     end if
 end if
%>
<html>
<head>
<title>用户修改密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<p>&nbsp;</p>
<p align="center"><b><font size="5">用户修改密码</font></b></p><br><p>&nbsp;</p>
<p align="center">
<form action="changepwd.asp" method="post">
    <font size="2">输入旧密码:</font> 
    <input type="password" name="oldpassword" class="input" size="18" maxlength="20"><br>
	<font size="2">输入新密码:</font> 
    <input type="password" name="newpassword1" class="input" size="18" maxlength="20"><br>
	<font size="2">确认新密码:</font> 
    <input type="password" name="newpassword2" class="input" size="18" maxlength="20"><br>
  <br>
	<input type="submit" value="确 认 修 改" class="button">
</form>
</p>
</body>
</html>
<!--#include file="../function/DBclose.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -