账号通
    

账号  

密码  

2864

查看

4

回复
主题:[原创]新闻查看的权限增加自己管理自己的方式 [收藏主题] 转到:  
monfs 当前离线

888

主题

2

广播

1

粉丝
添加关注
级别:七年级

用户积分:4384 分
登录次数:556 次
注册时间:2006/4/8
最后登录:2023/2/25
monfs 发表于:2007/2/9 20:26:00   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

       一直特别希望能够实现,自己发布的新闻,自己管理,没有权限的人无权查看管理别人发布的新闻;官方迟迟不出(我早在3.0的时候就提出过),这两天看到论坛里有几位朋友把DIY的效果公布了出来,看了他们的效果非常不错,今日本人想实现一直期待的效果。

       首先用户权限管理中增加“查看所有”


此主题相关图片如下:

打开admin/admin_admin.asp,大约940行

<td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10018"<%if InStr(1, PowerList,"KMA10018" ,1)<>0 then Response.Write(" checked") %>>
签收文章</td><td>&nbsp;</td>

替换成

 <td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10018"<%if InStr(1, PowerList,"KMA10018" ,1)<>0 then Response.Write(" checked") %>>
签收文章</td>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMA10055"<%if InStr(1, PowerList,"KMA10055" ,1)<>0 then Response.Write(" checked") %>>
查看所有</td>

这里我用了KMA10055,为了和以后官方增加权限不冲突

管理员或者有此权限的用户看到的目录  


此主题相关图片如下:

没有此权限的用户看到的目录


此主题相关图片如下:

          实现方法:打开admin/Admin_Article.asp,大约580行找到

 ArticleSql = FolderSql & " Union All Select OrderID,NewsID,Tid,Title,SubTitle,ArticleInput,AddDate,PicNews,Verific,Recommend,Popular,Strip,Rolls,Slide,PicUrl,ID,IsTop From KS_Article" & Param & " And Verific=1 Order BY OrderID,CreateDate Desc"

替换成

'Monfs修改于2007年2月9日
    If NOT KSCMS.ReturnPowerResult(1, "KMA10055") Then
      ArticleSql = FolderSql & " Union All Select OrderID,NewsID,Tid,Title,SubTitle,ArticleInput,AddDate,PicNews,Verific,Recommend,Popular,Strip,Rolls,Slide,PicUrl,ID,IsTop From KS_Article" & Param & " And Verific=1 And ArticleInput="""&Trim(Request.Cookies(KSCMS.SiteSn)("AdminName"))&""" Order BY OrderID,CreateDate Desc"
    else
      ArticleSql = FolderSql & " Union All Select OrderID,NewsID,Tid,Title,SubTitle,ArticleInput,AddDate,PicNews,Verific,Recommend,Popular,Strip,Rolls,Slide,PicUrl,ID,IsTop From KS_Article" & Param & " And Verific=1 Order BY OrderID,CreateDate Desc"
    end if

很简单吧!希望大家喜欢这个功能!


[此贴子已经被作者于2007-2-9 23:13:27编辑过]

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
monfs 当前离线

888

主题

2

广播

1

粉丝
添加关注
级别:七年级

用户积分:4384 分
登录次数:556 次
注册时间:2006/4/8
最后登录:2023/2/25
monfs 发表于:2007/2/9 23:14:00   | 显示全部帖子 查看该作者主题 沙发 
科汛在线网校系统

没人喜欢?

自己沙发!

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.37500秒 powered by KesionCMS 9.0