📄 pwd.asp

📁 一套比较完整的内部技术支持全部源代码,请大家共同分享

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/tar.asp" -->
<%
dim errmsg
if request.form("pwd")<>"" and request.form("password")=request.form("pwd") then
%>
<%
Dim rs_add__MMColParam
rs_add__MMColParam = "1"
If (Session("USERNAME") <> "") Then
  rs_add__MMColParam = Session("USERNAME")
End If
%>
<%
Dim rs_add
Dim rs_add_numRows

Set rs_add = Server.CreateObject("ADODB.Recordset")
rs_add.ActiveConnection = MM_tar_STRING
rs_add.Source = "SELECT * FROM dbo.USER_LIST WHERE password='" & request.form("oldpassword") & "' and USERNAME = '" + Replace(rs_add__MMColParam, "'", "''") + "'"
rs_add.CursorType = 0
rs_add.CursorLocation = 2
rs_add.LockType = 3
rs_add.Open()
if rs_add.eof then
	errmsg="密码不正确！"
else
	rs_add("password")=request.form("pwd")
	rs_add.update
	errmsg="密码更改成功!"
end if
%>
<%
rs_add.Close()
Set rs_add = Nothing
end if
%>
<html>
<head>
<title>更改密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body leftmargin="0" topmargin="0">
<table width="99%" height="99%" border="0">
  <tr>
    <td width="18%" height="73">晨砻内部技术支持网</td>
    <td width="82%">banner处</td>
  </tr>
  <tr>
    <td align="center" valign="top">
      <!--#include file="inc/menu.asp"-->
      &nbsp;</td>
    <td align="center" valign="top"><p><br>
        更改密码<br><%=errmsg%> </p>
        <%if request.form("password")<>request.form("pwd") then
       %>键入的两次密码不一致
       <%
       end if%>
      <form name="form2" method="post" action="pwd.asp">
        <table width="90%" border="0">
          <tr>
            <td>旧密码：</td>
            <td>
<input name="oldpassword" type="password" id="oldpassword" maxlength="20"></td>
          </tr>
          <tr>
            <td>新密码：</td>
            <td>
<input name="password" type="text"  type="password" id="password" maxlength="20"></td>
          </tr>
          <tr>
            <td>密码确认：</td>
            <td>
<input name="pwd" type="password" id="pwd" maxlength="20"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit2" value="更改"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </form>
      <p>&nbsp;</p></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -