📄 adminadmin.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<!--#include file="md5.asp" -->
<body <%=background%>>
<%if session(feiyuese&"grade")<>0 then
errormsg="<li>很抱歉，只有超级管理员才可以操作此页面</li>"
call error(errormsg)
response.end
end if
if request("action")="" then%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<tr>
<td align="right" width="20%" <%=tColor%> class=tdc colspan="3">
<p align="center">论坛管理员信息 |
<a href="?action=add">
添加管理员</a></td>
</tr>
<tr>
<td align="right" width="7%" bgcolor=<%=tColor2%> class=tdc>
<p align="center">管理员名： </td>
<td align="right" width="7%" bgcolor=<%=tColor2%> class=tdc>
<p align="center">等级</td>
<td align="right" width="6%" bgcolor=<%=tColor2%> class=tdc>
<p align="center">操作</td>
</tr>
<%
sql= "select a_grade,admin,a_username from admin"
set rs=conn.Execute (sql)
do while not rs.Eof
%>
<tr>
<td align="right" width="7%" bgcolor=<%=tColor2%> class=tdc>
<p align="center"><a href="?action=edit&admin=<%=rs("admin")%>" title="进入更新"><%=rs("admin")%></td>
<td align="right" width="7%" bgcolor=<%=tColor2%> class=tdc>
<p align="center"><%if rs("a_grade")=0 then
response.write("超级管理员")
else
response.write("一般管理员")
end if%></td>
<td align="right" width="6%" bgcolor=<%=tColor2%> class=tdc>
<p align="center"><a href="?action=del&admin=<%=rs("a_username")%>" onclick="{if(confirm('一定要删除该管理员吗？')){return true;}return false;}">删除</a></td>
</tr>
<%
rs.MoveNext
Loop
set rs=nothing
elseif request("action")="add" then
%>
</table>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<form method="POST" action="?action=add1">
<tr>
<td align="right" width="20%" <%=tColor%> class=tdc colspan="2">
<p align="center">添加管理员</td>
</tr>
<tr>
<td align="right" width="30%" bgcolor=<%=tColor2%> class=tdc>管理员名称：</td>
<td align="left" width="70%" bgcolor=<%=tColor2%> class=tdc>
<input name="admin" size="20">
</td>
</tr>
<tr>
<td align="right" width="30%" bgcolor=<%=tColor2%> class=tdc>管理员密码：</td>
<td align="left" width="70%" bgcolor=<%=tColor2%> class=tdc>
<input name="password" size="20">
</td>
</tr>
<tr>
<td align="right" width="30%" bgcolor=<%=tColor2%> class=tdc>前台用户名：</td>
<td align="left" width="70%" bgcolor=<%=tColor2%> class=tdc>
<input name="a_username" size="20">(必须为注册用户)
</td>
</tr>
<tr>
<td align="right" width="180" bgcolor=<%=tColor2%> class=tdc>等级：</td>
<td align="left" width="350" bgcolor=<%=tColor2%> class=tdc>
<input type="radio" value="0" checked name="a_grade1">超级管理员<input type="radio" name="a_grade1" value="1">一般管理员
</td>
</tr>
<tr>
<td align="right" width="150" bgcolor=<%=tColor2%> class=tdc>
<p align="left"> </td>
<td align="left" width="390" bgcolor=<%=tColor2%> class=tdc>
<input type="submit" value="提交" name="B1" class=bdtj> <input type="reset" value="重置" name="B2" class=bdtj> </td>
</tr> </form></table>
<% elseif request("action")="add1" then
a_grade1=chktopic(request("a_grade1"))
a_username=chktopic(request("a_username"))
admin=chktopic(request("admin"))
password=chktopic(request("password"))
if a_username="" or admin="" or password="" then
errormsg="<li>请输入要添加的管理员名字或者管理员密码或者前台用户名</li>"
call error(errormsg)
response.end
end if
sql1="select username from user where username='"&a_username&"'"
set rs1=conn.execute(sql1)
if not rs1.eof then
sql3="select a_username from admin where a_username='"&a_username&"'"
set rs3=conn.execute(sql3)
if not rs3.eof then
errormsg="<li>您输入的前台用户已经是管理员，请不要重复添加</li>"
call error(errormsg)
response.end
end if
sql3="select a_username from admin where admin='"&admin&"'"
set rs3=conn.execute(sql3)
if not rs3.eof then
errormsg="<li>您输入的管理员用户已经存在，请重新输入</li>"
call error(errormsg)
response.end
end if
set rs3=nothing
sql2="insert into admin (admin,a_grade,password,a_username) values('"&admin&"',"&a_grade1&",'"&md5(password)&"','"&a_username&"')"
conn.execute(sql2)
sql2="update user set grade='0' where username='"&a_username&"'"
conn.execute(sql2)
succmsg="<li>添加成功</li>"
call succ(succmsg)
response.end
else
errormsg="<li>您输入的前台用户不存在,请重新输入</li>"
call error(errormsg)
response.end
end if
set rs1=nothing
elseif request("action")="del" then
a_username=request("admin")
sql1="delete from admin where admin='"&a_username&"'"
conn.execute(sql1)
sql2="update user set grade='"&gradenum&"' where username='"&a_username&"'"
set rs=conn.execute(sql2)
succmsg="<li>删除成功</li>"
call succ(succmsg)
response.end
elseif request("action")="edit" then
admin=request("admin")
sql1="select a_grade,admin,password,a_username from admin where admin='"&admin&"'"
set rs1=conn.execute(sql1)
if not rs1.eof then%>
<table border=1 borderColor=<%=tdc2%> cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center >
<form method="POST" action="?action=edit1">
<tr>
<td align="right" width="20%" <%=tColor%> class=tdc colspan="2">
<p align="center">更新管理员</td>
</tr>
<tr>
<td align="right" width="30%" bgcolor=<%=tColor2%> class=tdc>管理员名称：</td>
<td align="left" width="70%" bgcolor=<%=tColor2%> class=tdc>
<input name="admin" size="20" value="<%=rs1("admin")%>">
</td>
</tr>
<tr>
<td align="right" width="30%" bgcolor=<%=tColor2%> class=tdc>管理员密码：</td>
<td align="left" width="70%" bgcolor=<%=tColor2%> class=tdc>
<input name="password" size="20" value=""> (如果不更改密码请留空)
</td>
</tr>
<tr>
<td align="right" width="180" bgcolor=<%=tColor2%> class=tdc>前台用户名：</td>
<td align="left" width="350" bgcolor=<%=tColor2%> class=tdc> <%=rs1("a_username")%>
<input name="a_username" size="20" type=hidden value="<%=rs1("a_username")%>">
</td>
</tr>
<tr>
<td align="right" width="180" bgcolor=<%=tColor2%> class=tdc>等级：</td>
<td align="left" width="350" bgcolor=<%=tColor2%> class=tdc>
<input type="radio" value="0" <%if rs1("a_grade")=0 then response.write("checked")%> name="a_grade1">超级管理员<input type="radio" name="a_grade1" <%if rs1("a_grade")=1 then response.write("checked")%> value="1">一般管理员
</td>
</tr>
<tr>
<td align="right" width="150" bgcolor=<%=tColor2%> class=tdc>
<p align="left"> </td>
<td align="left" width="390" bgcolor=<%=tColor2%> class=tdc>
<input type="submit" value="提交" name="B1" class=bdtj> <input type="reset" value="重置" name="B2" class=bdtj> </td>
</tr> </form></table>
<%end if
set rs1=nothing
elseif request("action")="edit1" then
a_grade1=chktopic(request("a_grade1"))
a_username=chktopic(request("a_username"))
admin=chktopic(request("admin"))
password=chktopic(request("password"))
if admin="" then
errormsg="<li>请输入管理员名字</li>"
call error(errormsg)
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select a_grade,admin,password,a_username from admin where a_username='"&a_username&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
errormsg="<li>前台用户已经不存在,请删除此管理员</li>"
call error(errormsg)
else
rs("admin")=admin
rs("a_grade")=a_grade1
if password<>"" then
rs("password")=md5(password)
end if
rs.update
succmsg="<li>修改成功</li>"
call succ(succmsg)
response.end
end if
set rs=nothing
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -