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

📄 pwd_oldcheck.asp

📁 企业信息化管理系统:针对的是一个计算机配件生产公司为背景实现的。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>密码修改</title>
</head>
<style type="text/css">
<!--
div {
	margin-top: 140px;
	font-family: Arial, Helvetica, sans-serif;	
	font-size: 26px;
	text-align: center;
}
-->
</style>
<body>
<!--#include file ="Connections/auto.asp"-->
<%
psw=Trim(Request.form("Old_Psw"))
loginId=session("Rname")
%>
<%   
     set RS = server.CreateObject("ADODB.Recordset")
	 sname = "select * from Login where ID ='"& loginId & "' and PWD='" & psw & "'"
	 RS.open sname,CN,1,3
	 if RS.eof then
%>
<script language="vbscript">
  window.alert("输入错误,请重新输入!")
  window.navigate("PWD_Chold.htm") 
</script>
<%      
  else
      response.Redirect("PWD_Ch.htm")
  end if
		 
		 		 	
 CN.close
 set CN=nothing 
%>

</body>
</html>

⌨️ 快捷键说明

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