📄 admin_user.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
color: #FF0000;
font-size: 36px;
}
-->
</style>
</head>
<body>
<div align="center">
<%
sql="select * from user_data"
set objrs=red(sql)
if objrs.eof or objrs.bof then
response.Write("没有用户")
response.end()
end if
%>
<span class="style1">用户列表
</span>
</div>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#eaeaea">
<tr>
<td bgcolor="#eaeaea"><table width="100%" border="0" cellpadding="1" cellspacing="1">
<%
objrs.pagesize=15
if trim(request.querystring("page"))="" then
current_page=1
else
Current_Page= CLng(request.querystring("Page"))
end if
objrs.absolutepage=current_page
i=0
do while not objrs.eof and i<objrs.pagesize
if objrs("power_type")=1 then
power_id="<font color='red'>管理员</font>"
elseif objrs("power_type")=2 then
power_id="<font color='blue'><b>超级管理员</b></font>"
else
power_id="普通会员"
end if
%>
<tr bgcolor="#FFFFFF">
<td width="20%" bgcolor="#FFFFFF">用户名：<%=objrs("user_name")%></td>
<td width="20%" bgcolor="#FFFFFF">身份：<%=power_id%></td>
<%if session("power_type")=2 then%>
<td width="20%" bgcolor="#FFFFFF">密码：<%=objrs("user_pwd")%></td>
<%
if objrs("power_type")=0 then%>
<td width="20%" bgcolor="#FFFFFF"><div align="center"><a href="admin_inc.asp?method=gl&id=<%=objrs("user_id")%>">升级为管理员</a></div></td>
<td width="10%" bgcolor="#FFFFFF"><div align="center"><a href="admin_inc.asp?method=hy&id=<%=objrs("user_id")%>">删除</a></div></td>
<%elseif objrs("power_type")=1 then%>
<td width="20%" bgcolor="#FFFFFF"><div align="center"><a href="admin_inc.asp?method=cs&id=<%=objrs("user_id")%>">撤销此管理员</a></div></td>
<td width="10%" bgcolor="#FFFFFF"><div align="center"><a href="admin_inc.asp?method=hy&id=<%=objrs("user_id")%>">删除</a></div></td>
<%elseif objrs("power_type")=2 then%>
<td width="20%" bgcolor="#FFFFFF"><div align="center"><a href="javascript:onclick=alert('不可修改')">超级管理员</a></div></td>
<td width="10%" bgcolor="#FFFFFF"><div align="center"><a href="javascript:onclick=alert('不可修改')">删除</a></div></td>
<%end if
end if
%>
</tr>
<%
objrs.movenext
i=i+1
loop
%>
</table></td>
</tr>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td><div align="center">共有会员<%=objrs.recordcount%> 个 | 共<%=objrs.pagecount%> 页 | 第 <%=current_page%>页 |
<%
if current_page=1 then
response.write "首页 | 上一页"
else
response.write"<a href='admin_user.asp?page=1'>首页 |</a>"
response.write"<a href='admin_user.asp?page="&cstr(current_page-1)&"'> 上一页</a>"
end if
if current_page=objrs.pagecount then
response.write " | 下一页 | 尾页"
else
response.write"<a href='admin_user.asp?page="&cstr(current_page+1)&"'>| 下一页</a>"
response.write"<a href='admin_user.asp?page="&cstr(objrs.pagecount)&"'> | 尾页 </a>"
end if
objrs.close
set objrs=nothing
%></td>
</tr>
</table>
<p align="center" class="style1"> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -