?? admin_admin.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=chkuser.asp-->
<!-- #include file="admin_config.asp" -->
<head>
<title><%=ForumName%>--管理頁面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<script language="JavaScript">
<!--
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
//-->
</script>
</head>
<BODY <%=ForumBody%>>
<%
if instr(session("flag"),"42")=0 then
Errmsg=Errmsg+"<br>"+"<li>本頁面為管理員專用，請<a href=admin_index.asp target=_top>登陸</a>后進入。<br><li>您沒有管理本頁面的權(quán)限。"
call Error()
else
dim rs,sql
dim body
call main()
conn.close
set conn=nothing
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=Tabletitlecolor%>'>
<td><font color=<%=tablefontcolor%>>歡迎<b><%=membername%></b>進入管理中心</font>
</td>
</tr>
<tr bgcolor=<%=tablebodycolor%>>
<td width="100%" valign=top><font color=<%=tablecontentcolor%>><p>
<%
if request("action")="update" then
call update()
response.write body
elseif request("action")="edit" then
call userinfo()
else
call userlist()
end if
%></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<script language="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</script>
<%
end sub
sub userlist()
%>
<table width="80%" border="0" cellspacing="3" cellpadding="0" align=center>
<tr>
<td colspan=3 bgcolor="<%=aTableTitleColor%>">
<font color=<%=tablecontentcolor%>><p><b>管理員權(quán)限管理</b>：<br>
注意：請選擇相應(yīng)的管理員進行管理操作。</p></font>
</td>
</tr>
<tr bgcolor="<%=TableTitleColor%>">
<td width="34%" height=22><font color=<%=tablefontcolor%>>用戶名</font></td><td width="33%"><font color=<%=tablefontcolor%>>上次登陸時間</font></td><td width="33%"><font color=<%=tablefontcolor%>>上次登陸IP</font></td>
</tr>
<%
set rs=conn.execute("select * from admin order by LastLogin desc")
do while not rs.eof
%>
<tr>
<td><a href="admin_admin.asp?id=<%=rs("id")%>&action=edit"><font color=<%=tablecontentcolor%>><%=rs("username")%></font></a></td><td><font color=<%=tablecontentcolor%>><%=rs("LastLogin")%></font></td><td><font color=<%=tablecontentcolor%>><%=rs("LastLoginIP")%></font></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<%
end sub
sub userinfo()
set rs=conn.execute("select * from admin where id="&request("id"))
%>
<form action="admin_admin.asp?action=update" method=post name=adminflag>
<table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
<tr>
<td bgcolor="<%=aTableTitleColor%>">
<font color=<%=tablecontentcolor%>><p><b>管理員權(quán)限管理</b>：<br>
注意：請選擇相應(yīng)的權(quán)限分配給管理員<font color=<%=alertfontcolor%>><%=rs("username")%></font>。</font></p>
</td>
</tr>
<tr>
<td bgcolor="<%=TableTitleColor%>" height=22><font color=<%=tablefontcolor%>><b>>>全局權(quán)限</b></font>
</td>
</tr>
<tr><td>
<%for i=0 to ubound(menu,1)%>
<b><%=menu(i,0)%></b><br>
<%
for j=1 to ubound(menu,2)
if isempty(menu(i,j)) then exit for
tmpmenu=split(menu(i,j),",")
menuname=tmpmenu(0)
menurl=tmpmenu(1)
%>
<input type="checkbox" name="flag" <% if instr(session("flag"),"42")=0 then response.write "disabled=true" %> value="<%=i&j%>" <% if instr(rs("flag"),i&j)<>0 then response.write "checked" %>><a href="<%=menurl%>"><font color=<%=tablecontentcolor%>><%=menuname%></font></a>
<%next%><br><br>
<%next%>
<input type=hidden name=id value="<%=request("id")%>">
<input type="submit" name="Submit" value="更新">?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -