📄 modifyadmin.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临本图书馆</title>
<Link href="Css.css" rel=stylesheet>
</head>
<!--#include file="Conn.asp"-->
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="Images/title.jpg" width="283" height="51"></td>
</tr>
<% If Session("admin") <> "" Then %>
<tr>
<td align="center"><table width="305" border="0" cellpadding="0" cellspacing="1" bgcolor="#5B7656">
<tr align="center">
<td height="30" colspan="2" align="left" background="Images/bg.gif"><b> 管理员修改信息</b></td>
</tr>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From adminInfo Where name = '"&Session("admin")&"'"
Rs.Open Sql,conn,3,3
%>
<form name="form1" method="post" action="ModifyAdmin.asp?action=Editadmin">
<tr bgcolor="#FFFFFF">
<td width="86" height="18" align=right >用户名:</td>
<td width="161" height="18" align="left"> <%=Session("admin")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="86" height="23" align=right >原始密码:</td>
<td width="161" height="23" align="left" > <input type="password" name="pwd1" value="<%=Rs("pwd")%>">
</td>
</tr>
<% Rs.close
Set Rs = nothing
%>
<tr bgcolor="#FFFFFF">
<td width="86" height="23" align=right >新密码:</td>
<td width="161" height="23" align="left" > <input type="password" name="pwd2"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="86" height="23" align=right>新密码确认:</td>
<td width="161" height="23" align="left"> <input type="password" name="pwd3"></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="2"><input type="submit" name="Submit" value="提交">
<input type="reset" name="reset" value="重置"> </td>
</tr>
</form>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="2"><a href="JavaScript:history.go(-1);">返回</a></td>
</tr>
</table>
</td>
</tr>
<% If Request("action") = "Editadmin" Then
Call Editadmin()
End If
%>
<%
Sub Editadmin()
Dim pwd2
Dim pwd3
pwd2 = Trim(Request.Form("pwd2"))
pwd3 = Trim(Request.Form("pwd3"))
If pwd2 = "" Then
Response.Write "<Script>alert('请输入新密码！');</Script>"
Response.End
ElseIf pwd3 = "" Then
Response.Write "<Script>alert('您未进行新密码确认,请确认！');</Script>"
Response.End
ElseIf pwd3 <> pwd2 Then
Response.Write "<Script>alert('您的新密码与确认密码不符,请重设！');</Script>"
Response.End
Else
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From adminInfo Where name = '"&Session("admin")&"'"
Rs1.Open Sql,conn,3,3
Rs1("pwd") = pwd2
Rs1.Update
Rs1.close
Set Rs = nothing
Conn.close
Set Conn = nothing
Session.Abandon
Response.Redirect"Default.asp"
End If
End Sub
%>
<% Else %>
<tr>
<td height="50" align="center"><font color="ff0000">对不起，请不要非法登录！</font></td>
</tr>
<%End If%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -