changepassword.asp

来自「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理」· ASP 代码 · 共 105 行

ASP
105 行
字号 
<%@ Language=VBScript %>
<% If Session(strCookieURL & "www.3rom.com") = "1369852475213" and Session("count")<10 Then %> 
<!--#INCLUDE FILE="inc_Conn.asp" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="VI60_defaultClientScript" content="JavaScript">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ChangePassword</title>
</head>

<body bgcolor="#D6D3CE">

<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" width="75%">
    <tr>
      <td width="8%">　</td>
      <td width="42%">　</td>
      <td width="42%">　</td>
      <td width="8%">　</td>
    </tr>
    <tr>
      <td width="8%">　</td>
      <td width="84%" colspan="2" align="center">
      <% If Request.QueryString("active")<>"DoIt" Then %>
      <form method="POST" action="ChangePassword.asp?active=DoIt">
      
      <div align="center">
        <center>
        <table border="1" cellpadding="0" cellspacing="0" width="100%">
          <tr>
            <td width="32%">原密码：</td>
            <td width="68%"><input type="password" name="Password" size="20"></td>
          </tr>
          <tr>
            <td width="32%">新密码：</td>
            <td width="68%"><input type="password" name="NewPassword" size="20"></td>
          </tr>
          <tr>
            <td width="32%">核对密码：</td>
            <td width="68%"><input type="password" name="CheckPassword" size="20"></td>
          </tr>
          <tr>
            <td width="100%" colspan="2" align="center"><input type="submit" value=" 提交 " name="B1">　　　<input type="reset" value="全部重写" name="B2"></td>
          </tr>
        </table>
        </center>
      </div>
      
      </form>
      <% Else %>
      <%
      strPassword=Request.form("Password")
      
      strAdminID=session("AdminID")
      strNewPassword=Request.form("NewPassword")
      strCheckPassword=Request.form("CheckPassword")
      
      strSql="select * from Admin where AdminID=" & strAdminID
      set rs=MyCon.execute(strSql)
      
      If strPassword=rs("News_PassWord") and strNewPassword=StrCheckPassword Then
      strSql="Update Admin set News_PassWord=" & "'" & strNewPassword & "'" 
      strSql=strSql & "where AdminID=" & strAdminID
      MyCon.execute(strSql)
      Response.write "密码修改成功"
      Response.write "<br>" & "请用新密码重新登陆"
      Session.Abandon
      Else
      Session("count")=Session("count")+1
      Response.write "出错啦!!!"
      End If
      
      rs.close
      set rs=nothing
      %>
      <% End If %>
      </td>
      <td width="8%">　</td>
    </tr>
    <tr>
      <td width="8%">　</td>
      <td width="84%" align="center" colspan="2"><a href="Index.asp">返回管理</a></td>
      <td width="8%">　</td>
    </tr>
  </table>
  </center>
</div>
</body>

</html>
<%
MyCon.close
set MyCon=nothing
%>
<% 
Else
Response.redirect "Login.asp"
End If
%>

changepassword.asp - 源码说明

本页面展示了「为了开发出适用于中小型企业的通用人才管理软件。对于已备电脑等硬件设备而无人才管理软件的企业更能带来更高的收益。此人才管理软件主要应用了DELPHI 7和SQL。解决企业管理中的员工管理」中的 changepassword.asp 源码文件，采用 ASP 编程语言编写，共 105 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与DELPHI相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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