<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true	
Const PurviewLevel=1
%>
<!--#include file="inc/conn1.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim rs, sql, strPurview,iCount
dim Action,FoundErr,ErrMsg
Action=Trim(request("Action"))
%>
<html>
<head>
<title>管理员管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javascript>
function unselectall()
{
    if(document.myform.chkAll.checked){
	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}

function CheckAll(form)
{
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll"&&e.disabled!=true)
       e.checked = form.chkAll.checked;
    }
}

function CheckAdd()
{
  if(document.form1.username.value=="")
    {
      alert("用户名不能为空！");
	  document.form1.username.focus();
      return false;
    }
    
  if(document.form1.Password.value=="")
    {
      alert("密码不能为空！");
	  document.form1.Password.focus();
      return false;
    }
    
  if((document.form1.Password.value)!=(document.form1.PwdConfirm.value))
    {
      alert("初始密码与确认密码不同！");
	  document.form1.PwdConfirm.select();
	  document.form1.PwdConfirm.focus();	  
      return false;
    }
  if (document.form1.Purview[1].checked==true){
	GetClassPurview();
  }
}
function CheckModifyPwd()
{
  if(document.form1.Password.value=="")
    {
      alert("密码不能为空！");
	  document.form1.Password.focus();
      return false;
    }
  if((document.form1.Password.value)!=(document.form1.PwdConfirm.value))
    {
      alert("初始密码与确认密码不同！");
	  document.form1.PwdConfirm.select();
	  document.form1.PwdConfirm.focus();	  
      return false;
    }
}

function CheckModifyPurview()
{
  if (document.form1.Purview[1].checked==true){
	GetClassPurview();
  }
}

function GetClassPurview()
{
    document.form1.ClassInputer_Article.value="";
	document.form1.ClassChecker_Article.value="";
	document.form1.ClassMaster_Article.value="";
	if(document.form1.AdminPurview_Article[2].checked==true){
		for(var i=0;i<frmArticle.document.myform.Purview_Add.length;i++){
			if (frmArticle.document.myform.Purview_Add[i].checked==true){
				if (document.form1.ClassInputer_Article.value=="")
					document.form1.ClassInputer_Article.value=frmArticle.document.myform.Purview_Add[i].value;
				else
					document.form1.ClassInputer_Article.value+=","+frmArticle.document.myform.Purview_Add[i].value;
			}
		}
		for(var i=0;i<frmArticle.document.myform.Purview_Check.length;i++){
			if (frmArticle.document.myform.Purview_Check[i].checked==true){
				if (document.form1.ClassChecker_Article.value=="")
					document.form1.ClassChecker_Article.value=frmArticle.document.myform.Purview_Check[i].value;
				else
					document.form1.ClassChecker_Article.value+=","+frmArticle.document.myform.Purview_Check[i].value;
			}
		}
		for(var i=0;i<frmArticle.document.myform.Purview_Manage.length;i++){
			if (frmArticle.document.myform.Purview_Manage[i].checked==true){
				if (document.form1.ClassMaster_Article.value=="")
					document.form1.ClassMaster_Article.value=frmArticle.document.myform.Purview_Manage[i].value;
				else
					document.form1.ClassMaster_Article.value+=","+frmArticle.document.myform.Purview_Manage[i].value;
			}
		}
	}
    document.form1.ClassInputer_Soft.value="";
	document.form1.ClassChecker_Soft.value="";
	document.form1.ClassMaster_Soft.value="";
	if(document.form1.AdminPurview_Soft[2].checked==true){
		for(var i=0;i<frmSoft.document.myform.Purview_Add.length;i++){
			if (frmSoft.document.myform.Purview_Add[i].checked==true){
				if (document.form1.ClassInputer_Soft.value=="")
					document.form1.ClassInputer_Soft.value=frmSoft.document.myform.Purview_Add[i].value;
				else
					document.form1.ClassInputer_Soft.value+=","+frmSoft.document.myform.Purview_Add[i].value;
			}
		}
		for(var i=0;i<frmSoft.document.myform.Purview_Check.length;i++){
			if (frmSoft.document.myform.Purview_Check[i].checked==true){
				if (document.form1.ClassChecker_Soft.value=="")
					document.form1.ClassChecker_Soft.value=frmSoft.document.myform.Purview_Check[i].value;
				else
					document.form1.ClassChecker_Soft.value+=","+frmSoft.document.myform.Purview_Check[i].value;
			}
		}
		for(var i=0;i<frmSoft.document.myform.Purview_Manage.length;i++){
			if (frmSoft.document.myform.Purview_Manage[i].checked==true){
				if (document.form1.ClassMaster_Soft.value=="")
					document.form1.ClassMaster_Soft.value=frmSoft.document.myform.Purview_Manage[i].value;
				else
					document.form1.ClassMaster_Soft.value+=","+frmSoft.document.myform.Purview_Manage[i].value;
			}
		}
	}
	document.form1.ClassInputer_Photo.value="";
	document.form1.ClassChecker_Photo.value="";
	document.form1.ClassMaster_Photo.value="";
    if(document.form1.AdminPurview_Photo[2].checked==true){
		for(var i=0;i<frmPhoto.document.myform.Purview_Add.length;i++){
			if (frmPhoto.document.myform.Purview_Add[i].checked==true){
				if (document.form1.ClassInputer_Photo.value=="")
					document.form1.ClassInputer_Photo.value=frmPhoto.document.myform.Purview_Add[i].value;
				else
					document.form1.ClassInputer_Photo.value+=","+frmPhoto.document.myform.Purview_Add[i].value;
			}
		}
		for(var i=0;i<frmPhoto.document.myform.Purview_Check.length;i++){
			if (frmPhoto.document.myform.Purview_Check[i].checked==true){
				if (document.form1.ClassChecker_Photo.value=="")
					document.form1.ClassChecker_Photo.value=frmPhoto.document.myform.Purview_Check[i].value;
				else
					document.form1.ClassChecker_Photo.value+=","+frmPhoto.document.myform.Purview_Check[i].value;
			}
		}
		for(var i=0;i<frmPhoto.document.myform.Purview_Manage.length;i++){
			if (frmPhoto.document.myform.Purview_Manage[i].checked==true){
				if (document.form1.ClassMaster_Photo.value=="")
					document.form1.ClassMaster_Photo.value=frmPhoto.document.myform.Purview_Manage[i].value;
				else
					document.form1.ClassMaster_Photo.value+=","+frmPhoto.document.myform.Purview_Manage[i].value;
			}
		}
	}
}
</script>
<style type="text/css">
<!--
body {	background-color: #FFFFFF;
	margin-right: 8px;
	margin-bottom: 8px;
	margin-left: 8px;
	margin-top: 0px;
}
-->
</style>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="1" bgcolor="#D6D5D9"></td>
    <td height="34" align=left bgcolor="#F8F8F9"><table width="100%">
      <tr>
        <td width="80"><strong>&nbsp;&nbsp;管理导航：</strong></td>
       
    
        <td><a href="Admin_Admin.asp">管理员管理首页</a>&nbsp;|&nbsp;<a href="Admin_Admin.asp?Action=Add">新增管理员</a></td>
      </tr>
    </table></td>
    <td width="1" bgcolor="#D6D5D9"></td>
  </tr>
  <tr>
    <td width="1" bgcolor="#F8F8F9"></td>
    <td height="1" bgcolor="#D6D5D9" ></td>
    <td width="1" bgcolor="#F8F8F9"></td>
  </tr>
</table>
<table width="100%" height="8" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%
if Action="Add" then
	call AddAdmin()
elseif Action="SaveAdd" then
	call SaveAdd()
elseif Action="ModifyPwd" then
	call ModifyPwd()
elseif Action="ModifyPurview" then
	call ModifyPurview()
elseif Action="SaveModifyPwd" then
	call SaveModifyPwd()
elseif Action="SaveModifyPurview" then
	call SaveModifyPurview()
elseif Action="Del" then
	call DelAdmin()
else
	call main()
end if
if FoundErr=True then
	call WriteErrMsg()
end if
call CloseConn()

sub main()
	Set rs=Server.CreateObject("Adodb.RecordSet")
	sql="select * from admin order by id"
	rs.Open sql,conn,1,1
	iCount=rs.recordcount
%>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
  <tr>
  <form name="myform" method="Post" action="Admin_Admin.asp" onSubmit="return confirm('确定要删除选中的管理员吗？');">
     <td>
<table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center">
    <td  width="30" bgcolor="f2f2f2"><strong>选中</strong></td>
    <td  width="30" height="22" bgcolor="f2f2f2"><strong> 序号</strong></td>
    <td height="22" bgcolor="f2f2f2"><strong> 用 户 名</strong></td>
    <td width="100" bgcolor="f2f2f2"><strong>最后登录IP</strong></td>
    <td width="120" bgcolor="f2f2f2"><strong>最后登录时间</strong></td>
    <td  width="60" bgcolor="f2f2f2"><strong>登录次数</strong></td>
    <td  width="150" height="22" bgcolor="f2f2f2"><strong> 操 作</strong></td>
  </tr>
  <%do while not rs.EOF %>
  <tr align="center"> 
    <td width="30" bgcolor="#FFFFFF"><input name="ID" type="checkbox" id="ID" value="<%=rs("ID")%>" <%if rs("UserName")=AdminName then response.write " disabled"%> onClick="unselectall()"></td>
    <td width="30" bgcolor="#FFFFFF"><%=rs("ID")%></td>
    <td bgcolor="#FFFFFF"><%
	if rs("username")=AdminName then
		response.write "<font color=red><b>" & rs("UserName") & "</b></font>"
	else
		response.write rs("UserName")
	end if
	%></td>
    <td width="100" bgcolor="#FFFFFF"><%
	if rs("LastLoginIP")<>"" then
		response.write rs("LastLoginIP")
	else
		response.write "&nbsp;"
	end if
	%> </td>
    <td width="120" bgcolor="#FFFFFF"><%
	if rs("LastLoginTime")<>"" then
		response.write rs("LastLoginTime")
	else
		response.write "&nbsp;"
	end if
	%> </td>
    <td width="60" bgcolor="#FFFFFF"><%
	if rs("LoginTimes")<>"" then
		response.write rs("LoginTimes")
	else
		response.write "0"
	end if
	%> </td>
    <td width="150" bgcolor="#FFFFFF"><%
	response.write "<a href='Admin_Admin.asp?Action=ModifyPwd&ID=" & rs("ID") & "'>修改密码</a>&nbsp;&nbsp;"

	if iCount>1 and rs("UserName")<>AdminName then
		response.write "<a href='Admin_Admin.asp?Action=Del&ID=" & rs("ID") & "' onClick=""return confirm('确定要删除此管理员吗？');"">删除</a>"
	else
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;"
	end if
	%> </td>
  </tr>
  <%
	rs.MoveNext
loop
  %>
</table>  
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
              选中本页显示的所有管理员</td>
            <td><input name="Action" type="hidden" id="Action" value="Del">
              <input name="Submit" type="submit" id="Submit" value="删除选中的管理员"></td>
  </tr>
</table>
</td>
</form></tr></table>
<%
	rs.Close
	set rs=Nothing
end sub

sub AddAdmin()
%>

  <table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" ><form method="post" action="Admin_Admin.asp" name="form1" onSubmit="javascript:return CheckAdd();">
    <tr> 
      <td height="22" colspan="2" bgcolor="#f2f2f2"> <div align="center"><strong>新 增 管 理 员</strong></div></td>
    </tr>
    <tr> 
      <td width="41%" align="right" bgcolor="#FFFFFF"><strong> 用 户 名：</strong></td>
      <td width="59%" bgcolor="#FFFFFF"><input name="username" type="text" size="30"> &nbsp;</td>
    </tr>
    <tr> 
      <td align="right" bgcolor="#FFFFFF"><strong> 初始密码： </strong></td>
      <td bgcolor="#FFFFFF"><font size="2"> 
        <input name="Password" type="password" size="34">
      </font></td>
    </tr>
    <tr> 
      <td align="right" bgcolor="#FFFFFF"><strong> 确认密码：</strong></td>
      <td bgcolor="#FFFFFF"><font size="2"> 
        <input name="PwdConfirm" type="password" size="34">
      </font></td>
    </tr>
    
    <tr> 
      <td height="40" colspan="2" align="center" bgcolor="#FFFFFF"><input name="Purview" type="hidden" value="1"><input name="Action" type="hidden" id="Action" value="SaveAdd"> 
        <input  type="submit" name="Submit" value=" 添 加 " style="cursor:hand;"> 
        &nbsp; <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Admin.asp'" style="cursor:hand;"></td>
    </tr></form>
  </table>

<%
end sub

sub ModifyPwd()
	dim UserID
	UserID=trim(Request("ID"))
	if UserID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定要修改的管理员ID</li>"
		exit sub
	else
		UserID=Clng(UserID)
	end if
	sql="Select * from Admin where ID=" & UserID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.Bof and rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>不存在此用户！</li>"
	else
%>

  <table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" ><form method="post" action="Admin_Admin.asp" name="form1" onSubmit="javascript:return CheckModifyPwd();">
    <tr> 
      <td height="22" colspan="2" bgcolor="f2f2f2"> <div align="center"><font size="2"><strong>修 改 管 理 员 密 码</strong></font></div></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="#FFFFFF"><strong>用 户 名：</strong></td>
      <td width="60%" bgcolor="#FFFFFF"><%=rs("UserName")%> <input name="ID" type="hidden" value="<%=rs("ID")%>"></td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="#FFFFFF"><strong>新 密 码：</strong></td>
      <td width="60%" bgcolor="#FFFFFF"><input type="password" name="Password">
      </td>
    </tr>
    <tr> 
      <td width="40%" bgcolor="#FFFFFF"><strong>确认密码：</strong></td>
      <td width="60%" bgcolor="#FFFFFF"><input type="password" name="PwdConfirm">
      </td>
    </tr>
    <tr> 
      <td colspan="2" align="center" bgcolor="#FFFFFF"><input name="Action" type="hidden" id="Action" value="SaveModifyPwd"> 
        <input  type="submit" name="Submit" value="保存修改结果" style="cursor:hand;">
        &nbsp;
      <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Admin.asp'" style="cursor:hand;"></td>
    </tr></form>
  </table>

<%
	end if
	rs.close
	set rs=nothing
end sub

%>
</body>
</html>
<%
sub SaveAdd()
	dim username, password,PwdConfirm, purview
	dim AdminPurview_Article,AdminPurview_Soft,AdminPurview_Photo,AdminPurview_Guest,AdminPurview_Others
	dim ClassInputer_Article,ClassChecker_Article,ClassMaster_Article
	dim ClassInputer_Soft,ClassChecker_Soft,ClassMaster_Soft
	dim ClassInputer_Photo,ClassChecker_Photo,ClassMaster_Photo

	username=trim(Request("username"))
	password=trim(Request("Password"))
	PwdConfirm=trim(request("PwdConfirm"))
	purview=trim(Request("purview"))

	if username="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
	end if
	if password="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>初始密码不能为空！</li>"
	end if
	if PwdConfirm<>Password then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>确认密码必须与初始密码相同！</li>"
	end if
	if purview="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>用户权限不能为空！</li>"
	else
		purview=CInt(purview)
	end if

	if FoundErr=True then
		exit sub
	end if
	sql="Select * from Admin where username='"&username&"'"
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if not (rs.bof and rs.EOF) then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>数据库中已经存在此管理员！</li>"
		rs.close
		set rs=nothing
		exit sub
	end if
   	rs.addnew
 	rs("username")=username
   	rs("password")=md5(password)
    rs("purview")=purview
	if purview=1 then
		rs("AdminPurview_Article")=3
		rs("AdminPurview_Soft")=3
		rs("AdminPurview_Photo")=3
		rs("AdminPurview_Guest")=3
		rs("AdminPurview_Others")=3
	else
		rs("AdminPurview_Article")=3
		rs("AdminPurview_Soft")=3
		rs("AdminPurview_Photo")=3
		rs("AdminPurview_Guest")=3
		rs("AdminPurview_Others")=3
	end if
	rs.update
    rs.Close
	set rs=Nothing
	if AdminPurview_Article=3 then
		call AddClassMaster("ArticleClass","ClassInputer",UserName,ClassInputer_Article)
		call AddClassMaster("ArticleClass","ClassChecker",UserName,ClassChecker_Article)
		call AddClassMaster("ArticleClass","ClassMaster",UserName,ClassMaster_Article)
	end if
	if AdminPurview_Soft=3 then
		call AddClassMaster("SoftClass","ClassInputer",UserName,ClassInputer_Soft)
		call AddClassMaster("SoftClass","ClassChecker",UserName,ClassChecker_Soft)
		call AddClassMaster("SoftClass","ClassMaster",UserName,ClassMaster_Soft)
	end if
	if AdminPurview_Photo=3 then
		call AddClassMaster("PhotoClass","ClassInputer",UserName,ClassInputer_Photo)
		call AddClassMaster("PhotoClass","ClassChecker",UserName,ClassChecker_Photo)
		call AddClassMaster("PhotoClass","ClassMaster",UserName,ClassMaster_Photo)
	end if
	Call main()
end sub

sub SaveModifyPwd()
	dim UserID, UserName,password,PwdConfirm
	UserID=trim(Request("ID"))
	password=trim(Request("Password"))
	PwdConfirm=trim(request("PwdConfirm"))
	if UserID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定要修改的管理员ID</li>"
	else
		UserID=Clng(UserID)
	end if
	if password="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>新密码不能为空！</li>"
	end if
	if PwdConfirm<>Password then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>确认密码必须与新密码相同！</li>"
	end if
	if FoundErr=True then
		exit sub
	end if
	
	sql="Select * from Admin where ID=" & UserID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.Bof and rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>不存在此管理员！</li>"
		rs.close
		set rs=nothing
		exit sub
	end if
	rs("password")=md5(password)
 	rs.update
	rs.Close
   	set rs=Nothing
    call main()
end sub

sub SaveModifyPurview()
	dim UserID,UserName,Purview
	dim AdminPurview_Article,AdminPurview_Soft,AdminPurview_Photo,AdminPurview_Guest,AdminPurview_Others
	dim ClassInputer_Article,ClassChecker_Article,ClassMaster_Article
	dim ClassInputer_Soft,ClassChecker_Soft,ClassMaster_Soft
	dim ClassInputer_Photo,ClassChecker_Photo,ClassMaster_Photo
	dim OldAdminPurview_Article,OldAdminPurview_Soft,OldAdminPurview_Photo
	UserID=trim(Request("ID"))
	purview=trim(Request("purview"))
	AdminPurview_Article=Clng(trim(Request("AdminPurview_Article")))
	AdminPurview_Soft=Clng(trim(Request("AdminPurview_Soft")))
	AdminPurview_Photo=Clng(trim(Request("AdminPurview_Photo")))
	AdminPurview_Guest=replace(replace(trim(request("AdminPurview_Guest"))," ",""),"'","")
	AdminPurview_Others=replace(replace(trim(request("AdminPurview_Others"))," ",""),"'","")
	ClassInputer_Article=replace(replace(trim(request("ClassInputer_Article"))," ",""),"'","")
	ClassChecker_Article=replace(replace(trim(request("ClassChecker_Article"))," ",""),"'","")
	ClassMaster_Article=replace(replace(trim(request("ClassMaster_Article"))," ",""),"'","")
	ClassInputer_Soft=replace(replace(trim(request("ClassInputer_Soft"))," ",""),"'","")
	ClassChecker_Soft=replace(replace(trim(request("ClassChecker_Soft"))," ",""),"'","")
	ClassMaster_Soft=replace(replace(trim(request("ClassMaster_Soft"))," ",""),"'","")
	ClassInputer_Photo=replace(replace(trim(request("ClassInputer_Photo"))," ",""),"'","")
	ClassChecker_Photo=replace(replace(trim(request("ClassChecker_Photo"))," ",""),"'","")
	ClassMaster_Photo=replace(replace(trim(request("ClassMaster_Photo"))," ",""),"'","")
	if AdminPurview_Guest<>"" then
		AdminPurview_Guest=AdminPurview_Guest & "," & "Manage"
	end if
	if UserID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定要修改的管理员ID</li>"
	else
		UserID=Clng(UserID)
	end if
	if purview="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>用户权限不能为空！</li>"
	else
		purview=CInt(purview)
	end if
	if FoundErr=True then
		exit sub
	end if
	
	sql="Select * from Admin where ID=" & UserID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.Bof and rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>不存在此管理员！</li>"
		rs.close
		set rs=nothing
		exit sub
	end if
	UserName=rs("UserName")
	OldAdminPurview_Article=rs("AdminPurview_Article")
	OldAdminPurview_Soft=rs("AdminPurview_Soft")
	OldAdminPurview_Photo=rs("AdminPurview_Photo")
    rs("purview")=purview
	if purview=1 then
		rs("AdminPurview_Article")=3
		rs("AdminPurview_Soft")=3
		rs("AdminPurview_Photo")=3
		rs("AdminPurview_Guest")=""
		rs("AdminPurview_Others")=""
	else
		rs("AdminPurview_Article")=AdminPurview_Article
		rs("AdminPurview_Soft")=AdminPurview_Soft
		rs("AdminPurview_Photo")=AdminPurview_Photo
		rs("AdminPurview_Guest")=AdminPurview_Guest
		rs("AdminPurview_Others")=AdminPurview_Others
	end if
 	rs.update
	rs.Close
   	set rs=Nothing
	if OldAdminPurview_Article=3 then
		call RemoveClassMaster("ArticleClass",UserName)
	end if
	if OldAdminPurview_Soft=3 then
		call RemoveClassMaster("SoftClass",UserName)
	end if
	if OldAdminPurview_Photo=3 then
		call RemoveClassMaster("PhotoClass",UserName)
	end if
	if AdminPurview_Article=3 then
		call AddClassMaster("ArticleClass","ClassInputer",UserName,ClassInputer_Article)
		call AddClassMaster("ArticleClass","ClassChecker",UserName,ClassChecker_Article)
		call AddClassMaster("ArticleClass","ClassMaster",UserName,ClassMaster_Article)
	end if
	if AdminPurview_Soft=3 then
		call AddClassMaster("SoftClass","ClassInputer",UserName,ClassInputer_Soft)
		call AddClassMaster("SoftClass","ClassChecker",UserName,ClassChecker_Soft)
		call AddClassMaster("SoftClass","ClassMaster",UserName,ClassMaster_Soft)
	end if
	if AdminPurview_Photo=3 then
		call AddClassMaster("PhotoClass","ClassInputer",UserName,ClassInputer_Photo)
		call AddClassMaster("PhotoClass","ClassChecker",UserName,ClassChecker_Photo)
		call AddClassMaster("PhotoClass","ClassMaster",UserName,ClassMaster_Photo)
	end if
    call main()
end sub

sub DelAdmin()
	dim UserID
	UserID=trim(Request("ID"))
	if UserID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定要删除的管理员ID</li>"
		exit sub
	end if
	if instr(UserID,",")>0 then
		UserID=replace(UserID," ","")
		sql="Select * from Admin where ID in (" & UserID & ")"
	else
		UserID=clng(UserID)
		sql="select * from Admin where ID=" & UserID
	end if
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	do while not rs.eof

		rs.delete
		rs.update
		rs.movenext
	loop
	rs.close
	set rs=nothing
	call main()
end sub

sub AddClassMaster(SheetName,FieldName,strUserName,arrClassID)
	if isNull(arrClassID) or arrClassID="" then
		exit sub
	end if
	dim sqlMaster,rsMaster,ClassMaster
	sqlMaster="select ClassID," & FieldName & " from " & SheetName & " where ClassID in (" & arrClassID & ") order by RootID,OrderID"
	Set rsMaster=Server.CreateObject("Adodb.RecordSet")
	rsMaster.open sqlMaster,conn,1,3
	do while not rsMaster.eof
		if isNull(rsMaster(1)) or rsMaster(1)="" then
			rsMaster(1)=strUserName
		else
			rsMaster(1)=rsMaster(1) & "|" & strUserName
		end if
		rsMaster.update
		rsMaster.movenext
	loop
	rsMaster.close
	set rsMaster=nothing
end sub

sub RemoveClassMaster(SheetName,strUserName)
	dim sqlMaster,rsMaster,ClassMaster,arrClassMaster,i
	sqlMaster="select ClassInputer,ClassChecker,ClassMaster from " & SheetName
	Set rsMaster=Server.CreateObject("Adodb.RecordSet")
	rsMaster.open sqlMaster,conn,1,3
	do while not rsMaster.eof
		rsMaster(0)=RemoveStr(rsMaster(0),strUserName)
		rsMaster(1)=RemoveStr(rsMaster(1),strUserName)
		rsMaster(2)=RemoveStr(rsMaster(2),strUserName)
		rsMaster.update
		rsMaster.movenext
	loop
	rsMaster.close
	set rsMaster=nothing
end sub

function RemoveStr(str1,str2)
	if isnull(str1) or str1="" then
		RemoveStr=""
		exit function
	end if
	if str2="" then
		RemoveStr=str1
		exit function
	end if
	if instr(str1,"|")>0 then
		dim arrStr,tempStr,i
		arrStr=split(str1,"|")
		for i=0 to ubound(arrStr)
			if arrStr(i)<>str2 then
				if tempStr="" then
					tempStr=arrStr(i)
				else
					tempStr=tempStr & "|" & arrStr(i)
				end if
			end if
		next
		RemoveStr=tempStr
	else
		if str1=str2 then
			RemoveStr=""
		else
			RemoveStr=str1
		end if
	end if	
end function
%>