如何给普通管理员生成网站首页权限

ReadyGo!技术成就梦想网络搜索 efish 2008-2-24 2:20:01

官方论坛的网友给出了许多修改方法，主要是通过修改Admin目录下的Admin_Index_Left.asp文件，来给予不用类型的管理员生成首页的权限。

信天游客服给出的修改方法是直接给普通管理员生成权限：
在Admin_Index_Left.asp找到
If AdminPurview = 1 And FileExt_SiteIndex < 4 Then
修改为
If AdminPurview = 1 or 2 And FileExt_SiteIndex < 4 Then

    zhaoqb给出的方法更灵活点，根据你首页板块的需要，让相关负责首页板块更新的管理员（赋予不同角色）有生成的权限，但其他非负责首页板块内容更新的管理员就没有生成权限。
在Admin_Index_Left.asp找到网站生成管理：如下代码
If (AdminPurview = 1 And (FileExt_SiteIndex < 4 Or FileExt_SiteSpecial < 4)) Or strActionLink <> "" Or CheckPurview_Other(AdminPurview_Others, "Announce")=True Or CheckPurview_Other(AdminPurview_Others, "Menu_News") = True Then
    Response.Write "<table cellpadding=0 cellspacing=0 width=167 align=center>" & vbCrLf
    Response.Write " <tr>" & vbCrLf
    Response.Write "    <td height=28 class=menu_title onmouseover=this.className="menu_title2"; onmouseout=this.className="menu_title"; background="Images/Admin_left_9.gif" id=menuTitle301 onclick=""new Element.toggle("submenu301")"" style="cursor:hand;"><a href="Admin_Help_Create.asp" target="main"><span class=glow>网站生成管理</span></a></td>" & vbCrLf
    Response.Write " </tr>" & vbCrLf
    Response.Write " <tr>" & vbCrLf
    Response.Write "    <td style="display:none" align="right" id="submenu301"><div class=sec_menu style="width:165">" & vbCrLf
    Response.Write "        <table cellpadding=0 cellspacing=0 align=center width=130>" & vbCrLf
    If (AdminPurview = 1 And FileExt_SiteIndex < 4) Or CheckPurview_Other(AdminPurview_Others, "Announce")=True Or CheckPurview_Other(AdminPurview_Others, "Menu_News") = True Then

"标记红色的为具有该权限的管理员给予网站首页生成权限，这里给出有公告和新闻菜单管理权限的管理员给予生成网站首页生成权限，其它的可以自己加，用 or 连接

        Response.Write "          <tr height=20>" & vbCrLf
        Response.Write "            <td><a href="Admin_CreateIndex.asp" target="main">生成网站首页</a></td>" & vbCrLf
        Response.Write "          </tr>" & vbCrLf
    End If
    。。。。。。。。。。

责任编辑: efish 参与评论查找更多：

相关文章

升级动易2006spXto2006sp6遇到的错误（至少一个参数… 升级动易2006spXto2006sp6遇到的错误（至少一个参数没有被指定值）

怎样设置广告在打开网站页面后自动打开数秒后自动消… 怎样设置广告在打开网站页面后自动打开数秒后自动消失？

供求频道ShowSupply.asp出现Server.MapPath() 错误及… 供求频道ShowSupply.asp出现Server.MapPath() 错误及解决方法

在升级到2006版后，前台浏览“找不到模板”，如何解… 在升级到2006版后，前台浏览“找不到模板”，如何解决？

如何填写网站关键词和网页描述内容？如何填写网站关键词和网页描述内容？

如何将留言簿的查看模式由讨论区方式改为留言板方式？如何将留言簿的查看模式由讨论区方式改为留言板方式？

如何解决打开编辑时代码呈现乱码的问题？如何解决打开编辑时代码呈现乱码的问题？

如何在文内容页调用文章简介？如何在文内容页调用文章简介？

关于在XP系统下本地调试中文变?符号的原因及解决方法关于在XP系统下本地调试中文变?符号的原因及解决方法

动易采集全书动易采集全书

2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

如何给普通管理员生成网站首页权限

2秒记住本站域名

分类导航