📄 adminuser.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

💻 ASP

字号:

<%@language=vbscript%>

<!--#include file="conn.asp"-->
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/admin.css" rel="stylesheet" type="text/css">
</head>
<% set rs=server.createobject("adodb.recordset")
    sql="select * from admin"
    rs.open sql,conn,3,3
  %>
<body> 
  <table align="center" width="550" align="center" border="1" cellspacing="0" cellpadding="5" class=lanyubk style="border-collapse: collapse">
    <tr> 
      <td colspan="5" class=lanyuss>用户管理</td></tr>
    <tr class=lanyuds> 
      <td>用户名</td><td>密码</td><td>手机号</td><td>权限</td><td>操作</td>
    </tr>
  <%while not rs.EOF %>
  <%if (rs("flag")>Session("flag")) or (rs("username")=Session("admin")) then%>
  <form method="post" action="saveuser.asp" style="margin:0">
      <tr class=lanyuds>
        <td><input type="text" name="manager" value="<%=rs("username")%>" size="12"></td>
        <td><input type="password" name="newpin" value="<%=rs("password")%>" size="12"></td>
        <td><input type="shouji" name="shouji" value="<%=rs("shouji")%>" size="15"></td>

        <td>
          <%if rs("flag")=1 then%> 
          超级用户
          <%end if%>
          <%if rs("flag")=2 then%> 
          普通用户
          <%end if%>
          <%if rs("flag")=3 then%> 
          员工
          <%end if%>
        </td>
        <td><input type="submit" name="Submit" value="修改">&nbsp;
            <input type="submit" name="Submit" value="删除">
            <input type="hidden" name="username" value="<%=rs("username")%>">
            <input type="hidden" name="password" value="<%=rs("password")%>">
            <input type="hidden" name="shouji" value="<%=rs("shouji")%>">
          </td>
      </tr>
    </form>
  <%else%>
      <tr class=lanyuds> 
        <td> 
          <%=rs("username")%>
          </td>
        <td> 
          ******
          </td>
        <td> 
          <%if rs("flag")=1 then%> 
          超级用户
          <%else%>
          普通用户
          <%end if%>
        </td>
        <td> 
          
        </td>
      </tr>
    
  <%
     end if
     
     rs.MoveNext
     
     Wend
  %>
<%
  rs.Close
  set rs=Nothing
  
  conn.Close
  set conn=Nothing
%>
<tr class=lanyuqs><td colspan="5" align="center">超级用户可以进行所有功能的操作,普通用户没有用户管理和栏目管理权限，用户只有添加程序的权限</td></tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -