www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > admin/adminUser/adminUser_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'session.CodePage=65001
response.Charset=utf-8
%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>用户管理</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css">
<link href="../themes/frmRight/frameRight.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="adminUser_Manage.asp">用户管理</a> | <a href="adminUser_Add.asp">添加用户</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt>用户管理</dt>
<dd>
<br />
<%
sql_adminName="select * from tAdmin order by fpurview"
set rsAdminName=conn.execute(sql_adminName)
if (rsAdminName.eof and rsAdminName.bof) then
response.Write("<p>暂时没有用户！！！</p>")
else
%>
<table width="95%"class="tableBoder01">
<tr>
<th>用户名称</th>
<th>用户权限</th>
<th>最后登录IP</th>
<th>最后登录时间</th>
<th>登录次数</th>
<th>管 理</th>
</tr>
<%
iNum=0
while (not rsAdminName.eof)
iNum=iNum+1
%>
<tr>
<td><%= iNum %></td>
<td><%= rsAdminName("fuserName") %></td>
<td><%= rsAdminName("flastLoginIP") %></td>
<td><%= rsAdminName("flastLoginTime") %></td>
<td><%= rsAdminName("floginTimes") %></td>
<td><a href="adminUser_Update.asp?id=<%= rsAdminName("fid") %>">修改</a> |
<%if (session("adminName")=rsAdminName("fuserName")) then%>
<font color="#CCCCCC">删除</font>
<%else%>
<a href="adminUser_DEL.asp?id=<%= rsAdminName("fid") %>" onclick="return confirm('你确定删除么？')">删除</a>
<%end if%>
</td>
</tr>
<%
rsAdminName.moveNext
wend
%>
</table>
<%
end if
rsAdminName.close
set rsAdminName=nothing
%>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%closeConnDB()%>