setadmingrouppower.asp

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

	<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 height="25" colspan="2"> 
                <%
					IF InStr(1, PowerList,"KMSystemPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('System','none')"" name=""SystemPower"" value=""0"" checked>")
                    ELSE
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('System','none')"" name=""SystemPower"" value=""0"">")
					END IF
					%>
                在系统管理中心无任何管理权限(屏蔽)</td>
            </tr>
            <tr>
              <td height="25" colspan="2"> 
                <%
					IF InStr(1, PowerList,"KMSystemPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" name=""SystemPower"" onclick=""SetPowerListValue('System','')"" value=""KMSystemPower"">")
                     ELSE
					  Response.Write("<input type=""radio"" name=""SystemPower"" onclick=""SetPowerListValue('System','')"" value=""KMSystemPower"" checked>")
					 END IF%>
                拥有指定的部分管理权限 </td>
            </tr>
            <tr ID="System" <% IF InStr(1, PowerList,"KMSystemPower" ,1)=0 then Response.Write("style=""display:none""") End IF%>> 
              <td height="25" colspan="2">
			  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td width="20%" height="25" align="center" nowrap><strong>系统设置 
                        </strong></td>
                    <td width="20%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMST10001"<%if InStr(1, PowerList,"KMST10001" ,1)<>0 then Response.Write( "checked") %>>
                      基本信息设置</td>
                    <td width="20%"><input name="PowerList" type="checkbox" id="PowerList" value="KMST10002"<%if InStr(1, PowerList,"KMST10002" ,1)<>0 then Response.Write( "checked") %>>
会员选项设置</td>
                    <td width="20%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMST100010"<%if InStr(1, PowerList,"KMST100010" ,1)<>0 then Response.Write( "checked") %>>
留言选项设置</td>
                    <td width="20%" nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMST10003"<%if InStr(1, PowerList,"KMST10003" ,1)<>0 then Response.Write( "checked") %>>
目录信息设置</td>
                    <td width="20%" nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMST10004"<%if InStr(1, PowerList,"KMST10004" ,1)<>0 then Response.Write( "checked") %>>
开关选项设置</td>
                    <td width="20%" nowrap>&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="25" align="center" nowrap>&nbsp;</td>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMST10005"<%if InStr(1, PowerList,"KMST10005" ,1)<>0 then Response.Write( "checked") %>>
缩略图选项</td>
                    <td nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMST10006"<%if InStr(1, PowerList,"KMST10006" ,1)<>0 then Response.Write( "checked") %>>
附加选项设置</td>
                    <td nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMST100011"<%if InStr(1, PowerList,"KMST100011" ,1)<>0 then Response.Write( "checked") %>>
RSS选项设置</td>
                    <td nowrap>&nbsp;</td>
                    <td nowrap>&nbsp;</td>
                    <td nowrap>&nbsp;</td>
                  </tr>
                  <tr> 
                    <td width="20%" height="25" align="center" nowrap><strong>模块设置</strong></td>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMSTM10001"<%if InStr(1, PowerList,"KMSTM10001" ,1)<>0 then Response.Write( "checked") %>>
                      文章中心设置</td>
                    <td nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMSTM10002"<%if InStr(1, PowerList,"KMSTM10002" ,1)<>0 then Response.Write( "checked") %>>
                    图片中心设置</td>
                    <td nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMSTM10003"<%if InStr(1, PowerList,"KMSTM10003" ,1)<>0 then Response.Write( "checked") %>>
                    下载中心设置</td>
                    <td colspan="3" nowrap><input name="PowerList" type="checkbox" id="PowerList" value="KMSTM10004"<%if InStr(1, PowerList,"KMSTM10004" ,1)<>0 then Response.Write( "checked") %>>
                    Flash中心设置</td>
                  </tr>
				  <tr> 
                    <td width="20%" height="25" align="center" nowrap><strong>系统信息</strong></td>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMST10007"<%if InStr(1, PowerList,"KMST10007" ,1)<>0 then Response.Write( "checked") %>>
                      系统空间占用量</td>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMST10008"<%if InStr(1, PowerList,"KMST10008" ,1)<>0 then Response.Write( "checked") %>>
                      组件支持情况</td>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMST10009"<%if InStr(1, PowerList,"KMST10009" ,1)<>0 then Response.Write( "checked") %>>
                      服务器参数探测</td>
                    <td colspan="3">&nbsp;</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 height="25" colspan="2"> 
                <%
					IF InStr(1, PowerList,"KMRefreshPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('Refresh','none')"" name=""RefreshPower"" value=""0"" checked>")
                    ELSE
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('Refresh','none')"" name=""RefreshPower"" value=""0"">")
					END IF
					%>
                在站点发布中心无任何管理权限(屏蔽)</td>
            </tr>
            <tr> 
              <td height="25" colspan="2"> 
                <%
					IF InStr(1, PowerList,"KMRefreshPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" name=""RefreshPower"" onclick=""SetPowerListValue('Refresh','')"" value=""KMRefreshPower"">")
                     ELSE
					  Response.Write("<input type=""radio"" name=""RefreshPower"" onclick=""SetPowerListValue('Refresh','')"" value=""KMRefreshPower"" checked>")
					 END IF%>
                拥有指定的部分管理权限 </td>
            </tr>
            <tr ID="Refresh" <% IF InStr(1, PowerList,"KMRefreshPower" ,1)=0 then Response.Write("style=""display:none""") End IF%>> 
              <td height="25"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td width="18%"><input name="PowerList" type="checkbox" id="PowerList" value="KMRF10001"<%if InStr(1, PowerList,"KMRF10001" ,1)<>0 then Response.Write( "checked") %>>
                      发布站点首页</td>
                    <td width="18%" height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMRF10002"<%if InStr(1, PowerList,"KMRF10002" ,1)<>0 then Response.Write( "checked") %>>
                      文章中心发布</td>
                    <td width="18%" height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMRF10003"<%if InStr(1, PowerList,"KMRF10003" ,1)<>0 then Response.Write( "checked") %>>
                      图片中心发布 </td>
                    <td width="18%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMRF10004"<%if InStr(1, PowerList,"KMRF10004" ,1)<>0 then Response.Write( "checked") %>>
                      下载中心发布 </td>
                    <td width="18%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMRF10005"<%if InStr(1, PowerList,"KMRF10005" ,1)<>0 then Response.Write( "checked") %>>
                      商城中心发布</td>
                    <td width="18%">&nbsp; </td>
                  </tr>
				  <tr>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMRF10006"<%if InStr(1, PowerList,"KMRF10006" ,1)<>0 then Response.Write( "checked") %>>
                      专题发布管理</td>
                    <td height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMRF10007"<%if InStr(1, PowerList,"KMRF10007" ,1)<>0 then Response.Write( "checked") %>>
                      系统JS发布管理 </td>
                    <td height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMRF10008"<%if InStr(1, PowerList,"KMRF10008" ,1)<>0 then Response.Write( "checked") %>>
                      通用页面发布管理</td>
                    <td>&nbsp;</td>
                    <td>&nbsp;</td>
                    <td>&nbsp;</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 height="25" colspan="2"> 
                <%
					IF InStr(1, PowerList,"KMUserAdminPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('UserAdmin','none')"" name=""UserAdminPower"" value=""0"" checked>")
                    ELSE
					  Response.Write("<input type=""radio"" onclick=""SetPowerListValue('UserAdmin','none')"" name=""UserAdminPower"" value=""0"">")
					END IF
					%>
                在用户管理中心无任何管理权限(屏蔽)</td>
            </tr>
            <tr> 
              <td height="25" colspan="2"> 
                <%
					IF InStr(1, PowerList,"KMUserAdminPower" ,1)=0 Then
					  Response.Write("<input type=""radio"" name=""UserAdminPower"" onclick=""SetPowerListValue('UserAdmin','')"" value=""KMUserAdminPower"">")
                     ELSE
					  Response.Write("<input type=""radio"" name=""UserAdminPower"" onclick=""SetPowerListValue('UserAdmin','')"" value=""KMUserAdminPower"" checked>")
					 END IF%>
                拥有指定的部分管理权限 </td>
            </tr>
            <tr ID="UserAdmin" <% IF InStr(1, PowerList,"KMUserAdminPower" ,1)=0 then Response.Write("style=""display:none""") End IF%>> 
              <td height="25"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td width="18%"><input name="PowerList" type="checkbox" id="PowerList" value="KMUA10001"<%if InStr(1, PowerList,"KMUA10001" ,1)<>0 then Response.Write( "checked") %>>
                      管理员管理</td>
                    <td width="18%" height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMUA10002"<%if InStr(1, PowerList,"KMUA10002" ,1)<>0 then Response.Write( "checked") %>>
                      用户短信管理</td>
                    <td width="18%" height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMUA10003"<%if InStr(1, PowerList,"KMUA10003" ,1)<>0 then Response.Write( "checked") %>>
                      注册用户管理</td>
                    <td width="18%"> <input name="PowerList" type="checkbox" id="PowerList" value="KMUA10004"<%if InStr(1, PowerList,"KMUA10004" ,1)<>0 then Response.Write( "checked") %>>
                      用户组管理</td>
                  </tr>
                  <tr>
                    <td><input name="PowerList" type="checkbox" id="PowerList" value="KMUA10005"<%if InStr(1, PowerList,"KMUA10005" ,1)<>0 then Response.Write( "checked") %>>
                    会员点券明细</td>
                    <td height="25"><input name="PowerList" type="checkbox" id="PowerList" value="KMUA10006"<%if InStr(1, PowerList,"KMUA10006" ,1)<>0 then Response.Write( "checked") %>>
                    会员有效期明细</td>
                    <td height="25">&nbsp;</td>
                    <td>&nbsp;</td>
                  </tr>
                </table></td>
            </tr>
          </table>
	  </FIELDSET>