password.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 74 行

ASP
74 行
字号 
<%@LANGUAGE="VBSCRIPT" %>
<!--#include file=adovbs.inc -->
<!--#include file=connection.asp -->
<%
If Session("UserLevel")="" Then
	Response.Redirect "illegal.asp"
End If
%>
<%
ModifySuccess=0
NewPassword=Request.Form("NewPassword")
NewPassword1=Request.Form("NewPassword1")
If NewPassword<>NewPassword1 Then
	Response.Redirect "error.asp"
End If
Set rsTest=Server.CreateObject("ADODB.RecordSet")
rsTest.Open "Account",Conn,adOpenkeySet,adLockOptimistic
If Request.ServerVariables("CONTENT_LENGTH")<>0 And NewPassword<>"" Then
	Do While Not rsTest.EOF 
		If rsTest("Username").Value=Session("Username") And rsTest("Password").Value=Session("Password") Then
			rsTest("Password")=NewPassword
			ModifySuccess=1
		End If
		rsTest.MoveNext
	Loop
	rsTest.UpdateBatch
End If
If ModifySuccess=1 Then
	Response.Redirect "modifysuccess.asp"
End If
rsTest.Close
Conn.Close
Set rsTest=Nothing
Set Conn=Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改用户密码</title>
</head>
<body>
<p>&nbsp;</p>
<table width="97%" height="190" border="0">
  <tr>
    <td><div align="center">
        <p><font color="#0000FF" size="7" face="华文新魏">用户密码修改</font></p>
        <hr size="5" color="#0000FF">
        <p><font color="#0000FF" size="7" face="华文新魏"></font></p>
      </div></td>
  </tr>
  <tr>
    <td><div align="center">
        <form name="form1" method="post" action="<% =Request.ServerVariables("SCRIPT_NAME") %>">
          <p>&nbsp;</p>
          <p>输入新密码： 
            <input type="Password" name="NewPassword">
          </p>
          <p>确认新密码： 
            <input type="Password" name="NewPassword1">
          </p>
          <p> 
            <input type="submit" name="Submit" value="确认修改">&nbsp;&nbsp;&nbsp;&nbsp;
            <input type="reset" name="Submit2" value="重新输入">
          </p>
          <p align="center"><a href="main.asp"><font size="5" face="华文新魏">返 回</font></a></p>
		  <p>&nbsp; </p>
        </form>
      </div></td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html>

password.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 password.asp 源码文件，采用 ASP 编程语言编写，共 74 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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