admin_admin_user.asp

于毕业设计与论文以及做课题用-MSK Simulink simulation program for the design and graduation thesis topic, and makin

<!--#include file="../Conn.asp"-->
<!--#include file="Admin_Session.asp"-->

<%
IF Session("Rank")>2 Then
 Call ErrorMsgHistoryGo("您没有权限管理本栏目")
End If
%>
<link rel="stylesheet" href="css/Style.css" type="text/css">
<title>后台用户管理</title>
<script languang="javascipt">
	function doSubmit()
	{       if (document.Form1.AdminName.value==""){
			alert("请填输入用户名称！");
			document.Form1.AdminName.focus()
			return false;
			}
			if (document.Form1.AdminPass.value==""){
			alert("请输入用户密码！");
			document.Form1.AdminPass.focus()
			return false;
			}
			
			return true;
	}
  function CheckAll(form)
		{
		for (var i=0;i<form.elements.length;i++)
		{
		var e = form.elements[i];
		if (e.Name != "chkAll"&&e.disabled==false)
		e.checked = form.chkAll.checked;
		}
		}
</Script>
<table cellpadding="3" cellspacing="1" border="0" width="100%" class="tableBorder" align=center>
    <tr> 
      <th class="tableHeaderText" height=50 colspan=4>后台用户管理</th>
    </tr>
    <tr align="center" class="forumRowHighlight" height="20"> 
          <td width="16%" class="forumRowHighlight">帐号</td>
          <td width="16%" class="forumRowHighlight">密 码</td>
          <td class="forumRowHighlight">等级</td>
          <td width="21%" class="forumRowHighlight">操 作</td>
  </tr>
    <%
	   set rs=server.CreateObject("adodb.recordset")
	   IF Session("Rank")=1 Then
	    Sql="select * from [HX33_Admin] order by AdminRank"
		Else
		Sql="select * from [HX33_Admin] Where AdminRank>2 or AdminName='"&Session("admin")&"' order by AdminRank"
		End IF
       rs.Open sql,conn,1,1
        do while not rs.EOF
		%>
    
		
          <tr align="center" class="forumRowHighlight" height="20"> 
            <td class="forumRowHighlight">  <input name="AdminName" type="text" id="AdminName" value="<%=trim(rs("AdminName"))%>" size="12"></td>
            <td class="forumRowHighlight"><input name="UserPassword" type="text" size="12"></td>
            <td class="forumRowHighlight">
			<%
			IF Rs("AdminRank")=1 Then
			Response.Write("超级管理员")
			Elseif Rs("AdminRank")=2 Then
			Response.Write("栏目管理员")
			Else
			Response.Write("栏目录入员")
			End IF
			%>            			</td>
            <td class="forumRowHighlight"><a href="Admin_Edit_User.asp?id=<%=Rs("id")%>">修改</a>              &nbsp;<a href="Admin_Admin_User_Save.asp?id=<%=int(rs("id"))%>&action=del" onClick="return confirm('您确定要删除此用户吗？')"><font color=red>删除</font></a>            </td>
          </tr>
		      
        <%rs.movenext
        loop
        rs.close
        set rs=nothing
        %>
</table>

<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder" >
  <tr> 
    <th height="20" align="center" class="tableHeaderText"><font color="#FFFFFF">后台用户添加</font></th>
  </tr>
  <tr> 
    <td class="forumRowHighlight"> <br>
	<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder" >
        <tr align="center"  height="20"> 
          <td width="18%" class="forumRowHighlight">帐号</td>
          <td width="21%" class="forumRowHighlight">密 码</td>
          <td class="forumRowHighlight">等级</td>
        </tr>
        <form name="Form1" method="post" action="Admin_Admin_User_Save.asp" Onsubmit="return doSubmit();">
          <tr align="center" > 
            <td class="forumRowHighlight">
			<input type="text" name="AdminName" size="12"  onkeyup="value=value.replace(/[\W]/g,'')"   
  onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
			
</td>
            <td class="forumRowHighlight"><input name="AdminPass" type="password" size="12" onkeyup="value=value.replace(/[\W]/g,'')"   
  onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"></td>
            <td class="forumRowHighlight">
			<%IF Session("Rank")=1 Then%>
			  <input type="radio" name="AdminRank" value="1">
			  超级管理员
			  <input name="AdminRank" type="radio" value="2" checked>
			  栏目管理员
			  <%end if%>
                <input type="radio" name="AdminRank" value="3">
                栏目录入员
                <input type="hidden" name="action" value="add">               
            </td>
          </tr>
			
		            <tr align="center" >
                      <td colspan="3" class="forumRowHighlight">&nbsp;&nbsp;&nbsp;
                      <input type="submit" name="Submit2" value="添 加"></td></tr>
        </form>
      </table>
	<br></td>
  </tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tableBorder"  >
  <tr> 
    <th  class="tableHeaderText" align="center" height="20"><font color="#FFFFFF">操作注意事项及说明</font></th>
  </tr>
  <tr> 
    <td height="38" class="forumRowHighlight"> 
	<table width="80%" border="0" align="center" cellpadding="5" cellspacing="0">
        <tr> 
          <td class="forumRowHighlight"><font color="#FF0000">            ·添加人员只能添加、修改、删除资料。<br>
            ·管理员拥有本站所有管理权限。<br>
          ·登录密码采用MD5不可逆转方式加密，如不修改密码，请留空。 </font></td>
        </tr>
      </table></td>
  </tr>
</table>