家庭/个人应用

开发平台：
ASP/ASPX

adminuser.asp：源码内容
							
<!--#include file="../checkpost.asp"-->
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%if session("flag")>1 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    response.end
end if
%>
<html><HEAD>
<TITLE></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="inc/Admin_STYLE.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.样式1 {
	color: #000000;
	font-weight: bold;
}
.样式2 {color: #FFFFFF}
-->
</style>
</HEAD>
<%
   Set rs=Server.CreateObject("Adodb.RecordSet")
   
   sql="select * from password order by id"
   
   rs.Open sql,conn,1,1
%>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<DIV align="center">
  <!--#include file="top1.asp"-->
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
    <tr>
      <td>&nbsp;</td>
    </tr>
  </table>
  <table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
    <tr bgcolor="#FFFFFF"> 
      <td height="24" colspan="5"> 
        <div align="center" class="样式1">修改管理员信息 
          | <a href=adduser.asp> 增加管理员</a></div></td>
    </tr>
    <tr bgcolor="#429AEF">
      <td height="20"><div align="center" class="样式2"><strong>用户名</strong></div></td>
      <td><div align="center" class="样式2"><strong>密码</strong></div></td>
      <td><div align="center" class="样式2"><strong>权限</strong></div></td>
      <td><div align="center" class="样式2"><strong>操作</strong></div></td>
    </tr>
	 <%do while not rs.EOF %>
    <form method="post" action="asaveuser.asp" style="margin:0">
       <tr>
      <td width="24%"  class="tdbg"><div align="center" >
        <input type="text" name="manager" value="<%=rs("name")%>" size="12">
        <input type="hidden" name="id" value="<%=rs("id")%>" size="12">
      </div></td>
      <td width="28%" class="tdbg"><div align="center"><input name="newpin" size="12"></div></td>
      <td width="26%" class="tdbg"><div align="center">
        <select size="1" name="flag">
          <option <%if rs("flag")=3 then%> selected <%end if%> value="3">初级管理员 </option>
          <option <%if rs("flag")=2 then%> selected <%end if%> value="2">高级管理员 </option>
          <option <%if rs("flag")=1 then%> selected <%end if%> value="1">超级管理员 </option>
          <option <%if rs("flag")=4 then%> selected <%end if%> value="4">无管理权限 </option>
        </select>
      </div></td>
      <td width="22%" class="tdbg"><div align="center">
        <input type="submit" name="Submit" value="修改">
        &nbsp;
        <input type="submit" name="Submit" value="删除">
      </div></td>
    
    </tr>
	 </form>
	 <%  
     rs.MoveNext
     
     loop
  %>
  </table>
    <%
  rs.Close
  set rs=Nothing
  
  conn.Close
  set conn=Nothing
%>
  <P>　</P> 
</DIV>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center">超级用户可以进行所有功能的操作<br>
        普通用户没有用户管理和栏目管理权限，用户只有添加程序的权限。 </div></td>
  </tr>
</table>
<P align=center>
</BODY>
</HTML>

						