setadmingrouppower.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

                删除栏目</td>
              <td width="13%"><input name="PowerList" type="checkbox" id="PowerList" value="KMF10007"<%if InStr(1, PowerList,"KMF10007" ,1)<>0 then Response.Write(" checked") %> />
                加入JS</td>
            </tr>
            <tr>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10008"<%if InStr(1, PowerList,"KMF10008" ,1)<>0 then Response.Write(" checked") %> />
                加入专题</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10009"<%if InStr(1, PowerList,"KMF10009" ,0)<>0 then Response.Write(" checked") %> />
                批量审核</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10010"<%if InStr(1, PowerList,"KMF10010" ,0)<>0 then Response.Write( "checked") %> />
                取消审核</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10011"<%if InStr(1, PowerList,"KMF10011" ,1)<>0 then Response.Write( "checked") %> />
                搜索Flash</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10012"<%if InStr(1, PowerList,"KMF10012" ,1)<>0 then Response.Write( "checked") %> />
                添加Flash</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10013"<%if InStr(1, PowerList,"KMF10013" ,1)<>0 then Response.Write( "checked") %> />
                编辑Flash</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10014"<%if InStr(1, PowerList,"KMF10014" ,1)<>0 then Response.Write( "checked") %> />
                删除Flash</td>
            </tr>
            <tr>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10015"<%if InStr(1, PowerList,"KMF10015" ,1)<>0 then Response.Write(" checked") %> />
                预览Flash</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10016"<%if InStr(1, PowerList,"KMF10016" ,1)<>0 then Response.Write(" checked") %> />
                上传文件</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10018"<%if InStr(1, PowerList,"KMF10018" ,1)<>0 then Response.Write(" checked") %> />
                评论管理</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10017"<%if InStr(1, PowerList,"KMF10017" ,1)<>0 then Response.Write(" checked") %> />
                剪切复制操作</td>
              <td><input name="PowerList" type="checkbox" id="PowerList" value="KMF10019"<%if InStr(1, PowerList,"KMF10019" ,1)<>0 then Response.Write(" checked") %>>
签收Flash</td>
              <td>&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td height="25" colspan="7"><strong><font color="#993300">常规管理</font></strong></td>
            </tr>
            <tr>
              <td height="20" nowrap="nowrap" title="浏览、编辑、删除关键字等操作的权限"><input name="PowerList" type="checkbox" id="PowerList" value="KMF20001"<%if InStr(1, PowerList,"KMF20001" ,1)<>0 then Response.Write( "checked") %> />
                Flash关键字管理</td>
              <td nowrap="nowrap" title="浏览、编辑、删除Flash来源等操作的权限"><input name="PowerList" type="checkbox" id="PowerList" value="KMF20002"<%if InStr(1, PowerList,"KMF20002" ,1)<>0 then Response.Write( "checked") %> />
                Flash来源管理</td>
              <td nowrap="nowrap" title="浏览、编辑、删除Flash作者等操作的权限"><input name="PowerList" type="checkbox" id="PowerList" value="KMF20003"<%if InStr(1, PowerList,"KMF20003" ,1)<>0 then Response.Write( "checked") %> />
                Flash作者管理</td>
              <td nowrap="nowrap">&nbsp;</td>
              <td nowrap="nowrap">&nbsp;</td>
              <td nowrap="nowrap">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td height="5" colspan="7"></td>
            </tr>
            <tr>
              <td height="25" colspan="7"><font color="#993300"><strong>详细指定栏目（频道）权限</strong></font></td>
            </tr>
            <tr>
              <td colspan="7"><div style="border: double #E7E7E7;height:150; overflow: auto; width:100%">
                <table border="0" cellspacing="0" cellpadding="0">
                  <% 
					Set FolderRS = Conn.Execute("Select * from KS_Class where TN='0' and ChannelID=4 and DelTF=0 Order BY FolderOrder")
					IF FolderRS.Bof And FolderRS.Eof Then
					 Response.Write("<br><li>还没有添加隶属Flash的任何频道!")
					End IF
                    do while Not FolderRS.Eof
	                  if InStr(1,PowerList,Trim(FolderRS("ID")),1)<>0 then CheckStr=" checked"%>
                  <tr>
                    <td><table border="0" cellspacing="0" cellpadding="0">
                      <tr align="left" class="TempletItem">
                        <td><img src="../Images/Folder/domain.gif" width="26" height="24" /></td>
                        <td><input name="PowerList" type="checkbox" value="<% = FolderRS("ID") %>"<%=CheckStr%> />
                                  <% = FolderRS("FolderName") %>                        </td>
                      </tr>
                    </table></td>
                  </tr>
                  <%
	                     CheckStr = ""
	                     Response.Write(GetChildClassList(FolderRS("ID"),""))
	                  FolderRS.MoveNext
                      loop
                        %>
                </table>
              </div></td>
            </tr>
          </table></td>
        </tr>
      </table>
    </fieldset></td>
  </tr>
</table>
		  <br>
		  <table width="96%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>
		<FIELDSET align=center>
          <LEGEND align=left>此管理组在【<font color="#FF0000">专题中心</font>】的权限</LEGEND>
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td height="25" colspan="8"> 
                      <%
					IF InStr(1, PowerList,"KMSPPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('Special','none')"" name=""SpecialPower"" value=""0"" checked>")
                    ELSE
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('Special','none')"" name=""SpecialPower"" value=""0"">")
					END IF
					%>
                      在专题中心无任何管理权限(屏蔽)</td>
                  </tr>
                  <tr> 
                    <td height="25" colspan="8"> 
                      <%
					IF InStr(1, PowerList,"KMSPPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" name=""SpecialPower"" onclick=""SetPowerListValue('Special','')"" value=""KMSPPower"">")
                     ELSE
					  Response.Write("<input type=""radio"" name=""SpecialPower"" onclick=""SetPowerListValue('Special','')"" value=""KMSPPower"" checked>")
					 END IF%>
                      拥有指定的部分管理权限 </td>
                  </tr>
                  <tr ID="Special" <% IF InStr(1, PowerList,"KMSPPower" ,1)=0 then Response.Write("style=""display:none""") End IF%>> 
                    <td height="25" colspan="8"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="15%" height="25"> <input name="PowerList" type="checkbox" id="PowerList" value="KMSP10001"<%if InStr(1, PowerList,"KMSP10001" ,1)<>0 then Response.Write( "checked") %>>
                      添加专题</td>
                    <td width="15%"><input name="PowerList" type="checkbox" id="PowerList" value="KMSP10002"<%if InStr(1, PowerList,"KMSP10002" ,1)<>0 then Response.Write( "checked") %>>
                      编辑专题</td>
                    <td width="15%"><input name="PowerList" type="checkbox" id="PowerList" value="KMSP10003"<%if InStr(1, PowerList,"KMSP10003" ,1)<>0 then Response.Write( "checked") %>>
                      删除专题</td>
                    <td width="15%"><input name="PowerList" type="checkbox" id="PowerList" value="KMSP10004"<%if InStr(1, PowerList,"KMSP10004" ,1)<>0 then Response.Write( "checked") %>>
                      搜索专题</td>
                    <td width="17%"><input name="PowerList" type="checkbox" id="PowerList" value="KMSP10005"<%if InStr(1, PowerList,"KMSP10005" ,1)<>0 then Response.Write( "checked") %>>
                      浏览专题 </td>
                    <td width="20%"><input name="PowerList" type="checkbox" id="PowerList" value="KMSP10006"<%if InStr(1, PowerList,"KMSP10006" ,1)<>0 then Response.Write( "checked") %>>
                      删除专题文章</td>
                        </tr>
                      </table></td>
                  </tr>
                  <tr style="display:none"> 
                    <td></td>
                  </tr>
                </table></td>
            </tr>
          </table>
	  </FIELDSET>
	  </td></tr>
    </table>
	  <br>
	  <table width="96%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td>
		<FIELDSET align=center>
          <LEGEND align=left>此管理组在【<font color="#FF0000">采集管理</font>】的权限</LEGEND>
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
              <td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td height="25" colspan="8"> 
                      <%
					IF InStr(1, PowerList,"KMCLPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('Collect','none')"" name=""CollectPower"" value=""0"" checked>")
                    ELSE
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('Collect','none')"" name=""CollectPower"" value=""0"">")
					END IF
					%>
                      在采集管理中心无任何管理权限(屏蔽)</td>
                  </tr>
                  <tr> 
                    <td height="25" colspan="8"> 
                      <%
					IF InStr(1, PowerList,"KMCLPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" name=""CollectPower"" onclick=""SetPowerListValue('Collect','')"" value=""KMCLPower"">")
                     ELSE
					  Response.Write("<input type=""radio"" name=""CollectPower"" onclick=""SetPowerListValue('Collect','')"" value=""KMCLPower"" checked>")
					 END IF%>
                      拥有指定的部分管理权限 </td>
                  </tr>
                  <tr ID="Collect" <% IF InStr(1, PowerList,"KMCLPower" ,1)=0 then Response.Write("style=""display:none""") End IF%>> 
                    <td height="25" colspan="8"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                        <tr> 
                          <td width="15%" height="25"> <input name="PowerList" type="checkbox" id="PowerList" value="KMCL10001"<%if InStr(1, PowerList,"KMCL10001" ,1)<>0 then Response.Write( "checked") %>>
                      项目管理</td>
                          <td width="15%"><input name="PowerList" type="checkbox" id="PowerList" value="KMCL10002"<%if InStr(1, PowerList,"KMCL10002" ,1)<>0 then Response.Write( "checked") %>>
                      数据采集</td>
                          <td width="15%"><input name="PowerList" type="checkbox" id="PowerList" value="KMCL10003"<%if InStr(1, PowerList,"KMCL10003" ,1)<>0 then Response.Write( "checked") %>>
                      过滤设置</td>
                          <td width="15%"><input name="PowerList" type="checkbox" id="PowerList" value="KMCL10004"<%if InStr(1, PowerList,"KMCL10004" ,1)<>0 then Response.Write( "checked") %>>
                      审核入库</td>
                          <td width="17%"><input name="PowerList" type="checkbox" id="PowerList" value="KMCL10005"<%if InStr(1, PowerList,"KMCL10005" ,1)<>0 then Response.Write( "checked") %>>
                      历史记录 </td>
                        </tr>
                      </table></td>
                  </tr>
                  <tr style="display:none"> 
                    <td></td>
                  </tr>
                </table></td>
            </tr>
          </table>
	  </FIELDSET>
	  </td></tr>
    </table>