📄 admin_admininfo.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body>
<div id=topmomo><a href="admin_Admininfo.asp?info=add" target="right">添加管理员</a> |
<a href="admin_Admininfo.asp?info=list" target="right">管理员列表</a></div><br>
<%Select Case request.querystring("info")
Case "add"
Call add()
Case "list"
Call list()
Case "edit"
Call edit()
end select
Sub list()%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td class="thead" align="center" height="25" colspan="7"><b>查看所有管理员</b></td>
</tr>
<tr align="center" height="22">
<td width="20%" class="tcat">管理员名称</td>
<td width="20%" class="tcat">管理等级</td>
<td width="20%" class="tcat">添加时间</td>
<td width="20%" class="tcat">操作</td>
</tr>
<%
Const MaxPerPage=20
If Request("page")<>"" then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End if
set rs=server.createobject("adodb.recordset")
sql="select * from admin_user order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr align=center><td colspan=4 height=22 class=alt1><span class=style1>暂无任何管理员</span></td></tr>"
else
Rs.PageSize=MaxPerPage
Allpage=Rs.PageCount
If Currentpage>Allpage Then Currentpage=1
Num=Rs.RecordCount
Rs.MoveFirst
Rs.AbsolutePage=CurrentPage
i=0
do while not rs.eof
%>
<tr align="center" height="22">
<td width="20%" class="alt2">
<a href="admin_admininfo.asp?info=edit&id=<%=rs("id")%>"><%=rs("truename")%></a></td>
<td width="20%" class="alt1"><% select case rs("userclass")
case "1"
response.write "审核员"
case "2"
response.write "管理员"
case "3"
response.write "超级管理员"
end select
%></td>
<td width="20%" class="alt2"><%=rs("ADDtime")%> </td>
<td width="20%" class="alt1">
<a href="admin_save.asp?info=admindel&id=<%=rs("id")%>">
<img src="images/delete.gif" width="18" height="18" border="0"></a></td>
</tr>
<% i=i+1
If i>=MaxPerPage Then Exit Do
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs=Nothing
%>
<tr align="center">
<td height="25" colspan="5" class="alt2"><%Response.Write ShowPage("admin_Admininfo.asp?info=list",CurrentPage,Num,MaxPerPage,True,True," 个项目")%></td>
</tr>
</table>
<%end Sub
Sub add()%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">添 加 管 理 员</td>
</tr>
<form action="admin_save.asp?info=adminadd" method="post" id="form">
<tr>
<td colspan="4" class="alt3">
<div id=panx>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
<tr>
<td width="39%" height=22 align=right class=alt2>管理员登陆名：</td>
<td width="61%" align=left class=alt1><input name="username" type="text" class="form"></td>
</tr>
<tr>
<td width="39%" height=22 align=right class=alt2>管理员昵称：</td>
<td width="61%" align=left class=alt1><input name="truename" type="text" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>管理员密码：</td>
<td width="61%" align=left class=alt1><input name="password" type="password" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>管理员E-mail:</td>
<td width="61%" align=left class=alt1><input name="e-mail" type="text" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>管理员联系QQ：</td>
<td width="61%" align=left class=alt1><input name="QQ" type="text" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>管理等级：</td>
<td width="61%" align=left class=alt1><div class="select"><div><select name="userclass" class="form">
<option value="3">超级管理员</option>
</select></div></div></td>
</tr>
</table></div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" name="Submit" value="添 加">
<input type="button" class="button" name="Submit" value="取 消">
</div>
</td>
</tr>
</form>
</table>
<%end Sub
Sub edit()
id=request.QueryString("id")
set rs=server.CreateObject("ADODB.recordset")
sql="select * from admin_user where id="&id
rs.open sql,conn,1,3
%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tborder">
<tr height="25">
<td colspan="4" class="thead">修 改 管 理 员 资 料</td>
</tr>
<form action="admin_save.asp?info=adminedit&id=<%=id%>" method="post" id="form">
<tr>
<td colspan="4" class="alt3">
<div id=panx>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
<tr>
<td width="39%" height=22 align=right class=alt2>登陆名：</td>
<td width="61%" align=left class=alt1><input name="username" type="text" value="<%=rs("username")%>" class="form"></td>
</tr>
<tr>
<td width="39%" height=22 align=right class=alt2>昵称：</td>
<td width="61%" align=left class=alt1><input name="truename" type="text" value="<%=rs("truename")%>" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>密码：</td>
<td width="61%" align=left class=alt1><input name="password" type="password" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>E-mail:</td>
<td width="61%" align=left class=alt1><input name="e-mail" type="text" value="<%=rs("email")%>" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>联系QQ：</td>
<td width="61%" align=left class=alt1><input name="QQ" type="text" value="<%=rs("QQ")%>" class="form"></td>
</tr>
<tr>
<td height=22 align=right class=alt2>管理等级：</td>
<td width="61%" align=left class=alt1><div class="select"><div><select name="userclass" class="form">
<option value="3">超级管理员</option>
</select></div></div></td>
</tr>
</table></div>
<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
<input type="submit" class="button" name="Submit" value="修 改">
<input type="button" class="button" name="Submit" value="取 消">
</div>
</td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
end Sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -