checkmidczy.asp

来自「企业进销存管理系统 企业级别的进销存管理系统」· ASP 代码 · 共 32 行

<%
cname=request("cname")
oldpass=request("oldpass")
pass=request("pass")
repass=request("repass")
if pass="" or repass="" then%>
<script language="JavaScript">
alert("不推荐您使用空密码!")
history.back(1)
</script> 
<%response.end()
end if
set conn=server.createobject("adodb.connection")
conn.open application("dsn")
%>

<%'核对原密码
set rs=server.createobject("adodb.recordset")
sql="select * from userlist where name='"&cname&"' and pass='"&oldpass&"'"
rs.open sql,conn,1,3
if not rs.eof then 
id=rs("id")
 sql="update userlist set name='"&cname&"',pass='"&pass&"' where id='"&id&"'"
conn.execute sql
response.write "<script language='javascript'>alert('密码修改成功，新密码为："&pass&"');window.location.href='midczy.asp';</script>"
else 
%>
<script language="javascript">
alert("您输入的旧密码不正确")
history.back(1)
</script>
<%end if%>