📄 admin_alterinfo1.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>

<body>
<% 
if session("adminname")<>""and session("adminpassword")<>"" then
%>
<%
stradminname=request.Form("adminname")
stroldadminpassword=request.Form("oldadminpassword")
strnewadminpassword1=request.Form("newadminpassword1")
strnewadminpassword2=request.Form("newadminpassword2")


if request.Form("adminname")="" then
response.write "<center><b><font size=2 >错误提示:请输入密码!<a href=admin_alterinfo.asp>返回</a></font><b></center>"
response.end
end if
if request.Form("oldadminpassword")="" then
response.write "<center><b><font size=2 >错误提示:请输入密码!<a href=admin_alterinfo.asp>返回</a></font><b></center>"
response.end
end if
if request.Form("newadminpassword1")="" then
response.write "<center><b><font size=2 >错误提示:请输入新密码!<a href=admin_alterinfo.asp>返回</a></font><b></center>"
response.end
end if
if request.Form("newadminpassword2")="" then
response.write "<center><b><font size=2 >错误提示:请输入确认密码!<a href=admin_alterinfo.asp>返回</a></font><b></center>"
response.end
end if
if request.Form("newadminpassword1")<>request.Form("newadminpassword2") then
response.write "<center><b><font size=2 >错误提示:两次输入的密码不一致!<a href=admin_alterinfo.asp>返回</a></font><b></center>"
response.end
end if


set strconn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("bookstore.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
strconn.open connstr   
set rst=server.createobject("adodb.recordset")
rst.open "select * from admininfo where adminname='"&session("adminname")&"'",strconn,3,3

if not rst.eof then
   if stroldadminpassword<>rst("adminpassword") then
   response.write "<center><b><font size=2 >错误提示:原密码不正确!<a href=admin_alterinfo.asp>返回</a></font><b></center>"
   else
   rst("adminpassword")=strnewadminpassword1
   rst("adminname")=stradminname
   rst.update
end if
end if

rst.close
response.Write "<center><b><font size=2 >资料修改成功<a href=admin.asp>返回</a></font><b></center>"
set rst=nothing
strconn.close
set strconn=nothing



%>
  <%
else
response.write"<center><b><font size=2>你还没有登录！无权访问！<a href=login.asp>返回登录页面</a></font><b></center>"
end if
%> 

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -