📄 userlist.asp

📁 本同学录系统演示地址:　http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等如果要换sql数据库,请将app_code里的MyPage

💻 ASP

字号:

<!--#include File="../conndb.asp"-->
<!--#include File="../class/Person.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=300,height=260");
  newwin.focus();
  return false;
}
</script>
</head>
<body link="#000080" vlink="#008080">
<h3><p align="center">用户列表</p></h3>
<table width='90%' align=center cellspacing=1 cellpadding=2 border=1 bordercolor="#808080" bordercolordark="#FFFFFF" style="font-size: 9pt; font-family: 宋体"  bordercolorlight="#D8D8D8">
<tr>
<td align="center" width='30%' bgcolor="#FFCCFF"><b>用户名</b></td>
<td align="center" width='30%' bgcolor="#FFCCFF"><b>姓名</b></td>
<td align="center" width='20%' bgcolor="#FFCCFF"><b>修 改</b></td>
<td align="center" width='20%' bgcolor="#FFCCFF"><b>删 除</b></td>
</tr>
<%
  Dim cnt
  cnt = 0
  set obj = new Person
  obj.GetPersonlist
  '查询结果保存在obj.rs中  
  Do While Not obj.rs.Eof
    cnt = cnt + 1
    uid = obj.rs("UserId")
    uname = obj.rs("Name")
    %>
<tr>
<td><%=uid%></td>
<td><%=uname%></td>
<td align="center"><a href=# onClick="newwin('AdminResetpwd.asp?uid=<%=uid%>')">密码重置</a></td>
<td align="center">
<% If uid<>"Admin" Then %>
<a href=# onClick="newwin('UserDelt.asp?uid=<%=uid%>')">删 除</a>
<% Else %>
&nbsp;
<% End If %></td>
</tr>

<%
    obj.rs.MoveNext
  Loop
  If cnt=0 Then
	Response.Write "<tr align='center'><td colspan=5><font color=red>目前还没有用户记录</font></td></tr>"
  End If
%>
</table>
<br>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -