📄 admin_admin.asp
字号:
管理员密码：<input type="password" name="adminpwd" style="width:150px;height:20px;" maxlength="20"><br>
确认此密码：<input type="password" name="confirm" style="width:150px;height:20px;" maxlength="20"><br>
<span class="current_font">[ 注意：管理员密码最少8位，最长12位 ]</font></td>
</tr>
<tr class="tablebody">
<td height="40" align="center"><input type="submit" name="Submit" value="确定新增"> <input type="reset" name="Reset" value="清空重填"></td>
</tr>
<input type="hidden" name="addadmin" value="true">
</form>
</table>
<%
end sub
'==================================
'=过 程 名：editadmin
'=功 能：编辑管理员
'==================================
sub editadmin()
if request.form("editadmin")="true" then
admin_id=checksql("管理员ID",request.form("id"),0,4)
adminname=checksql("管理员名称",request.form("adminname"),1,20)
nickname=checksql("管理员昵称",request.form("nickname"),1,20)
'oldpwd=md5(checksql("旧密码",request.form("oldpwd"),1,12))
if len(trim(request.form("adminpwd")))<8 then
Response.Write " <script> window.alert('管理员密码不能少于8位'); history.back();</script>"
Response.End
end if
adminpwd=checksql("新密码",request.form("adminpwd"),1,12)
confirm=checksql("确认码",request.form("confirm"),1,12)
if adminpwd<>confirm then
Response.Write " <script> window.alert('新密码和确认码不相同，请重新输入'); history.back();</script>"
Response.End
end if
sql="select * from wapls_admin where admin_id="&admin_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
' if oldpwd<>rs("admin_password") then
' rs.close
' set rs=nothing
' Response.Write " <script> window.alert('管理员密码错误！'); history.back();</script>"
' Response.End
' else
rs("admin_name")=adminname
rs("admin_password")=md5(adminpwd)
rs("nickname")=nickname
rs.update
rs.close
set rs=nothing
session("wapls_adminlogin")=""
session("super_data")=""
response.redirect "admin_admin.asp"
' end if
end if
admin_id=checksql("管理员ID",request.querystring("id"),0,4)
sql="select * from wapls_admin where admin_id="&admin_id
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form2" method="post" action="">
<tr>
<td class="td_title">编辑管理员〖<span class="current_font"><%=rs2("admin_name")%></span>〗</td>
</tr>
<tr class="tablebody" align="center">
<td style="line-height:150%">
名 称：<input type="text" name="adminname" style="width:150px;height:20px;" maxlength="20" value="<%=rs2("admin_name")%>"><br>
昵 称：<input type="text" name="nickname" style="width:150px;height:20px;" maxlength="20" value="<%=rs2("nickname")%>" title="注意：昵称应与管理员名称不同！"><br>
<!--
旧 密 码：<input type="password" name="oldpwd" style="width:150px;height:20px;" maxlength="20"><br>
-->
新 密 码：<input type="password" name="adminpwd" style="width:150px;height:20px;" value="" maxlength="20"><br>
确认密码：<input type="password" name="confirm" style="width:150px;height:20px;" value="" maxlength="20"><br>
<span class="current_font">[ 注意：管理员密码最少8位，最长12位 ]</font>
</td>
</tr>
<tr class="tablebody">
<td height="30" align="center">
<input type="submit" name="Submit" value="确定修改">
<input type="reset" name="Reset" value="清空重填">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs2("admin_id")%>">
<input type="hidden" name="editadmin" value="true">
</form>
</table>
<%
rs2.close
set rs2=nothing
end sub
'==================================
'=过 程 名：deladmin()
'=功 能：删除管理员
'=注 意：不能删除超级管理员
'==================================
sub deladmin()
if request.form("deladmin")="true" then
admin_id=checksql("管理员ID",request.form("id"),0,4)
sql="select * from wapls_admin where admin_id="&admin_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs("admin_super")=1 then
Response.Write " <script> window.alert('超级管理员，不能删除！'); location.href='?action=admingroup';</script>"
Response.End
else
rs.delete
response.redirect "admin_admin.asp"
end if
rs.close:set rs=nothing
end if
admin_id=checksql("管理员ID",request.querystring("id"),0,4)
sql="select * from wapls_admin where admin_id="&admin_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<form name="form2" method="post" action="">
<tr>
<td class="td_title">删除管理员[注意：当前管理员与超级管理员不能被删除]</td>
</tr>
<tr class="tablebody" align="center">
<td style="height:100px;font-weight:bold;font-size:13.5px;">确认要删除管理员<span class="current_font"><%=rs("admin_name")%></span>吗？</td>
</tr>
<tr class="tablebody">
<td height="30" align="center">
<input type="submit" name="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs("admin_name")%>』这个管理员吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
<input type="hidden" name="id" value="<%=rs("admin_id")%>">
<input type="hidden" name="deladmin" value="true">
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：admingroup
'=功 能：管理员列表
'==================================
sub admingroup()
sql="select * from wapls_admin"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr>
<td colspan="3" class="td_title">管理员组</td>
</tr>
<tr class="tablebody" align="center">
<td width="10%">编号</td>
<td width="60%">管理员名称[昵称]</td>
<td width="30%">操作</td>
</tr>
<%
dim n
n=0
do while not rs.eof
n=n+1%>
<tr class="tablebody">
<td align="center"><%=n%></td>
<td> <%=rs("admin_name")%> [<%=rs("nickname")%>] <%if rs("admin_super")=1 then%><span class="current_font">☆</span><%end if%><%if rs("admin_name")=cur_adminname then%> <span class="current_font" title="您自己">△</span><%end if%></td>
<td align="center"><button onClick="window.location
='?action=editadmin&id=<%=rs("admin_id")%>'">编辑</button> <button onClick="window.location
='?action=deladmin&id=<%=rs("admin_id")%>'">删除</button></td>
</tr>
<%
rs.movenext
loop
%>
<tr class="tablebody">
<td colspan="3">注意：<br>
1、<span class="current_font">☆</span> 表示超级管理员，不能被删除，但可以改名称/昵称/密码！<br>
2、<span class="current_font">△</span> 表示你登录的帐户。<br>
3、昵称主要用于管理员名称在前台的显示，使用时应与管理员名称不同，避免出现安全问题！<br>
4、在首次登录修改管理员名称及用户名后，可点击[<a href="admin_index.asp"><font color="#0000ff">此处</font></a>]回到后台管理首页！</td>
</tr>
</table>
<%else
response.write "暂无管理员 "
end if
rs.close:set rs=nothing
%>
<br>
<%
sql="select * from wapls_admin where login_flag=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
<tr>
<td colspan="6" class="td_title">管理员组在线情况</td>
</tr>
<tr class="tablebody" align="center">
<td width="10%">编号</td>
<td width="20%">名称</td>
<td width="20%">昵称</td>
<td width="10%">权限</td>
<td width="20%">登录时间</td>
<td width="20%">IP</td>
</tr>
<%
n=1
do while not rs.eof
%>
<tr class="tablebody" align="center">
<td width="10%"><%=n%></td>
<td width="20%"><%if rs("admin_name")=cur_adminname then%> <span class="current_font" title="您自己"><%=rs("admin_name")%></span><%else%><%=rs("admin_name")%><%end if%></td>
<td width="20%"><%=rs("nickname")%></td>
<td width="10%"><%if rs("admin_super")=1 then%><span class="current_font">超管</span><%else%>普管<%end if%></td>
<td width="20%"><%=rs("last_time")%></td>
<td width="20%"><a href="wapls_ip.asp?ip=<%=rs("last_ip")%>" title="点击查看IP地址归属地"><%=rs("last_ip")%></a></td>
</tr>
<%
n=n+1
rs.movenext
loop
if rs.eof and rs.bof then
response.write"<tr class=""tablebody""><td height=""70"" colspan=""6"" align=""center"">当前没有管理员在线或数据库标记出错</td></tr>"
end if
rs.close:set rs=nothing
%>
</table>
<br>
<%
end sub
else
response.write "<script>window.alert('你尚未登录.或者超时了!请重新登录!');window.location='admin_login.asp';</script>"
end if
%>
<!--#include file="wapls_admin_bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -