wm.admin.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content()
Sub WM_Content()
  Content = Content & "<div>&nbsp;<a href=WM.Admin.asp>管理首页</a> | <a href=?Action=Admin>添加管理员</a></div>" & vbCrLf
  Dim UserName,PassWord,i,ID,PassWord2,FlagGroup,Flag
  ID = WRMPS.CheckStr(Request("ID"),1)
  Call DBConnBegin()
  Select Case Request("Action")
    Case "AdminSave"
	  UserName = WRMPS.CheckStr(Request("UserName"),0)
	  PassWord = WRMPS.CheckStr(Request("PassWord"),0)
	  FlagGroup = WRMPS.CheckStr(Request("FlagGroup"),1)
	  Select Case FlagGroup
	    Case 0
		  Flag = ","
		Case 1
	      Flag = WRMPS.CheckStr(Request("Flag"),0)
	      Flag = WRMPS.GetReplace(Flag,"&nbsp;","")
		  If Flag = "" Then Flag = ","
	  End Select
	  If FlagGroup = "" Then FlagGroup = 1
	  If ID <> "" Then
	    If Request.Cookies("Admin")("ID") = ID Then Call WRMPS.ErrView("·不能操作您正在使用的账号<meta http-equiv=refresh content='1;URL=WM.Admin.asp'>",0)
	    PassWord2 = WRMPS.CheckStr(Request("PassWord2"),0)
        If PassWord <> "" Then
          PassWord = MD5(2,PassWord)
        Else
          PassWord = PassWord2
        End If
		Conn.Execute("Update WM_Admin Set WM_PassWord = '"&PassWord&"',WM_Flag = '"&Flag&"',WM_FlagGroup = "&FlagGroup&" Where WM_ID="&ID)
	    Call WRMPS.ErrView("·管理员资料修改成功<meta http-equiv=refresh content='1;URL=WM.Admin.asp'>",1)
	  Else
	    PassWord = MD5(2,PassWord)
	    If UserName = "" Then Call WRMPS.ErrView("·请填写管理员登录用户名！<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
	    If PassWord = "" Then Call WRMPS.ErrView("·请填写管理员登录密码！<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
	    Set Rs = Server.CreateObject("ADODB.RecordSet")
        Rs.open "Select WM_UserName,WM_PassWord,WM_Flag,WM_FlagGroup from WM_Admin where WM_UserName='"&UserName&"'",Conn,1,3
        If Not Rs.Eof Then
	      Call WRMPS.ErrView("·管理员已经存在<meta http-equiv=refresh content='1;URL=?Action=Add'>",0)
        Else
          Rs.Addnew
          Rs(0)=UserName
          Rs(1)=PassWord
          Rs(2)=Flag
	      Rs(3)=FlagGroup
          Rs.update
        End If
        Rs.Close
	    Call WRMPS.ErrView("·新增管理员成功<meta http-equiv=refresh content='1;URL=WM.Admin.asp'>",1)
	  End If

    Case "Admin"
	  If ID <> "" Then
	    If Request.Cookies("Admin")("ID") = ID Then Call WRMPS.ErrView("·不能操作您正在使用的账号<meta http-equiv=refresh content='1;URL=WM.Admin.asp'>",0)
        Set Rs = Conn.Execute("select WM_Password,WM_UserName,WM_FlagGroup,WM_Flag from WM_admin where WM_ID="&ID)
        If Not Rs.Eof Then
	      UserName = Rs(1)
		  PassWord = Rs(0)
		  FlagGroup = Rs(2)
		  Flag = Rs(3)
	    End If
	    Rs.Close
	    Set Rs = Nothing
	  Else
	    FlagGroup = 1
	  End If

	  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name=myform method=POST action='?Action=AdminSave'>" & vbCrLf
      Content = Content & "<input name=ID type=hidden value='"&ID&"'>" & vbCrLf
      Content = Content & "<input name=PassWord2 type=hidden value='"&PassWord&"'>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>"
	  If ID <> "" Then Content = Content & "修改" Else Content = Content & "添加"
	  Content = Content & "管理员</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='20%'><strong>用户名</strong></td>" & vbCrLf
      Content = Content & "<td width='80%'><input name=UserName maxlength=20 value="""&UserName&""" style='height:18px;width:150px'"
	  If ID <> "" Then Content = Content & " readonly"
	  Content = Content & "></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>密　码</strong></td>" & vbCrLf
      Content = Content & "<td><input name=PassWord type=password maxlength=20 style='height:18px;width:150px'>"
	  If ID <> "" Then Content = Content & " 不改请不要动"
	  Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>权限设置</strong></td>" & vbCrLf
      Content = Content & "<td><input type=radio Onclick='flagtd.style.display=""none"";' class=b name=FlagGroup value=0 Class=radio" & WRMPS.GetCheckVer(0,FlagGroup, 1) & "> 超级管理员：拥有所有权限。某些权限（如管理员管理、网站信息配置等管理权限）只有超级管理员才有<br><input type=radio  Onclick='flagtd.style.display="""";' class=b name=FlagGroup value=1 Class=radio" & WRMPS.GetCheckVer(1,FlagGroup, 1) & "> 普通管理员：需要详细指定每一项管理权限</td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2 id=flagtd"
	  If FlagGroup = 0 Then Content = Content & " style='display:none'"
	  Content = Content & "><td></td><td>"

	  Content = Content & "<table id=flag width='100%' cellpadding=3 cellspacing=0><tr><td>" & vbCrLf
	  Content = Content & "<tr class=td2><td colspan=2>" & vbCrLf
      Set Rs = Conn.Execute("select WM_ID,WM_ChannelName,WM_Module from WM_Channel where WM_Key = 1 And WM_Module > 0 And WM_Module <> 5 Order By WM_OrderID")
      Do While Not Rs.EOF
	    Select Case Rs(2)
		  Case 1 '文章
	        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='ArticlePost_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"ArticlePost_"&Rs(0),2)&"> 文章内容录入　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='Article_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"Article_"&Rs(0),2)&"> 文章内容管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ArticleRe_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"ArticleRe_"&Rs(0),2)&"> 文章评论管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ArticleClass_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"ArticleClass_"&Rs(0),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 2 '信息
	        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='ClassPost'"&WRMPS.GetCheckVer(Flag,"ClassPost",2)&"> 分类信息发布　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='Class'"&WRMPS.GetCheckVer(Flag,"Class",2)&"> 信息内容管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ClassRe'"&WRMPS.GetCheckVer(Flag,"ClassRe",2)&"> 信息回复管理　"
	        Content = Content & "<input type='checkbox' name=Flag Class=b value='ClassClass'"&WRMPS.GetCheckVer(Flag,"ClassClass",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 3 '单页
	        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='Page_"&Rs(0)&"'"&WRMPS.GetCheckVer(Flag,"Page_"&Rs(0),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 4 '留言
	        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='GuestBook'"&WRMPS.GetCheckVer(Flag,"GuestBook",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