changepwd.asp

来自「一个简单的图书管理系统！毕业论文」· ASP 代码 · 共 30 行

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%
'确认原密码
dim id
id=request("uid")
if request("pwd")<>"" then
if request("utype")<>"3" then 'utpye=3 admin
sql1="select * from u where id="&id
else 
sql1="select * from admin where id="&id
end if 
set rs1=db.execute(sql1)
if request("pwd")=rs1("pwd") then
response.Redirect("pwd2.asp?uid="&id&"&utype="&request("utype"))
else
response.write "<script>alert('原密码错误');history.go(-1)</script>"
end if 
else
%><div><form action="" method="post">确认原密码
<input name="pwd" type="password"  size="15" >
 <input type="submit"  value="确认">
              &nbsp; 
              <input type="reset"  value="重置">
</form></div>
<%end if %>