📄 changepwd.asp

📁 综合信息管理系统
💻 ASP
字号:

<!--#INCLUDE FILE="Conn.asp" -->

<%
IF not(Session("KEY")="super" or Session("KEY")="input" or Session("KEY")="check") THEN
response.redirect "login.asp"
response.end
END IF
%>
<%
  if session("username")="" then
      response.write "错误!!您没有权限或者连接超时,请重新登陆." %>
      <a href="login.asp" target="_top">登陆</a>
<% response.end 
  end if
  if trim(request("oldpassword"))<>"" and trim(request("newpassword1"))<>"" and trim(request("newpassword2"))<>"" then 
      if  len(trim(request("oldpassword")))>14 or len(trim(request("newpassword1")))>14 or len(trim(request("newpassword2")))>14 or trim(request("newpassword1"))<>trim(request("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 admin where passwd ='" & request("oldpassword") & "' and username='" & session("username") & "'"
      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 admin SET passwd = '" & request("newpassword1") & "' where username='" & session("username") & "'"
		      conn.execute sql
		      if not err.number<>0 then %>
			      <script language=vbscript>
			          msgbox "操作成功!您的密码已经修改"
		          </script>
		<%    end if
	     end if		
     end if
 end if
%>
<html>
<head>
<LINK href="style.css" rel=stylesheet type=text/css>
<title>用户修改密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<p>　</p>
<b><h1><center>用户<font color=red><%=session("username")%></font>修改密码</h1></b></p><br><p>　</p>
<p align="center">
<form action="changepwd.asp" method="post">
    输入旧密码: 
    <input type="password" name="oldpassword" class="input" size="18" maxlength="14"><br>
	输入新密码:
    <input type="password" name="newpassword1" class="input" size="18" maxlength="14"><br>
	确认新密码: 
    <input type="password" name="newpassword2" class="input" size="18" maxlength="14"><br><br><br>
	<input type="submit" value="确 认 修 改" class="button">
</form>
</p>
</body>
</html><%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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