📄 adminuser.asp
字号:
<!--#include file=admin_login_check.asp-->
<html>
<head>
<title>帐号管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/admin.css" rel="stylesheet" type="text/css">
</head>
<%
dim id
id=TRim(Request("id"))
IF Request.QueryString("Action")="add" Then
call add
elseIF Request.QueryString("Action")="edit" Then
call edit
elseIF Request.QueryString("Action")="del" Then
call del
else
call main
end if
Function main
if session("flag")="1" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from admin order by id"
rs.Open sql,conn,1,1
%>
<body>
<table align="center" width="550" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td colspan="4" class=lanyuss>帐号管理 <a href="?Action=add">添加帐号</a></td></tr>
<tr class=lanyuds>
<td>ID</td><td>用户名</td><td>密码(已MD5加密)</td><td>权限</td><td>操作</td>
</tr>
<%while not rs.EOF %>
<form method="post" action="?id=<%=rs("id")%>" style="margin:0">
<tr class=lanyuds>
<td><%=rs("id")%></td>
<td><%=rs("username")%></td>
<td><%=rs("password")%></td>
<td>
<%if rs("flag")=1 then%>
站长
<%elseif rs("flag")=2 then%>
管理员
<%else%>
更新员
<%end if%>
</td>
<td><a href="?Action=edit&id=<%=rs("id")%>">修改</a>
<a href="?Action=del&id=<%=rs("id")%>">删除</a>
</td>
</tr>
</form>
<%
rs.MoveNext
Wend
%>
<%
rs.Close
set rs=Nothing
elseif session("flag")="2" then
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from admin where username='"&session("adminname")&"' or flag=3"
rs.Open sql,conn,1,1
%>
<body>
<table align="center" width="550" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td colspan="4" class=lanyuss>帐号管理 <a href="?Action=add">添加帐号</a></td></tr>
<tr class=lanyuds>
<td>ID</td><td>用户名</td><td>密码(已MD5加密)</td><td>权限</td><td>操作</td>
</tr>
<%while not rs.EOF %>
<form method="post" action="?id=<%=rs("id")%>" style="margin:0">
<tr class=lanyuds>
<td><%=rs("id")%></td>
<td><%=rs("username")%></td>
<td><%=rs("password")%></td>
<td>
<%if rs("flag")=1 then%>
站长
<%elseif rs("flag")=2 then%>
管理员
<%else%>
更新员
<%end if%>
</td>
<td><a href="?Action=edit&id=<%=rs("id")%>">修改</a>
<a href="?Action=del&id=<%=rs("id")%>">删除</a>
</td>
</tr>
</form>
<%
rs.MoveNext
Wend
%>
<%
rs.Close
set rs=Nothing
else
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from admin where username='"&session("adminname")&"'"
rs.Open sql,conn,1,1
%>
<body>
<table align="center" width="550" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<tr>
<td colspan="4" class=lanyuss>帐号管理</td></tr>
<tr class=lanyuds>
<td>ID</td><td>用户名</td><td>密码(已MD5加密)</td><td>权限</td><td>操作</td>
</tr>
<%while not rs.EOF %>
<form method="post" action="?id=<%=rs("id")%>" style="margin:0">
<tr class=lanyuds>
<td><%=rs("id")%></td>
<td><%=rs("username")%></td>
<td><%=rs("password")%></td>
<td>
<%if rs("flag")=1 then%>
站长
<%elseif rs("flag")=2 then%>
管理员
<%else%>
更新员
<%end if%>
</td>
<td><a href="?Action=edit&id=<%=rs("id")%>">修改</a>
<a href="?Action=del&id=<%=rs("id")%>">删除</a>
</td>
</tr>
</form>
<%
rs.MoveNext
Wend
%>
<%
rs.Close
set rs=Nothing
end if
%>
<tr class=lanyuqs><td colspan="5" align="center">站长可以进行所有功能的操作,管理员没有数据库管理和站点配置的权限，更新员没有添加栏目的权限,只有更新数据的权限.</td></tr>
</table><%
end Function
Function del
dim id
id=Request.QueryString("id")
%>
<p style="margin-left:15px;">
<b>删除帐号</b></p>
<%
If Request("SubmitFlag") <> "" Then
dim sql,rs
Set Rs1 = Server.CreateObject("Adodb.Recordset")
Sql1 = "select * FROM admin"
Rs1.Open Sql1,conn,1,1
if rs1.RecordCount >1 then
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * FROM admin WHERE id="&id
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
rs.Delete
aaaa="删除帐号成功!"
end if
rs.Close
Set rs = Nothing
else
aaaa="只有一个帐号,不能删除!"
end if
rs1.Close
Set rs1 = Nothing
%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td colspan="2"><%=aaaa%><br/><a href='adminuser.asp'>返回帐号管理</a></td>
</tr>
</table>
<% else%>
<form name="pollform3sdx" method="post" action="?Action=del&id=<%=id%>">
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td colspan="2">
<strong><font color="#FF0000">确认信息： 真的要删除编号为<%=id%>帐号吗？</font></strong><br><br>
<input type=button value="不能删啊" onclick="javascript:history.go(-1);">
<input type=submit name=删除 value="当然删除" class=fmbtn></td>
</tr>
</table>
</form>
<%
end if
End Function
Function edit
dim id
id=TRim(Request("id"))
if not isnumeric(id) then id=""
if id<>"" then
%>
<form name="pollform3sdx" method="post" action="?Action=edit&id=<%=id%>">
<p style="margin-left:15px;">
<b>修改帐号</b></p>
<input type="hidden" name="SubmitFlag" value=yes>
<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr>
<td align="center">
<%
If Request("SubmitFlag") <> "" Then
dim flag,errmsg,name,pass,right_class
flag=1
errmsg="<ul><font color=red>"
right_class=Request.Form("right_class")
pass=Request.Form("pass")
name=Request.Form("name")
if name="" then errmsg=errmsg&"<li>用户名不能为空</li>":flag=0
if flag<>0 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin WHERE id="&id
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
if pass<>"" then rs("password")=md5(pass)
rs("username")=name
if right_class<>"" then rs("flag")=right_class
rs.update()
end if
Response.Write("成功修改名为<font color='red'>"&name&"</font>的帐号！")
Response.Write("<br/><a href='adminuser.asp'>返回帐号管理</a>")
errmsg=errmsg&"</font></ul>"
else
Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button onclick='javascript:history.back()'>返回修改</button>")
end if
Else
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin WHERE id="&id
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor="#FF0000" class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">用户名:</td>
<td><input name="name" type="text" class=fminpt id="boardName" value="<%=rs("username")%>" size="20" maxlength="50">
<font color=gray>(用户名，必填)</font></td>
</tr>
<%else%>
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor="#FF0000" class=TBone>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td class="tar">用户名:</td>
<td><input name="name" type="text" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(用户名，必填)</font></td>
</tr>
<%end if
rs.Close
Set rs = Nothing
%>
<tr bgcolor=#f7f7f7 class=TBBG9>
<td valign="top">用户密码:</td>
<td><input name="pass" type="text" class=fminpt id="boardName" size="20" maxlength="50">
<font color=gray>(空为不修改)</font></td>
</tr>
<% if session("flag")="1" then%>
<tr align="center" bgcolor=#f7f7f7 class=TBBG9><div >
<td colspan="2">权限设置
</div></td>
</tr>
<tr bgcolor=#f7f7f7 class=lanyuds>
<td colspan="2" align="center"><input type="radio" name="right_class" value="3">
更新员⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -