wm.admin.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

		  Case 6 '店铺
	        Content = Content & "<fieldset>" & vbCrLf
	        Content = Content & "<legend><strong>["&Rs(1)&"]</strong> 权限</legend>" & vbCrLf
	        Content = Content & "<table width='100%' cellpadding=3 cellspacing=0>" & vbCrLf
	        Content = Content & "<tr><td>" & vbCrLf
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComPost'"&WRMPS.GetCheckVer(Flag,"ComPost",2)&"> 登记商家店铺　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='Com'"&WRMPS.GetCheckVer(Flag,"Com",2)&"> 店铺内容管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComRz'"&WRMPS.GetCheckVer(Flag,"ComRz",2)&"> 店铺认领管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComEdit'"&WRMPS.GetCheckVer(Flag,"ComEdit",2)&"> 店铺补充管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComDP'"&WRMPS.GetCheckVer(Flag,"ComDP",2)&"> 店铺点评管理<br>"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComPic'"&WRMPS.GetCheckVer(Flag,"ComPic",2)&"> 店铺图片管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComErr'"&WRMPS.GetCheckVer(Flag,"ComErr",2)&"> 店铺纠错管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComRe'"&WRMPS.GetCheckVer(Flag,"ComRe",2)&"> 店铺留言管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ComClass'"&WRMPS.GetCheckVer(Flag,"ComClass",2)&"> 店铺分类管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='Templates_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"Templates_"&Rs(0),2)&"> 频道模板管理　"
	        Content = Content & "</td></tr>" & vbCrLf
	        Content = Content & "</Table>" & vbCrLf
	        Content = Content & "</fieldset>" & vbCrLf
		  Case 7 '优惠券
	        Content = Content & "<fieldset>" & vbCrLf
	        Content = Content & "<legend><strong>["&Rs(1)&"]</strong> 权限</legend>" & vbCrLf
	        Content = Content & "<table width='100%' cellpadding=3 cellspacing=0>" & vbCrLf
	        Content = Content & "<tr><td>" & vbCrLf
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='CouPost'"&WRMPS.GetCheckVer(Flag,"CouPost",2)&"> 发布优惠券　　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='Cou'"&WRMPS.GetCheckVer(Flag,"Cou",2)&"> 优惠券管理　　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='CouRe'"&WRMPS.GetCheckVer(Flag,"CouRe",2)&"> 内容回复管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='CouClass'"&WRMPS.GetCheckVer(Flag,"CouClass",2)&"> 频道分类管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='Templates_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"Templates_"&Rs(0),2)&"> 频道模板管理　"
	        Content = Content & "</td></tr>" & vbCrLf
	        Content = Content & "</Table>" & vbCrLf
	        Content = Content & "</fieldset>" & vbCrLf
        End Select
	  Rs.MoveNext
	  Loop
	  Rs.Close

	  Content = Content & "<fieldset>" & vbCrLf
	  Content = Content & "<legend>主题插件权限</legend>" & vbCrLf
	  Content = Content & "<table width='100%' cellpadding=3 cellspacing=0>" & vbCrLf
	  Content = Content & "<tr><td>" & vbCrLf
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Skin'"&WRMPS.GetCheckVer(Flag,"Skin",2)&"> 风格主题管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Label'"&WRMPS.GetCheckVer(Flag,"Label",2)&"> 内容标签管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Templates'"&WRMPS.GetCheckVer(Flag,"Templates",2)&"> 通用模板管理"
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "</Table>" & vbCrLf
	  Content = Content & "</fieldset>" & vbCrLf

	  Content = Content & "<fieldset>" & vbCrLf
	  Content = Content & "<legend>功能插件权限</legend>" & vbCrLf
	  Content = Content & "<table width='100%' cellpadding=3 cellspacing=0>" & vbCrLf
	  Content = Content & "<tr><td>" & vbCrLf
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Announce'"&WRMPS.GetCheckVer(Flag,"Announce",2)&"> 网站公告管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Note'"&WRMPS.GetCheckVer(Flag,"Note",2)&"> 每日帖士管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Gift'"&WRMPS.GetCheckVer(Flag,"Gift",2)&"> 礼品兑换管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='AdsPlace'"&WRMPS.GetCheckVer(Flag,"AdsPlace",2)&"> 广告位置管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='ADS'"&WRMPS.GetCheckVer(Flag,"ADS",2)&"> 站内广告管理<br>"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Link'"&WRMPS.GetCheckVer(Flag,"Link",2)&"> 友情链接管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Page'"&WRMPS.GetCheckVer(Flag,"Page",2)&"> 自定页面管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Tags'"&WRMPS.GetCheckVer(Flag,"Tags",2)&"> 搜索Tags管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Plus'"&WRMPS.GetCheckVer(Flag,"Plus",2)&"> 插件管理　"
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "</Table>" & vbCrLf
	  Content = Content & "</fieldset>" & vbCrLf

	  Content = Content & "<fieldset>" & vbCrLf
	  Content = Content & "<legend>会员财务权限</legend>" & vbCrLf
	  Content = Content & "<table width='100%' cellpadding=3 cellspacing=0>" & vbCrLf
	  Content = Content & "<tr><td>" & vbCrLf
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Member'"&WRMPS.GetCheckVer(Flag,"Member",2)&"> 会员数据管理　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Group'"&WRMPS.GetCheckVer(Flag,"Group",2)&"> 会员组管理　　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='FinanceSee'"&WRMPS.GetCheckVer(Flag,"FinanceSee",2)&"> 财务状况查看　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Finance'"&WRMPS.GetCheckVer(Flag,"Finance",2)&"> 会员账户操作　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='FinanceClear'"&WRMPS.GetCheckVer(Flag,"FinanceClear",2)&"> 财务明细清理<br>"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Message'"&WRMPS.GetCheckVer(Flag,"Message",2)&"> 站内消息管理"
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "</Table>" & vbCrLf
	  Content = Content & "</fieldset>" & vbCrLf

	  Content = Content & "<fieldset>" & vbCrLf
	  Content = Content & "<legend>全局常规权限</legend>" & vbCrLf
	  Content = Content & "<table width='100%' cellpadding=3 cellspacing=0>" & vbCrLf
	  Content = Content & "<tr><td>" & vbCrLf
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='DateBak'"&WRMPS.GetCheckVer(Flag,"DateBak",2)&"> 数据库备份　　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Prop'"&WRMPS.GetCheckVer(Flag,"Prop",2)&"> 道具系统设置　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Faith'"&WRMPS.GetCheckVer(Flag,"Faith",2)&"> 信用系统设置　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='City'"&WRMPS.GetCheckVer(Flag,"City",2)&"> 城市分站设置　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Agent'"&WRMPS.GetCheckVer(Flag,"Agent",2)&"> 分站代理设置<br>"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='Channel'"&WRMPS.GetCheckVer(Flag,"Channel",2)&"> 频道添加设置　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='CreHTML'"&WRMPS.GetCheckVer(Flag,"CreHTML",2)&"> 网站HTML发布　"
	  Content = Content & "<input type='checkbox' name=Flag Class=b value='UpDate'"&WRMPS.GetCheckVer(Flag,"UpDate",2)&"> 系统数据更新　"
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "</Table>" & vbCrLf
	  Content = Content & "</fieldset>" & vbCrLf
	  
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "</Table>" & vbCrLf

	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td></td>" & vbCrLf
      Content = Content & "<td><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　　<input type=submit value=' 提 交 ' name='B1'></td></tr>" & vbCrLf
      Content = Content & "</form>" & vbCrLf
      Content = Content & "</table>" & vbCrLf

    Case "Del"
	  If Request.Cookies("Admin")("ID") = ID Then Call WRMPS.ErrView("·不能操作您正在使用的账号<meta http-equiv=refresh content='1;URL=WM.Admin.asp'>",0)
      Conn.Execute("Delete from WM_Admin where WM_ID="&ID)
      Call WRMPS.ErrView("·帐号删除成功<meta http-equiv=refresh content='1;URL=WM.Admin.asp'>",1)

    Case Else
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=3><strong>管理员管理</strong></td></tr>" & vbCrLf
      Content = Content & "<tr align='center' class=td3>" & vbCrLf
      Content = Content & "<td width='30%'>管理帐号</td>" & vbCrLf
      Content = Content & "<td width='50%'>管理权限</td>" & vbCrLf
      Content = Content & "<td width='20%'>操作</td></tr>" & vbCrLf
      Set Rs = Conn.Execute("Select WM_ID,WM_UserName,WM_FlagGroup from WM_admin")
      Do while not Rs.eof
        Content = Content & "<tr align=center class=td2>" & vbCrLf
        Content = Content & "<td>"&Rs(1)&"</td>" & vbCrLf
        Content = Content & "<td>"&WRMPS.GetReplace(WRMPS.GetReplace(Rs(2),0,"<span class=Font2>超级管理员</span>"),1,"普通管理员")&"</td>" & vbCrLf
        If Int(Request.Cookies("Admin")("ID")) = Rs(0) Then
		  Content = Content & "<td><span class=Font5>修改 | 删除</span></td>" & vbCrLf
		Else
		  Content = Content & "<td><a href='?Action=Admin&ID="&Rs(0)&"'>修改</a> | <a href='?Action=Del&id="&rs(0)&"' onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
		End If
        Content = Content & "</tr>" & vbCrLf
	  Rs.MoveNext
	  Loop
	  Rs.Close
      Content = Content & "</table>" & vbCrLf

  End Select
End Sub
Set Rs = Nothing
Call DBConnEnd()
Call ClassEnd()
Response.Write Content
Call GetBottom()
%>