📄 admin_role.asp
字号:
<!--#include file="inc/inc_sys.asp"-->
<!--#include file="../inc/inc_control.asp"-->
<script language="javascript">
function selectall(stype)
{
var obj = document.getElementsByTagName("input");
for (var i = 0;i<obj.length ;i++ ){
var e = obj[i];
if (e.type == 'radio'){
if (e.value == stype){
e.checked = true;
}
}
}
}
</script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>oBlog--后台管理</title>
<link rel="stylesheet" href="images/style.css" type="text/css" />
<script src="images/menu.js" type="text/javascript"></script>
</head>
<body>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">内容管理员管理</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr >
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="admin_role.asp">内容管理员等级列表</a> | <a href="admin_role.asp?action=add">添加内容管理员等级</a> | <a href="admin_admin.asp">管理员账号管理</a> | <a href="admin_admin.asp?Action=Add">新增管理员</a> </td>
</tr>
</table>
</div>
</div>
<ul class="main_end">
<li class="main_end_left left"></li>
<li class="main_end_right right"></li>
</ul>
</div>
<%
'不需要分页
Dim Action,sAction,Roleid
Dim sName,sUserReg,sUserName,sUserAdmin,sUserGroup,sGroups,sUserUpdate,sSecondDomain,sClasses,sClasses2
Dim sModScript,sModArgue,sModMeet,sModSpecial,sUserNews,sSiteNews,sBlogStar,sSkinsys,sSkinUser,sSkinQQ
Dim sWords,sIP,sSiteCount,sUserBlog,sUserRBlog,sUserCmt,sUserMsg,sUserTag,sUserUpfiles,sListUpfiles
Dim sGroupUser,sGroupBlog,sUserALL,sUserAdd,sUserAlbumCmt
Dim rs,sql
Roleid=Request.QueryString("Roleid")
If RoleId<>"" Then RoleId=Int(RoleId)
action=Trim(Request("action"))
select Case LCase(action)
Case "add","edit"
call ShowForm(Roleid)
Case "save"
call Save()
Case "add","edit"
Call ShowForm
Case "del"
conn.execute("Delete From oblog_roles Where roleid=" & Roleid)
EventLog "进行了删除内容管理员组的操作，目标内容管理员组ID为："&OB_IIF(Roleid,"无"),oblog.NowUrl&"?"&Request.QueryString
Response.Redirect "admin_role.asp"
Case Else
Call ShowList
End select
Sub ShowForm(Roleid)
dim rst
If Roleid<>"" Then
Set rst=oblog.execute("select * from oblog_roles Where roleid=" &Roleid)
If Not rst.Eof Then
sWords = rst("r_words")
sIP = rst("r_IP")
sSiteCount = rst("r_site_count")
Roleid=rst("roleid")
sName=rst("r_name")
sSkinSys=rst("r_skin_sys")
sSkinQQ=rst("r_skin_qq")
sSkinUser=rst("r_skin_user")
sGroups=Replace(ob_IIF(rst("r_groups"),"")," ","")
sClasses=Replace(ob_IIF(rst("r_classes1"),"")," ","")
sClasses2=Replace(ob_IIF(rst("r_classes2"),"")," ","")
sUserReg=rst("r_user_reg")
sUserName=rst("r_user_name")
sUserAdmin=rst("r_user_admin")
sUserGroup=rst("r_user_group")
sUserUpdate=rst("r_user_update")
sSecondDomain=rst("r_second_domain")
sModScript=rst("r_mod_script")
sModArgue=rst("r_mod_argue")
sModMeet=rst("r_mod_meet")
sModSpecial=rst("r_mod_special")
sUserNews=rst("r_user_news")
sSiteNews=rst("r_site_news")
sBlogStar=rst("r_blogstar")
sUserBlog=rst("r_user_blog")
sUserRBlog=rst("r_user_rblog")
sUserCmt=rst("r_user_cmt")
sUserMsg=rst("r_user_msg")
sUserTag=rst("r_user_tag")
sUserUpfiles=rst("r_user_upfiles")
sListUpfiles=rst("r_list_upfiles")
sGroupUser=rst("r_group_user")
sGroupBlog=rst("r_group_blog")
sUserALL=rst("r_user_all")
sUserAdd=rst("r_user_add")
sUserAlbumCmt=rst("r_album_comment")
End If
Set rst=Nothing
End If
%>
<script language="javascript">
function check1(){
if(document.form1.r_name.value=""){
alert("等级名称必须填写");
document.form1.r_name.focus();
return false;
}
}
//return true;
</script>
<div id="main_body">
<ul class="main_top">
<li class="main_top_left left">内容管理员登记功能定义</li>
<li class="main_top_right right"> </li>
</ul>
<div class="main_content_rightbg">
<div class="main_content_leftbg">
<form method="post" action="admin_role.asp?action=save&roleid=<%=roleid%>" id="form1" name="form1" onSubmit=""return check1()">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" Class="border">
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" colspan=2>
默认权限<a href="#h2" onClick="hookDiv('hh1','')"><img src="images/ico_help.gif" border=0></a>（此处与内容管理员页面的选项一一对应）
<div id="hh1" style="display:none" name="h1">
如果启用日志审核功能，则所有的内容管理员均可进行日志审核<br/>
如果启用了注册审核,则所有的内容管理员均可以审核注册<br/>
所有内容管理员均可以增加关键字,增加黑名单IP<br/>
所有内容管理员均可以设置精华文章/推荐文章
</div>
</td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >等级名称</td>
<td width="409" height="25" >
<% Call EchoInput("r_name",40,50,sName)%></td>
</tr>
<tr >
<td height="22" class="topbg" ><a name="SiteInfo"></a><strong>常规管理</strong></a></td>
<td height="22" class="topbg1"><a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >关键字管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_words","","",sWords)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >限制IP管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_IP","","",sIP)%></td>
</tr>
<tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
<td height="25" >用户后台通知</td>
<td height="25" ><% Call EchoRadio("r_site_news","","",sSiteNews)%> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td height="25" >发送站内短信</td>
<td height="25" ><% Call EchoRadio("r_user_news","","",sUserNews)%> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >更新系统数据</td>
<td width="409" height="25" >
<% Call EchoRadio("r_site_count","","",sSiteCount)%></td>
</tr>
<tr >
<td height="22" class="topbg" ><a name="SiteInfo"></a><strong>内容管理</strong></a></td>
<td height="22" class="topbg1"><a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >日志管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_blog","","",sUserBlog)%></td>
</tr>
<tr class="tdbg" onMouseOver="this.style.backgroundColor='#BFDFFF'" onMouseOut="this.style.backgroundColor=''">
<td height="25" >可管理的日志分类<br/>(不选择则允许管理任意分类))</td>
<td>
<%
Dim sTmp,sChecked,rstTmp,i
sChecked=""
Set rstTmp=conn.Execute("select classid,classname From oblog_logclass Where depth=0 And idType=0")
If rstTmp.Eof Then
Response.Write "还没有定义任何日志分类"
Else
Do While Not rstTmp.Eof
If InStr(","&sClasses&",","," & rstTmp("classId") & ",")>0 Then
sChecked=" checked"
Else
sChecked=" "
End If
Response.Write "<input type=""checkbox"" name=""class1"" value="""& rstTmp("classId") &"""" & sChecked &">" & rstTmp("classname") & " "
i=i+1
If i Mod 5 =0 Then Response.Write "<br/>"
rstTmp.MoveNext
Loop
End If
rstTmp.Close
%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >回收站管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_rblog","","",sUserRBlog)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >评论管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_cmt","","",sUserCmt)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >留言管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_msg","","",sUserMsg)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >TAG管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_tag","","",sUserTag)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >相册评论管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_album_comment","","",sUserAlbumCmt)%></td>
</tr>
<tr >
<td height="22" class="topbg" ><a name="SiteInfo"></a><strong>群组管理</strong></a></td>
<td height="22" class="topbg1"><a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >群组管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_group_user","","",sGroupUser)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >群组内容管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_group_blog","","",sGroupBlog)%></td>
</tr>
<tr >
<td height="22" class="topbg" ><a name="SiteInfo"></a><strong>上传管理</strong></a></td>
<td height="22" class="topbg1"><a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >上传管理用户清单</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_upfiles","","",sUserUpfiles)%></td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >上传管理文件清单</td>
<td width="409" height="25" >
<% Call EchoRadio("r_list_upfiles","","",sListUpfiles)%></td>
</tr>
<tr >
<td height="22" class="topbg" ><a name="SiteInfo"></a><strong>用户管理</strong></a></td>
<td height="22" class="topbg1"><a href="#formbottom"><img src="images/ico_bottom.gif" border=0></a> </td>
</tr>
<tr class="tdbg" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#BFDFFF'">
<td width="348" height="25" >全部用户管理</td>
<td width="409" height="25" >
<% Call EchoRadio("r_user_all","","",sUserALL)%></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -