⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setadmingrouppop.asp

📁 asp源码 图片ASP整站
💻 ASP
📖 第 1 页 / 共 5 页
字号:
            <td>&nbsp;</td>
            <td></td>
          </tr>
		<%End If%>		
          <tr> 
						
            <td height="20"> <input  name="PopList" type="checkbox" value="P010600" <%if InStr(1, rs1("PopLIst"),"P010600" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">投稿管理</font></td>
            <td><input  name="PopList" type="checkbox"  value="P010601" <%if InStr(1, rs1("PopLIst"),"P010601" ,1)<>0 then response.Write("checked") %>>
               
							添加投稿</td>
            <td><input  name="PopList" type="checkbox" value="P010602" <%if InStr(1, rs1("PopLIst"),"P010602" ,1)<>0 then response.Write("checked") %>>
               
							修改投稿</td>
            <td><input  name="PopList" type="checkbox" value="P010603" <%if InStr(1, rs1("PopLIst"),"P010603" ,1)<>0 then response.Write("checked") %>>
               
							审核投稿</td>
            <td><input  name="PopList" type="checkbox" value="P010604" <%if InStr(1, rs1("PopLIst"),"P010604" ,1)<>0 then response.Write("checked") %>>
               
							删除投稿</td>
            <td></td>
          </tr>
           
					
          <tr> 
						 
						
            <td></td>
          </tr>
           
					
          <tr> 
						
            <td colspan="7" align="center" valign="top"><hr style="width:95%;"></td>
          </tr>
           
					
          <tr> 
						
            <td rowspan="2" align="center" valign="middle"> <input name="PopList" type="checkbox" value="P020000" <%if InStr(1, rs1("PopLIst"),"P020000" ,1)<>0 then response.Write("checked") %>> 
							<strong>专题管理</strong></td>
            <td height="20"><input name="PopList" type="checkbox"  value="P020100" <%if InStr(1, rs1("PopLIst"),"P020100" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">添加专题</font> </td>
            <td><input name="PopList" type="checkbox"  value="P020200" <%if InStr(1, rs1("PopLIst"),"P020200" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">修改专题</font></td>
            <td><input name="PopList" type="checkbox"  value="P020300" <%if InStr(1, rs1("PopLIst"),"P020300" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">删除专题</font></td>
            <td><input  name="PopList" type="checkbox" value="P020310" <%if InStr(1, rs1("PopLIst"),"P020310" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">专题初始化</font></td>
            <td><input  name="PopList" type="checkbox" value="P020320" <%if InStr(1, rs1("PopLIst"),"P020320" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">专题合并</font></td>
            <td>&nbsp;</td>
          </tr>
           
					
          <tr> 
						
            <td height="20"><input name="PopList" type="checkbox"  value="P020400" <%if InStr(1, rs1("PopLIst"),"P020400" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">专题新闻管理</font> </td>
            <td><input name="PopList" type="checkbox"  value="P020401" <%if InStr(1, rs1("PopLIst"),"P020401" ,1)<>0 then response.Write("checked") %>>
               
							删除专题新闻</td>
            <td><input name="PopList" type="checkbox"  value="P020402" <%if InStr(1, rs1("PopLIst"),"P020402" ,1)<>0 then response.Write("checked") %>>
               
							专题新闻操作</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
           
					
          <tr> 
						
            <td colspan="7" align="center" valign="top"><hr style="width:95%;"></td>
          </tr>
           
					
          <tr> 
						
            <td rowspan="<%=ShowRows2%>" align="center" valign="middle"><input name="PopList" type="checkbox"  value="P030000" <%if InStr(1, rs1("PopLIst"),"P030000" ,1)<>0 then response.Write("checked") %>> 
							<strong>站点管理</strong> </td>
            <td height="20"> <input name="PopList" type="checkbox"  value="P030100" <%if InStr(1, rs1("PopLIst"),"P030100" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">发布首页</font></td>
            <td><input name="PopList" type="checkbox"  value="P030300" <%if InStr(1, rs1("PopLIst"),"P030300" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">发布栏目</font></td>
            <td><input name="PopList" type="checkbox"  value="P030400" <%if InStr(1, rs1("PopLIst"),"P030400" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">发布新闻</font></td>
            <td><input  name="PopList" type="checkbox"  value="P030500" <%if InStr(1, rs1("PopLIst"),"P030500" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">发布专题</font></td>
            <td><input  name="PopList" type="checkbox"  value="P030600" <%if InStr(1, rs1("PopLIst"),"P030600" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">发布下载</font></td>
            <td><% If HaveValueTF=1 then %>
			<input name="PopList" type="checkbox"  value="P030200" <%if InStr(1, rs1("PopLIst"),"P030200" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">发布商品</font><%End If %></td>
          </tr>
           
					
          <tr> 
						
            <td height="20"><input name="PopList" type="checkbox"  value="P030700" <%if InStr(1, rs1("PopLIst"),"P030700" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">模板管理</font></td>
            <td><input  name="PopList" type="checkbox"  value="P030705" <%if InStr(1, rs1("PopLIst"),"P030705" ,1)<>0 then response.Write("checked") %>>
               
							编辑模板</td>
            <td></td>
            <td></td>
            <td></td>
            <td></td>
          </tr>


          <tr> 
						
            <td height="20"><input name="PopList" type="checkbox"  value="P031400" <%if InStr(1, rs1("PopLIst"),"P031400" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">不规则新闻</font></td>
            <td><input  name="PopList" type="checkbox"  value="P031401" <%if InStr(1, rs1("PopLIst"),"P031401" ,1)<>0 then response.Write("checked") %>>
							新建</td>
            <td><input  name="PopList" type="checkbox"  value="P031402" <%if InStr(1, rs1("PopLIst"),"P031402" ,1)<>0 then response.Write("checked") %>>
							修改</td>
            <td><input  name="PopList" type="checkbox"  value="P031403" <%if InStr(1, rs1("PopLIst"),"P031403" ,1)<>0 then response.Write("checked") %>>
							删除</td>
            <td></td>
            <td></td>
          </tr>
           
					
          <tr> 
						
            <td height="20"> <input name="PopList" type="checkbox"  value="P030800" <%if InStr(1, rs1("PopLIst"),"P030800" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">标签管理</font></td>
            <td><input name="PopList" type="checkbox"  value="P030801" <%if InStr(1, rs1("PopLIst"),"P030801" ,1)<>0 then response.Write("checked") %>>
               
							创建分类</td>
            <td><input  name="PopList" type="checkbox"  value="P030802" <%if InStr(1, rs1("PopLIst"),"P030802" ,1)<>0 then response.Write("checked") %>>
               
							新建标签</td>
            <td><input  name="PopList" type="checkbox"  value="P030803" <%if InStr(1, rs1("PopLIst"),"P030803" ,1)<>0 then response.Write("checked") %>>
               
							修改</td>
            <td><input  name="PopList" type="checkbox"  value="P030804" <%if InStr(1, rs1("PopLIst"),"P030804" ,1)<>0 then response.Write("checked") %>>
               
							删除</td>
            <td><input  name="PopList" type="checkbox"  value="P030805" <%if InStr(1, rs1("PopLIst"),"P030805" ,1)<>0 then response.Write("checked") %>>
               
							备份</td>
          </tr>
           
					
          <tr> 
						
            <td height="20"> <input name="PopList" type="checkbox"  value="P031300" <%if InStr(1, rs1("PopLIst"),"P031300" ,1)<>0 then response.Write("checked") %>>
							<font color="#FF0000">自由标签</font></td>
            <td><input  name="PopList" type="checkbox"  value="P031301" <%if InStr(1, rs1("PopLIst"),"P031301" ,1)<>0 then response.Write("checked") %>>
							新建标签</td>
            <td><input  name="PopList" type="checkbox"  value="P031302" <%if InStr(1, rs1("PopLIst"),"P031302" ,1)<>0 then response.Write("checked") %>>
							修改</td>
            <td><input  name="PopList" type="checkbox"  value="P031303" <%if InStr(1, rs1("PopLIst"),"P031303" ,1)<>0 then response.Write("checked") %>>
							删除</td>
            <td><input  name="PopList" type="checkbox"  value="P031304" <%if InStr(1, rs1("PopLIst"),"P031304" ,1)<>0 then response.Write("checked") %>>
							预览</td>
            <td>&nbsp;</td>
          </tr>
          <tr> 
						
            <td height="20"> <input  name="PopList" type="checkbox"  value="P030900" <%if InStr(1, rs1("PopLIst"),"P030900" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">备份管理</font></td>
            <td><input  name="PopList" type="checkbox"  value="P030901" <%if InStr(1, rs1("PopLIst"),"P030901" ,1)<>0 then response.Write("checked") %>>
               
							查看标签 </td>
            <td><input  name="PopList" type="checkbox"  value="P030902" <%if InStr(1, rs1("PopLIst"),"P030902" ,1)<>0 then response.Write("checked") %>>
               
							删除备份</td>
            <td><input  name="PopList" type="checkbox"  value="P030903" <%if InStr(1, rs1("PopLIst"),"P030903" ,1)<>0 then response.Write("checked") %>>
               
							还原标签</td>
            <td></td>
            <td></td>
          </tr>
           
					
          <tr> 
						
            <td height="20"> <input  name="PopList" type="checkbox"  value="P031000" <%if InStr(1, rs1("PopLIst"),"P031000" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">下载样式管理</font></td>
            <td><input  name="PopList" type="checkbox"  value="P031001" <%if InStr(1, rs1("PopLIst"),"P031001" ,1)<>0 then response.Write("checked") %>>
               
							新建样式</td>
            <td><input  name="PopList" type="checkbox"  value="P031002" <%if InStr(1, rs1("PopLIst"),"P031002" ,1)<>0 then response.Write("checked") %>>
               
							修改样式</td>
            <td><input  name="PopList" type="checkbox"  value="P031003" <%if InStr(1, rs1("PopLIst"),"P031003" ,1)<>0 then response.Write("checked") %>>
               
							查看样式 </td>
            <td><input  name="PopList" type="checkbox"  value="P031004" <%if InStr(1, rs1("PopLIst"),"P031004" ,1)<>0 then response.Write("checked") %>>
               
							删除样式</td>
            <td></td>
          </tr>
           
		          <%
		  If HaveValueTF=1 then
			  %>			
          <tr> 
						
            <td height="20"> <input  name="PopList" type="checkbox"  value="P031200" <%if InStr(1, rs1("PopLIst"),"P031200" ,1)<>0 then response.Write("checked") %>>
               
							<font color="#FF0000">商城样式管理</font></td>
            <td><input  name="PopList" type="checkbox"  value="P031201" <%if InStr(1, rs1("PopLIst"),"P031201" ,1)<>0 then response.Write("checked") %>>
               
							新建样式</td>
            <td><input  name="PopList" type="checkbox"  value="P031202" <%if InStr(1, rs1("PopLIst"),"P031202" ,1)<>0 then response.Write("checked") %>>
               
							修改样式</td>
            <td><input  name="PopList" type="checkbox"  value="P031203" <%if InStr(1, rs1("PopLIst"),"P031203" ,1)<>0 then response.Write("checked") %>>
               
							查看样式 </td>
            <td><input  name="PopList" type="checkbox"  value="P031204" <%if InStr(1, rs1("PopLIst"),"P031204" ,1)<>0 then response.Write("checked") %>>
               
							删除样式</td>
            <td></td>
          </tr>
                    <%
		  End IF
			  %> 
					
          <tr> 
						
            <td><input  name="PopList" type="checkbox"  value="P031100" <%if InStr(1, rs1("PopLIst"),"P031100" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">生成JS</font></td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
           
					
          <tr> 
						
            <td colspan="7" align="center" valign="top"><hr style="width:95%;"></td>
          </tr>
           
					
          <tr> 
						
            <td rowspan="11" align="center" valign="middle"><input  name="PopList" type="checkbox"  value="P040000" <%if InStr(1, rs1("PopLIst"),"P040000" ,1)<>0 then response.Write("checked") %>> 
							<strong>系统管理</strong></td>
            <td height="20"> <input  name="PopList" type="checkbox"  value="P040100" <%if InStr(1, rs1("PopLIst"),"P040100" ,1)<>0 then response.Write("checked") %>> 
							<font color="#FF0000">管理员组管理 </font></td>
            <td><input  name="PopList" type="checkbox"  value="P040101" <%if InStr(1, rs1("PopLIst"),"P040101" ,1)<>0 then response.Write("checked") %>>
               

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -