admin_adminmana.asp 星云DJ舞曲 4.5a源码程序 - ASP源码程序

www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_adminmana.asp
    <%CheckAdmin3%>
<!--#include file="const.asp"-->
<!--#include file="inc/char.inc"-->
<LINK href="admin_style.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class=tdbg>
<TABLE cellSpacing=1 cellPadding=3 align=center border=0 width=100%>
  <TR>
    <TH class=title colSpan=10 height=25>管 理 用 户 修 改</TH>
  </TR>
<tr class=tableborder>
<td width="32" align="center">ID号</td>
          <td width="84" align="center">名称</td>
          <td width="90" align="center">最后登陆IP</td>
          <td width="125" align="center">最后登陆时间</td>
          <td width="44" align="center">停留</td>
          <td width="51" align="center">修改</td>
          <td width="39" align="center">删除</td>
</tr>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from admin"
rs.open sql,conn,1
%>
<%
if rs.EOF then
%>
<tr><td colspan=5 align=center height="22">没有用户：（</td></tr>
<%
else
do while NOT rs.EOF
if rs("oskey")="super" then oskey="高级管理员"
if rs("oskey")="check" then oskey="中级管理员"
if rs("oskey")="input" then oskey="初级管理员"
%>
<tr height="22">
          <td width="32" align="center"><%=rs("id")%>　</td>
          <td width="84" align="center"><%=rs("Username")%>
          <td width="90" align="center"><%=rs("LoginIP")%>　</td>
          <td width="125" align="center"><%=rs("LoginTime")%>　</td>
          <td width="44" align="center"><%=rs("LoginTimes")%>分钟</td>
          <td width="51" align="center"><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a></td>
          <td width="39" align="center"><a href="admin_AdminDel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
%>
</table>
<FORM METHOD=POST ACTION="admin_AdminSave.asp" id=form1 name=form1>
<TABLE cellSpacing=1 cellPadding=3 align=center border=0>
  <TR>
    <TH colSpan=10 height=25 class=title>添 加 管 理 员</TH>
  </TR>
<tr height="22">
<td align="right">管 理 员 名：</td>
<td><input type=text name=UserName size="15"  value="" onfocus=this.select() onmouseover=this.focus() maxlength="30"></td>
</tr>
<tr>
<td align="right" class=TableRow2>管 理 权 限：</td>
<td>
<select name="oskey">
<option value=super selected>高级管理员</option>
<option value=check>中级管理员</option>
<option value=input>初级管理员</option>
</select>
</td>
</tr>
<tr>
<td align="right">管 理 密 码：</td>
<td><input type=text name=Password size="15"  value="" onfocus=this.select() onmouseover=this.focus() maxlength="30"></td>
</tr>
<tr>
<th align="center" colspan=2 height="24">
<input type=hidden value="add" name="act">
<input type=submit value=增加 name="submit">
<input type=reset name="Submit" value="取消">
</th>
</tr>
</table>
</FORM>
<%
set rs=nothing
conn.close
set conn=nothing
%>