📄 adminuser.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：185623333 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│ │
'└─────────────────── http://www.fyasp.com ──┘
Server.ScriptTimeOut=5000
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
OpenDataConn
action=request("action")
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%
if session("ADMIN")="1" then
Select case action
Case "del"
call del
Case "add"
call add
Case "saveadd"
call saveadd
Case "edit"
call edit
Case "saveedit"
call saveedit
Case else
call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list
%><div align="center">
<center>
<table border="0" width="86%" cellspacing="1" cellpadding="0">
<tr bgcolor="#AABFEC">
<td width="7%" align="center" height="24"> </td>
<td width="22%" align="center" height="24">用户名</td>
<td width="24%" align="center" height="24">注册时间</td>
<td width="26%" align="center" height="24">
修改</td>
<td width="21%" align="center" height="24">管理级别</td>
</tr><form method="post" action="?action=del" name="form1">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from manager66"
rs.open sql,conn,1,1
do while not rs.eof
id=rs("id")
%>
<tr bgcolor="#F3F3F3">
<td width="7%" align="center" height="28"> <input type="checkbox" name="id" value="<%=id%>" class="mul">
</td>
<td width="22%" align="center" height="28"><%=rs("name")%> </td>
<td width="24%" align="center" height="28"><%=rs("dateandtime")%> </td>
<td width="26%" align="center" height="28">
<a href="?action=edit&id=<%=id%>">修改</a></td>
<td width="21%" align="center" height="28"><%if rs("id_key")=1 then
response.write "超级管理员"
else
response.write "普通管理员"
end if
%></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan="5" align="center" height="50"> <input type="submit" value="删除选中的管理员" name="B1">
</td>
</tr></form>
</table>
</center>
</div><%
end sub
sub del
ids=split(request("id"),",")
for i=0 to ubound(ids)
tt=ids(i)
if session("gl_id")=tt then
Response.write"<script>alert('不能删除当前登录用户！');location.href='adminuser.asp'</script>"
Response.end
else
conn.execute"delete from manager66 where id="&tt&""
end if
next
response.redirect"adminuser.asp"
end sub
sub edit%><div align="center">
<center>
<%
id=RtnReplaceInt(trim(request("id")),0)
if id<>0 then
set rs=server.createobject("adodb.recordset")
sql="select * from manager66 where id="&id&""
rs.open sql,conn,1,1
if not rs.eof then
%>
<table border="0" width="77%" cellspacing="1" cellpadding="0" height="367" bgcolor="#C0CEF3">
<tr>
<td width="100%" height="25"> </td>
</tr>
<form method="post" action="?action=saveedit" name="form1"> <tr>
<td width="100%" height="24"> 修改管理员密码：
<input name="upwd1" type="password" value="" size="20" maxlength=20>
不改请留空</td>
</tr>
<tr>
<td width="100%" height="26"> 确认密码：
<input name="upwd2" type="password" value="" size="20" maxlength=20>
<input type="hidden" name=id value=<%=id%>>
</td>
</tr>
<tr>
<td height="30" class="black"> <%if rs("gonggao")="1" then%> <input name="gonggao" type="checkbox" class="inputblack" id="gonggao" value="1" checked>
<%else%> <input name="gonggao" type="checkbox" class="inputblack" id="gonggao" value="1">
<%end if%>
公告管理
<%if rs("news")="1" then%> <input name="news" type="checkbox" id="news" value="1" class="inputblack" checked>
<%else%> <input name="news" type="checkbox" id="news" value="1" class="inputblack">
<%end if%>
新闻专区
<%if rs("ads")="1" then%> <input name="ads" type="checkbox" id="ads" value="1" class="inputblack" checked>
<%else%> <input name="ads" type="checkbox" id="ads" value="1" class="inputblack">
<%end if%>
广告管理
<%if rs("huandeng")="1" then%> <input name="huandeng" type="checkbox" value="1" class="inputblack" checked>
<%else%> <input name="huandeng" type="checkbox" value="1" class="inputblack">
<%end if%>
首页幻灯管理
<%if rs("ADMIN")="1" then%> <input name="ADMIN" type="checkbox" id="ADMIN" value="1" class="inputblack" checked>
<%else%> <input name="ADMIN" type="checkbox" id="ADMIN" value="1" class="inputblack">
<%end if%>
管理员信息</td>
</tr>
<tr>
<td height="30" class="black"> <%if rs("hyetype")="1" then%> <input name="hyetype" type="checkbox" id="hyetype" value="1" class="inputblack" checked>
<%else%> <input name="hyetype" type="checkbox" id="hyetype" value="1" class="inputblack">
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -