一直特别希望能够实现，自己发布的新闻，自己管理，没有权限的人无权查看管理别人发布的新闻；官方迟迟不出（我早在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编辑过]

没人喜欢？

自己沙发！