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

    官方论坛的网友给出了许多修改方法，主要是通过修改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
    。。。。。。。。。。