📄 admin1.asp
字号:
<!--#include file=function.asp-->
<%CheckAdmin3%>
<!--#include file="conn.asp"-->
<html>
<head>
<LINK href="../style.css" rel=stylesheet type=text/css>
<title>OWEN 活动管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body topmargin="0" leftmargin="0" bgcolor="#9999CC">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15%" valign="top" bgcolor="#9999CC" style="border-right: 1 solid #000000"><!--#include file="left.asp"--></td>
<td width="85%" align="center" valign="top" bgcolor="#D8D8EB">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=center valign=top>
<table width="95%" border="1" cellpadding="0" cellspacing="0" class="TableLine" style="border-collapse:collapse;">
<tr>
<td width="100%" bgcolor="#99CCFF" colspan=5 height="22" align=center><strong>管理员列表</strong></td>
</tr>
<tr height=22>
<td width="10%" align="center" bgcolor="#D4E9FF">ID号</td>
<td width="25%" align="center" bgcolor="#D4E9FF">名称</td>
<td width="20%" align="center" bgcolor="#D4E9FF">权限</td>
<td width="10%" align="center" bgcolor="#D4E9FF">修改</td>
<td width="10%" align="center" bgcolor="#D4E9FF">删除</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="10%" align="center"><%=rs("id")%> </td>
<td width="25%" align="center"><%=rs("Username")%></td>
<td width="20%" align="center"><%=oskey%> </td>
<td width="10%" align="center"><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a></td>
<td width="10%" align="center"><a href="admin_AdminDel.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
%>
</table>
<br>
<table width="40%" border="1" cellpadding="0" cellspacing="0" class="TableLine" style="border-collapse:collapse;">
<FORM METHOD=POST ACTION="admin_AdminSave.asp" id=form1 name=form1>
<tr>
<td align="center" bgcolor="#99CCFF" height=22 colspan=2><strong>添
加 管 理 员</strong></td>
</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">管 理 权 限：</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>
<td 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="取消">
</td>
</tr></FORM>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -