📄 admin_admin.asp
字号:
<%@language=vbscript%>
<%
if session("admin")="" then
response.redirect "login.asp"
else
if session("flag")>1 then
response.write"<SCRIPT language=JavaScript>alert('您没有操作的权限！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
end if
%>
<!--#include file="conn.asp"-->
<%
'//进行管理员删除操作
if Request("action")="del" then
uid=Request("uid")
sql="delete from Admin where id="&uid
conn.Execute sql
conn.Close
set conn=Nothing
response.redirect "Admin_Admin.asp"
end if
'//进行管理员添加操作
if Request("action")="Addsave" then
username=LCase(Request("username"))
password=LCase(Request("newpin"))
right_class=CInt(Request("right_class"))
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from Admin where username='"&username&"'",conn
if not rs.EOF then
response.write"<SCRIPT language=JavaScript>alert('该用户名已经存在！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
Response.End
end if
sql="insert into Admin(username,Password,Flag) values('"
sql=sql&(username)&"','"
sql=sql&(password)&"','"
sql=sql&(right_class)&"')"
conn.Execute sql
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
Response.Redirect "Admin_Admin.asp"
end if
'//进行修改操作
if Request("action")="SaveModify" then
UserID=trim(Request("ID"))
if UserID="" then
response.write"<SCRIPT language=JavaScript>alert('请指定要修改的管理员ID！！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
UserID=Clng(UserID)
end if
password=trim(Request("Password"))
PwdConfirm=trim(request("PwdConfirm"))
flag=trim(Request("flag"))
if PwdConfirm<>Password then
response.write"<SCRIPT language=JavaScript>alert('确认密码必须与新密码相同！！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if flag="" then
response.write"<SCRIPT language=JavaScript>alert('用户权限不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
flag=CInt(flag)
end if
sql="Select * from Admin where ID=" & UserID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.Bof and rs.EOF then
response.write"<SCRIPT language=JavaScript>alert('不存在此用户！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
rs.close
set rs=nothing
end if
rs("password")=password
rs("flag")=flag
rs.update
rs.Close
set rs=Nothing
Response.Redirect "Admin_Admin.asp"
end if
%>
<html>
<head>
<title>管 理 员 管 理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function check()
{
if(document.form1.username.value=="")
{
alert("用户名为空");
return false;
}
if(document.form1.newpin.value=="")
{
alert("密码不能为空");
return false;
}
if((document.form1.newpin.value)!=(document.form1.re_newpin.value))
{
alert("密码不匹配");
return false;
}
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr background="images/bg.gif">
<td class="topbg" height="22" colspan="2" align="center"><b>管 理 员 管 理</b></td>
</tr>
<tr>
<td class="tdbg" width="70" height="30"><b>管理导航：</b></td>
<td class="tdbg" height="30"><a href="Admin_Admin.asp">管理员管理首页</a> | <a href="Admin_Admin.asp?Action=Add">新增管理员</a></td>
</tr>
</table>
<%if Request("action")="" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from admin where flag>="&Session("flag")&" order by id"
rs.Open sql,conn,1,2
%>
<br>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<form name="myform" method="Post" action="Admin_Admin.asp" onsubmit="return confirm('确定要删除选中的管理员吗？');">
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td width="40" height="22"><strong> <font color="#FFFFFF">序号</font></strong></td>
<td height="22" width="270"><strong> <font color="#FFFFFF">用 户 名</font></strong></td>
<td width="128" height="22"><strong> <font color="#FFFFFF">权 限</font></strong></td>
<td width="149"><strong><font color="#FFFFFF">最后登录IP</font></strong></td>
<td width="148"><strong><font color="#FFFFFF">最后登录时间</font></strong></td>
<td width="79"><strong><font color="#FFFFFF">登录次数</font></strong></td>
<td height="22" colspan="2"><strong> <font color="#FFFFFF">操 作</font></strong></td>
</tr>
<%do while not rs.EOF %>
<tr align="center">
<td width="40" class="tdbg"><%=rs("ID")%></td>
<td class="tdbg" width="270">
<%
if rs("username")=session("Admin") then
response.write "<font color=red><b>" & rs("UserName") & "</b></font>"
else
response.write rs("UserName")
end if
%>
</td>
<td width="128" class="tdbg">
<%
select case rs("flag")
case 1
flag="超级管理员"
case 2
flag="高级管理员"
case 3
flag="笑话录入员"
end select
response.write(flag)
%>
</td>
<td width="149" class="tdbg">
<%
if rs("LastLoginIP")<>"" then
response.write rs("LastLoginIP")
else
response.write " "
end if
%>
</td>
<td width="148" class="tdbg">
<%
if rs("LastLoginTime")<>"" then
response.write rs("LastLoginTime")
else
response.write " "
end if
%>
</td>
<td width="79" class="tdbg">
<%
if rs("LoginTimes")<>"" then
response.write rs("LoginTimes")
else
response.write "0"
end if
%>
</td>
<td width="81" class="tdbg">
<a href="Admin_Admin.asp?Action=Modify&id=<%=rs("id")%>">修改</a></td>
<td width="67" class="tdbg"><a href="Admin_Admin.asp?Action=del&uid=<%=rs("id")%>" onClick="return confirm('确定要删除此管理员吗？');">删除</a></td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" height="30"> </td>
<td> </td>
</tr>
</table>
</td>
</form></tr></table>
<%
rs.Close
set rs=Nothing
end if
%>
<br>
<br>
<br>
<%if Request("action")="Add" then%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<form method="post" action="Admin_Admin.asp" name="form1" onsubmit="javascript:return check();">
<tr >
<td height="25" align="center" class="title" colspan="2"> <b><font color="#FFFFFF">新
增 管 理 员</font></b> </td>
</tr>
<tr>
<td height="30" class="tdbg" width="50%" align="right"> 用 户 名<font size="2">：</font></td>
<td height="30" class="tdbg" width="50%"><font size="2">
<input type="text" name="username" size="20">
</font></td>
</tr>
<tr>
<td height="30" class="tdbg" width="50%" align="right">初始密码：</td>
<td height="30" class="tdbg" width="50%"><font size="2">
<input type="password" name="newpin" size="20">
</font></td>
</tr>
<tr>
<td height="30" class="tdbg" width="50%" align="right"> 确认密码：</td>
<td height="30" class="tdbg" width="50%"><font size="2">
<input type="password" name="re_newpin" size="20">
</font></td>
</tr>
<tr>
<td class="tdbg" width="50%" align="right"> 权限设置：</td>
<td height="30" class="tdbg" width="50%">
<select name="right_class" id="right_class">
<option value="1" selected>系统管理员</option>
<option value="2">高级管理员</option>
<option value="3">笑话录入员</option>
</select>
</td>
</tr>
<tr>
<td height="30" align="center" class="tdbg" colspan="2">
<input type="submit" name="Submit" value="确 定">
<input name="Cancel" type="button" value="取 消" onClick="window.location.href='Admin_Admin.asp'" >
<input name="Action" type="hidden" value="Addsave">
</td>
</tr>
</form>
</table>
<%end if%>
<br>
<%if Request("action")="Modify" then
dim UserID,flag
UserID=trim(Request("ID"))
if UserID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定要修改的管理员ID</li>"
else
UserID=Clng(UserID)
end if
sql="Select * from Admin where ID=" & UserID
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,3
if rs.Bof and rs.EOF then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>不存在此用户！</li>"
else
flag=rs("flag")
%>
<form method="post" action="Admin_Admin.asp" name="form1" onsubmit="javascript:return CheckModify();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2">
<div align="center"><font size="2"><strong><font color="#FFFFFF">修 改 管
理 员 信 息</font></strong></font></div>
</td>
</tr>
<tr>
<td width="300" class="tdbg"><strong>用 户 名：</strong></td>
<td class="tdbg"><%=rs("UserName")%> <input name="ID" type="hidden" value="<%=rs("ID")%>"></td>
</tr>
<tr>
<td width="300" class="tdbg"><strong>新 密 码：</strong><br><font color="#0000FF">如果不想修改，请保持为空</font></td>
<td class="tdbg">
<input type="password" name="Password" value="<%=rs("password")%>">
</td>
</tr>
<tr>
<td width="300" class="tdbg"><strong>确认密码：</strong><br><font color="#0000FF">如果不想修改，请保持为空</font></td>
<td class="tdbg"><input type="password" name="PwdConfirm" value="<%=rs("password")%>">
</td>
</tr>
<tr>
<td width="300" class="tdbg"><strong>权限设置： </strong></td>
<td class="tdbg"><select name="flag" id="flag">
<option value="1" <%if flag=1 then %>selected<% end if %>>超级管理员</option>
<option value="2" <%if flag=2 then %>selected<% end if %>>高级管理员</option>
<option value="3" <%if flag=3 then %>selected<% end if %>>文章录入员</option>
</select>
</td>
</tr>
<tr>
<td colspan="2" align="center" class="tdbg"><input name="Action" type="hidden" id="Action" value="SaveModify">
<input type="submit" name="Submit" value=" 确 定 " style="cursor:hand;">
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Admin.asp'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end if
rs.close
set rs=nothing
end if
%>
<br>
<br><br>
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<tr class="title">
<td height="22" colspan="2"><strong>管理员权限说明</strong></td>
</tr>
<tr valign="top" class="tdbg">
<td width="120" align="right"><strong>笑话录入员：</strong></td>
<td>只有添加笑话或漫画图片的权限。文章发表后不能更改所属栏目及专题，但可以修改和删除自己发表的文章。</td>
</tr>
<tr valign="top" class="tdbg">
<td width="120" align="right"><strong>高级管理员：</strong></td>
<td>除上述权限之外，拥有栏目管理、专题管理、评论管理、公告管理、广告管理、友情链接管理、网站调查管理权限。</td>
</tr>
<tr valign="top" class="tdbg">
<td width="120" align="right"><strong>超级管理员：</strong></td>
<td>拥有所有管理权限。</td>
</tr>
</table>
<%call CloseConn()%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -